aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

org-contacts.el: replace obsolete alias loop' with cl-loop'

Browse source 
* contrib/lisp/org-contacts.el (org-contacts-get-icon): replace obsolete
alias `loop' with `cl-loop'.
This commit is contained in:
stardiviner 2021-01-03 20:17:37 +08:00
parent 304fd01fe3
commit af3a5cb6fa
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
org-contacts.el
View file

@ -923,7 +923,7 @@ address."
(email-list (org-entry-get pom org-contacts-email-property)) (email-list (org-entry-get pom org-contacts-email-property))
(gravatar (gravatar
(when email-list (when email-list
(loop for email in (org-contacts-split-property email-list) (cl-loop for email in (org-contacts-split-property email-list)
for gravatar = (gravatar-retrieve-synchronously (org-contacts-strip-link email)) for gravatar = (gravatar-retrieve-synchronously (org-contacts-strip-link email))
if (and gravatar if (and gravatar
(not (eq gravatar 'error))) (not (eq gravatar 'error)))
@ -965,9 +965,9 @@ address."
(defun erc-nicknames-list () (defun erc-nicknames-list ()
"Return all nicknames of all ERC buffers." "Return all nicknames of all ERC buffers."
(loop for buffer in (erc-buffer-list) (cl-loop for buffer in (erc-buffer-list)
nconc (with-current-buffer buffer nconc (with-current-buffer buffer
(loop for user-entry in (mapcar 'car (erc-get-channel-user-list)) (cl-loop for user-entry in (mapcar 'car (erc-get-channel-user-list))
collect (elt user-entry 1))))) collect (elt user-entry 1)))))
(add-to-list 'org-property-set-functions-alist (add-to-list 'org-property-set-functions-alist
@ -1079,7 +1079,7 @@ is created and the VCard is written into that buffer."
(fundamental-mode) (fundamental-mode)
(when (fboundp 'set-buffer-file-coding-system) (when (fboundp 'set-buffer-file-coding-system)
(set-buffer-file-coding-system coding-system-for-write)) (set-buffer-file-coding-system coding-system-for-write))
(loop for contact in (org-contacts-filter name) (cl-loop for contact in (org-contacts-filter name)
do (insert (org-contacts-vcard-format contact))) do (insert (org-contacts-vcard-format contact)))
(if to-buffer (if to-buffer
(current-buffer) (current-buffer)