[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-contacts af3a5cb6fa 102/154: org-contacts.el: repla
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-contacts af3a5cb6fa 102/154: org-contacts.el: replace obsolete alias `loop' with `cl-loop' |
Date: |
Fri, 9 Sep 2022 15:58:44 -0400 (EDT) |
branch: externals/org-contacts
commit af3a5cb6fa7b50ece633c635b2fbbfd2bfe7b920
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>
org-contacts.el: replace obsolete alias `loop' with `cl-loop'
* contrib/lisp/org-contacts.el (org-contacts-get-icon): replace obsolete
alias `loop' with `cl-loop'.
---
org-contacts.el | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index eba1a82f2a..82881ecd02 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -923,11 +923,11 @@ address."
(email-list (org-entry-get pom org-contacts-email-property))
(gravatar
(when email-list
- (loop for email in (org-contacts-split-property email-list)
- for gravatar = (gravatar-retrieve-synchronously
(org-contacts-strip-link email))
- if (and gravatar
- (not (eq gravatar 'error)))
- return gravatar))))
+ (cl-loop for email in (org-contacts-split-property email-list)
+ for gravatar = (gravatar-retrieve-synchronously
(org-contacts-strip-link email))
+ if (and gravatar
+ (not (eq gravatar 'error)))
+ return gravatar))))
(when gravatar (throw 'icon gravatar))))))
(defun org-contacts-irc-buffer (&optional pom)
@@ -965,10 +965,10 @@ address."
(defun erc-nicknames-list ()
"Return all nicknames of all ERC buffers."
- (loop for buffer in (erc-buffer-list)
- nconc (with-current-buffer buffer
- (loop for user-entry in (mapcar 'car
(erc-get-channel-user-list))
- collect (elt user-entry 1)))))
+ (cl-loop for buffer in (erc-buffer-list)
+ nconc (with-current-buffer buffer
+ (cl-loop for user-entry in (mapcar 'car
(erc-get-channel-user-list))
+ collect (elt user-entry 1)))))
(add-to-list 'org-property-set-functions-alist
`(,org-contacts-nickname-property .
org-contacts-completing-read-nickname))
@@ -1079,8 +1079,8 @@ is created and the VCard is written into that buffer."
(fundamental-mode)
(when (fboundp 'set-buffer-file-coding-system)
(set-buffer-file-coding-system coding-system-for-write))
- (loop for contact in (org-contacts-filter name)
- do (insert (org-contacts-vcard-format contact)))
+ (cl-loop for contact in (org-contacts-filter name)
+ do (insert (org-contacts-vcard-format contact)))
(if to-buffer
(current-buffer)
(progn (save-buffer) (kill-buffer)))))
- [elpa] externals/org-contacts 6f1a63da03 067/154: org-contacts: Provide ordering when using cycle completion, (continued)
- [elpa] externals/org-contacts 6f1a63da03 067/154: org-contacts: Provide ordering when using cycle completion, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts bb08fb96ab 071/154: Update copyright years., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 8829fb451a 073/154: Revert "Update copyright years.", ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts c32dbab114 081/154: contrib/lisp/org-contacts.el: Allow the user to customize interactively the vcard export, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 3fa42fb53f 084/154: Remove some home-grown copies of cl-lib functions., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 75021a1fc2 080/154: contrib/lisp/org-contacts.el: Fix a bug when contacts don't have an email address, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 0ec6917ed8 091/154: Deprecate `org-no-warnings' in favor of `with-no-warnings', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 304fd01fe3 101/154: org-contacts.el: Add usage comments, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts c8ceb5290e 099/154: org-contacts.el: Add support for org-id generated link., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 0107e8ecdb 100/154: org-contacts.el: Inherit face from org-link, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts af3a5cb6fa 102/154: org-contacts.el: replace obsolete alias `loop' with `cl-loop',
ELPA Syncer <=
- [elpa] externals/org-contacts 2c0bb90259 097/154: contrib/lisp/org-contacts.el: Add stardiviner as the maintainer, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts ca3b10d5a8 098/154: org-contacts.el: Fix org-store-link error caused by org-contacts, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 0e33f05c4e 105/154: org-contacts.el: Fix store link function does not return link., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 3d9181c0c4 104/154: org-contacts.el: Use `bound-and-true-p' to check (unbound) var, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 3fa6b4c36b 120/154: Add package introduction in README, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 507e48cbd1 116/154: add README.org, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 986a5b3280 109/154: Prefer HTTPS to HTTP in most links, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 85dd965906 126/154: Remove testing code, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 39c7aba7dc 127/154: Remove all-completions code logic, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 0501463909 149/154: Also detect whether org API function `org-add-link-type' available., ELPA Syncer, 2022/09/09