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

22
org-contacts.el
View file

@ -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)))))