From af3a5cb6fa7b50ece633c635b2fbbfd2bfe7b920 Mon Sep 17 00:00:00 2001 From: stardiviner Date: Sun, 3 Jan 2021 20:17:37 +0800 Subject: [PATCH] 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 eba1a82..82881ec 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)))))