diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-04-28 08:21:39 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-04-28 08:21:39 -0400 |
| commit | 7e66aa48c48d759cf4cc37ed2f761b780da90699 (patch) | |
| tree | d8ed80f1aa605e92c94a0e909cc78ab27d3734f6 /lisp | |
| parent | 6a151cf8d5202ddde5d190dad542dadc26b66b93 (diff) | |
| download | emacs-7e66aa48c48d759cf4cc37ed2f761b780da90699.tar.gz emacs-7e66aa48c48d759cf4cc37ed2f761b780da90699.tar.bz2 emacs-7e66aa48c48d759cf4cc37ed2f761b780da90699.zip | |
* lisp/auth-source.el (auth-source-backend-parse): `return' -> cl-return.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/auth-source.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 3b60bd88d55..01d12c26141 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el @@ -364,9 +364,9 @@ soon as a function returns non-nil.") "Create an auth-source-backend from an ENTRY in `auth-sources'." (let (backend) - (dolist (f auth-source-backend-parser-functions) + (cl-dolist (f auth-source-backend-parser-functions) (when (setq backend (funcall f entry)) - (return))) + (cl-return))) (unless backend ;; none of the parsers worked |