[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-contacts 46726d2637 112/154: Don't use deprecated f
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-contacts 46726d2637 112/154: Don't use deprecated functions |
Date: |
Fri, 9 Sep 2022 15:58:53 -0400 (EDT) |
branch: externals/org-contacts
commit 46726d2637d9e13ac1bbd57f8e63e2a31c40f79e
Author: Morgan Smith <Morgan.J.Smith@outlook.com>
Commit: stardiviner <numbchild@gmail.com>
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 2a4ac10c67..5d54325fd3 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] externals/org-contacts 00560d5f4f 117/154: Try to support different type of AVATAR property., (continued)
- [elpa] externals/org-contacts 00560d5f4f 117/154: Try to support different type of AVATAR property., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 81d9ed977d 138/154: Ensure font-lock after org-mode in company-mode doc-buffer, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 8f008e1b70 131/154: Fix company-mode doc-buffer support with reverse query contact element in all contacts list., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts c8408cf44e 118/154: replace gnus-rescale-image with create-image property :height, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 5d0ecac118 143/154: Update package description., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 8078958995 082/154: contrib: Fix error messages., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 60339bd55f 087/154: Make `org-make-tags-matcher' lexical binding friendly, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 74019274c0 110/154: Update copyright years, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 0af8ca84b4 107/154: org-contacts.el: Display contacts buffer result., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 74edb70b13 078/154: contrib/lisp/org-contacts.el: Factorize the construction of the database, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 46726d2637 112/154: Don't use deprecated functions,
ELPA Syncer <=
- [elpa] externals/org-contacts f3fa9fc0b8 125/154: use less magic symbol extract code, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 8a074f2a41 133/154: company-mode doc-buffer return customized buffer which support customization, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts aaf9ce8bd0 128/154: Add capf completion properties, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 02ac3ed9d0 150/154: Fix Warning: ‘org-show-context’ is an obsolete function (as of 9.6); use ‘org-fold-show-context’ instead., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 3ea7298670 130/154: Enable company-mode support, ELPA Syncer, 2022/09/09