[nongnu] elpa/helm a0f2a47e11 1/2: Replace all cl-dolist by dolist

[ELPA Syncer]

branch: elpa/helm
commit a0f2a47e11fe90b67e384d7d610dd4beed611cfe
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Replace all cl-dolist by dolist
    
    A vestige of the conversion of cl.el to cl-lib.el.
---
 helm-bookmark.el |  2 +-
 helm-core.el     | 12 ++++++------
 helm-files.el    |  4 ++--
 helm-info.el     |  2 +-
 helm-lib.el      |  2 +-
 helm-misc.el     |  4 ++--
 helm-semantic.el |  2 +-
 7 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/helm-bookmark.el b/helm-bookmark.el
index 91a8501f53..89d6b8ab7d 100644
--- a/helm-bookmark.el
+++ b/helm-bookmark.el
@@ -790,7 +790,7 @@ E.g. prepended with *."
 
 (defun helm-delete-marked-bookmarks (_ignore)
   "Delete this bookmark or all marked bookmarks."
-  (cl-dolist (i (helm-marked-candidates))
+  (dolist (i (helm-marked-candidates))
     (bookmark-delete (helm-bookmark-get-bookmark-from-name i)
                      'batch)))
 
diff --git a/helm-core.el b/helm-core.el
index afbba5254f..0edf97a0b6 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -452,7 +452,7 @@ i.e. the loop is not entered after running COMMAND."
       (kbd "C-w") ?\C-w #'helm-yank-text-at-point
       '((?\C-_ . helm-undo-yank-text-at-point)))
     ;; Use `describe-mode' key in `global-map'.
-    (cl-dolist (k (where-is-internal #'describe-mode global-map))
+    (dolist (k (where-is-internal #'describe-mode global-map))
       (define-key map k #'helm-help))
     ;; Bind all actions from f1 to f12, `helm-select-nth-action'
     ;; counts from 0, i.e. (helm-select-nth-action 0) = action 1.
@@ -2621,7 +2621,7 @@ precedent function.  Return the result of last function 
call."
                           ;; `helm-sources' are local to helm-buffer.
                           (with-helm-buffer helm-sources)))))
     (when sources
-      (cl-dolist (source sources)
+      (dolist (source sources)
         (helm-aif (assoc-default attr source)
             (helm-apply-functions-from-source source it))))))
 
@@ -5092,7 +5092,7 @@ passed as argument to `recenter'."
                  (helm-apply-functions-from-source
                   source 'helm-candidate-buffer))
       (kill-buffer it))
-  (cl-dolist (attr '(update init))
+  (dolist (attr '(update init))
     (helm-aif (assoc-default attr source)
         (helm-apply-functions-from-source source it)))
   (helm-remove-candidate-cache source))
@@ -5339,7 +5339,7 @@ This will work only in Emacs-26+, i.e. Emacs versions 
that have
     (helm-output-filter--post-process)))
 
 (defun helm-output-filter--process-source (process output-string source limit)
-  (cl-dolist (candidate (helm-transform-candidates
+  (dolist (candidate (helm-transform-candidates
                          (helm-output-filter--collect-candidates
                           (split-string output-string
                                         
helm-process-output-split-string-separator)
@@ -6331,7 +6331,7 @@ If action buffer is displayed, kill it."
   (message "Calculating all helm-related values...")
   (insert "If you debug some variables or forms, set `helm-debug-variables'
 to a list of forms.\n\n")
-  (cl-dolist (v (or vars
+  (dolist (v (or vars
                     helm-debug-variables
                     (apropos-internal "^helm-" 'boundp)))
     (insert "** "
@@ -7492,7 +7492,7 @@ sources."
   "Restore marked candidates when helm updates display."
   (with-current-buffer helm-buffer
     (save-excursion
-      (cl-dolist (o helm-visible-mark-overlays)
+      (dolist (o helm-visible-mark-overlays)
         (let* ((source (overlay-get o 'source))
                (ov-src-name (assoc-default 'name source))
                (ov-str (overlay-get o 'string))
diff --git a/helm-files.el b/helm-files.el
index 696be201c8..cf7c8d5ab0 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -5778,7 +5778,7 @@ is nil."
              (delete-directory file nil trash))
             (t (delete-file file trash)))
       (when buffers
-        (cl-dolist (buf buffers)
+        (dolist (buf buffers)
           (when (y-or-n-p (format "Kill buffer %s, too? " buf))
             (kill-buffer buf)))))))
 
@@ -5801,7 +5801,7 @@ When a prefix arg is given, meaning of
           (message "(No deletions performed)")
         (catch 'helm-abort-delete-file
           (unwind-protect
-               (cl-dolist (i files)
+               (dolist (i files)
                  (set-text-properties 0 (length i) nil i)
                  (let ((res (helm-delete-file
                              i helm-ff-signal-error-on-dot-files nil trash)))
diff --git a/helm-info.el b/helm-info.el
index 538f55acc9..65cd4c6c17 100644
--- a/helm-info.el
+++ b/helm-info.el
@@ -69,7 +69,7 @@ found in each node, otherwise scan only the current info 
buffer."
       (let ((tobuf (helm-candidate-buffer 'global))
             Info-history)
         (helm-aif (Info-index-nodes)
-            (cl-dolist (node it)
+            (dolist (node it)
               (Info-goto-node node)
               (helm-info-scan-current-buffer tobuf))
           (helm-info-scan-current-buffer tobuf))
diff --git a/helm-lib.el b/helm-lib.el
index 490883d4ae..55cc5f3416 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1995,7 +1995,7 @@ broken."
 
 
 ;;; Fontlock
-(cl-dolist (mode '(emacs-lisp-mode lisp-interaction-mode))
+(dolist (mode '(emacs-lisp-mode lisp-interaction-mode))
   (font-lock-add-keywords
    mode
    '(("(\\<\\(with-helm-after-update-hook\\)\\>" 1 font-lock-keyword-face)
diff --git a/helm-misc.el b/helm-misc.el
index fee7a440ac..5eecd6198a 100644
--- a/helm-misc.el
+++ b/helm-misc.el
@@ -230,7 +230,7 @@ This mode is enabled by `helm-mode', so there is no need to 
enable it directly."
   :global t
   (if helm-minibuffer-history-mode
       (let ((key helm-minibuffer-history-key))
-        (cl-dolist (map '(minibuffer-local-completion-map
+        (dolist (map '(minibuffer-local-completion-map
                           minibuffer-local-filename-completion-map
                           minibuffer-local-filename-must-match-map ; Emacs 
23.1.+
                           minibuffer-local-isearch-map
@@ -250,7 +250,7 @@ This mode is enabled by `helm-mode', so there is no need to 
enable it directly."
                 (define-key (symbol-value map)
                     (if (stringp key) (read-kbd-macro key) key)
                   'helm-minibuffer-history))))))
-    (cl-dolist (map '(minibuffer-local-completion-map
+    (dolist (map '(minibuffer-local-completion-map
                       minibuffer-local-filename-completion-map
                       minibuffer-local-filename-must-match-map
                       minibuffer-local-isearch-map
diff --git a/helm-semantic.el b/helm-semantic.el
index 0ba207ec13..ce070569fa 100644
--- a/helm-semantic.el
+++ b/helm-semantic.el
@@ -83,7 +83,7 @@ you have completion on these functions with `C-M i' in the 
customize interface."
         (stylefn (or (with-helm-current-buffer
                        (assoc-default major-mode helm-semantic-display-style))
                      #'semantic-format-tag-summarize)))
-    (cl-dolist (tag tags)
+    (dolist (tag tags)
       (when (listp tag)
         (cl-case (setq cur-type (semantic-tag-class tag))
           ((function variable type)