[elpa] scratch/org-contacts-rebased a603ab3 099/118: org-contacts.el: replace obsolete alias `loop' with `cl-loop'

[Stefan Monnier]

branch: scratch/org-contacts-rebased
commit a603ab3b34edc46a27859a7fd6430e80a06692f3
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 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)))))