[nongnu] elpa/pcmpl-args 43f3daada7 19/33: Fix return outside of the block

[ELPA Syncer]

branch: elpa/pcmpl-args
commit 43f3daada70efb09b029e86315b94af72c46a802
Author: Ivan Sokolov <ivan-p-sokolov@ya.ru>
Commit: Troy Hinckley <t.macman@gmail.com>

    Fix return outside of the block
---
 pcmpl-args.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pcmpl-args.el b/pcmpl-args.el
index b31527b742..7f26edd996 100644
--- a/pcmpl-args.el
+++ b/pcmpl-args.el
@@ -250,7 +250,7 @@ element.  Each element of this list is of the form:
          (when (string-match "\\`[[< ]*\\(.*?\\)[]> ]*\\'" optarg)
            (setq optarg (match-string 1 optarg)))
          (let ((opt=arg (format "%s=%s" optname optarg)))
-           (dolist (hint pcmpl-args-guess-completions-hints)
+           (cl-dolist (hint pcmpl-args-guess-completions-hints)
              (cond ((stringp (car-safe hint))
                     (when (let (case-fold-search)
                             (string-match (car hint) opt=arg))
@@ -749,7 +749,7 @@ Returns a list of cons cells of the form:
         (while lst
           (setq el (pop lst))
           (when (and lst (string= "" (cdr el)))
-            (setcdr el (dolist (p lst)
+            (setcdr el (cl-dolist (p lst)
                          (when (not (string= "" (cdr p)))
                            (cl-return (cdr p))))))))
       (when pcmpl-args-debug