[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/org-contacts-rebased 50fff11 107/118: Don't use deprecate
From: |
Stefan Monnier |
Subject: |
[elpa] scratch/org-contacts-rebased 50fff11 107/118: Don't use deprecated functions |
Date: |
Fri, 12 Nov 2021 15:37:13 -0500 (EST) |
branch: scratch/org-contacts-rebased
commit 50fff1181b3615ffda03084565c7c95be4cf2ae2
Author: Morgan Smith <Morgan.J.Smith@outlook.com>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
Don't use deprecated functions
---
org-contacts.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index 57368e9..7762e1b 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -327,7 +327,7 @@ cell corresponding to the contact properties.
if (or
(and name-match
(string-match-p name-match
- (first contact)))
+ (cl-first contact)))
(and prop-match
(cl-find-if (lambda (prop)
(and (string= (car prop-match) (car prop))
@@ -369,7 +369,7 @@ prefixes rather than just the beginning of the string."
(cl-return t)
(cl-destructuring-bind (string start end)
(if (null ret)
- (values string start end)
+ (cl-values string start end)
(org-contacts-common-substring
ret ret-start ret-end
string start end))
@@ -456,7 +456,7 @@ prefixes rather than just the beginning of the string."
(defun org-contacts-make-collection-prefix (collection)
"Make a collection function from COLLECTION which will match on prefixes."
- (lexical-let ((collection collection))
+ (let ((collection collection))
(lambda (string predicate flag)
(cond ((eq flag nil)
(org-contacts-try-completion-prefix string collection predicate))
@@ -502,7 +502,7 @@ prefixes rather than just the beginning of the string."
collection))
(defun org-contacts-boundaries-prefix (string collection predicate suffix)
- (list* 'boundaries (completion-boundaries string collection predicate
suffix)))
+ (cl-list* 'boundaries (completion-boundaries string collection predicate
suffix)))
(defun org-contacts-metadata-prefix (string collection predicate)
'(metadata .
@@ -530,7 +530,7 @@ A group FOO is composed of contacts with the tag FOO."
(list start end
(if (= (length completion-list) 1)
;; We've found the correct group, returns the address
- (lexical-let ((tag (get-text-property 0 'org-contacts-group
+ (let ((tag (get-text-property 0 'org-contacts-group
(car completion-list))))
(lambda (string pred &optional to-ignore)
(mapconcat 'identity
@@ -590,7 +590,7 @@ description."
",")))
(when (not (string= "" result))
;; return (start end function)
- (lexical-let* ((to-return result))
+ (let* ((to-return result))
(list start end
(lambda (string pred &optional to-ignore) to-return))))))))
@@ -643,7 +643,7 @@ description."
(let ((mail-abbrev-mode-regexp
"^\\(Resent-To\\|To\\|B?Cc\\|Reply-To\\|From\\|Mail-Followup-To\\|Mail-Copies-To\\|Disposition-Notification-To\\|Return-Receipt-To\\):"))
(when (mail-abbrev-in-expansion-header-p)
- (lexical-let*
+ (let*
((end (point))
(start (or start
(save-excursion
@@ -748,8 +748,8 @@ This function should be called from
`gnus-article-prepare-hook'."
(with-current-buffer (marker-buffer marker)
(save-excursion
(goto-char marker)
- (let* ((org-email-link-description-format (or
org-contacts-email-link-description-format
-
org-email-link-description-format))
+ (let* ((org-link-email-description-format (or
org-contacts-email-link-description-format
+
org-link-email-description-format))
(link (gnus-with-article-buffer (org-store-link nil))))
(org-set-property org-contacts-last-read-mail-property link)))))))
@@ -1169,7 +1169,7 @@ are effectively trimmed). If nil, all zero-length
substrings are retained."
(if (bound-and-true-p org-id-link-to-org-use-id)
(org-id-store-link)
(let ((headline-str (substring-no-properties (org-get-heading t t t t))))
- (org-store-link-props
+ (org-link-store-props
:type "org-contact"
:link headline-str
:description headline-str)
- [elpa] scratch/org-contacts-rebased 8e07b36 082/118: contrib: move a few libraries to cl-lib in place of compile-time cl., (continued)
- [elpa] scratch/org-contacts-rebased 8e07b36 082/118: contrib: move a few libraries to cl-lib in place of compile-time cl., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 9a80cca 085/118: org-contacts: Register "tel" link, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 3ed6376 086/118: org-agenda: Remove unnecessary visibility modification, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 9f46067 088/118: Deprecate `org-no-warnings' in favor of `with-no-warnings', Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 8d0ca82 090/118: Update tel link definition, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 58ea7f2 095/118: org-contacts.el: Fix org-store-link error caused by org-contacts, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased dcbbc77 097/118: org-contacts.el: Inherit face from org-link, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased d1365ce 101/118: org-contacts.el: Use `bound-and-true-p' to check (unbound) var, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 83f7226 103/118: Fix typo in 124cc7a1a, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased f81ebdc 105/118: Prefer HTTPS to HTTP for links to gnu.org, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 50fff11 107/118: Don't use deprecated functions,
Stefan Monnier <=
- [elpa] scratch/org-contacts-rebased ede6e73 108/118: Remove compatibility code, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 3ad99fe 112/118: add README.org, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased c472159 113/118: Avoid *Org-Agenda* buffer use org-contacts-matcher in buffer-name, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 7dd30d9 115/118: replace gnus-rescale-image with create-image property :height, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 974f1b7 117/118: Add package introduction in README, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 3f635df 118/118: Update source code metadata keywords and usage description, Stefan Monnier, 2021/11/12