diff options
| author | stardiviner <numbchild@gmail.com> | 2021-01-03 20:17:37 +0800 |
|---|---|---|
| committer | stardiviner <numbchild@gmail.com> | 2021-01-03 20:17:37 +0800 |
| commit | c3888a8b74ef82d321fcf8f695d9dcb901a409a1 (patch) | |
| tree | d788e714c81e605173700fcc14408a25f12f6b28 | |
| parent | f948234cba5603e68745bf4dd97feea66829ef94 (diff) | |
| download | org-mode-c3888a8b74ef82d321fcf8f695d9dcb901a409a1.tar.gz | |
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'.
| -rw-r--r-- | contrib/lisp/org-contacts.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index eba1a82..82881ec 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/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))))) |