[Top][All Lists]

[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)
                         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."
 (defun org-contacts-boundaries-prefix (string collection predicate suffix)
-  (list* 'boundaries (completion-boundaries string collection predicate 
+  (cl-list* 'boundaries (completion-boundaries string collection predicate 
 (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
     (when (mail-abbrev-in-expansion-header-p)
-      (lexical-let*
+      (let*
          ((end (point))
           (start (or start
@@ -748,8 +748,8 @@ This function should be called from 
       (with-current-buffer (marker-buffer marker)
           (goto-char marker)
-          (let* ((org-email-link-description-format (or 
+          (let* ((org-link-email-description-format (or 
                  (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)
       (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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]