diff options
| author | Stefan Monnier | 2017-04-28 08:21:39 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2017-04-28 08:21:39 -0400 |
| commit | 7e66aa48c48d759cf4cc37ed2f761b780da90699 (patch) | |
| tree | d8ed80f1aa605e92c94a0e909cc78ab27d3734f6 | |
| parent | 6a151cf8d5202ddde5d190dad542dadc26b66b93 (diff) | |
| download | emacs-7e66aa48c48d759cf4cc37ed2f761b780da90699.tar.gz emacs-7e66aa48c48d759cf4cc37ed2f761b780da90699.zip | |
* lisp/auth-source.el (auth-source-backend-parse): `return' -> cl-return.
| -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.") | |||
| 364 | "Create an auth-source-backend from an ENTRY in `auth-sources'." | 364 | "Create an auth-source-backend from an ENTRY in `auth-sources'." |
| 365 | 365 | ||
| 366 | (let (backend) | 366 | (let (backend) |
| 367 | (dolist (f auth-source-backend-parser-functions) | 367 | (cl-dolist (f auth-source-backend-parser-functions) |
| 368 | (when (setq backend (funcall f entry)) | 368 | (when (setq backend (funcall f entry)) |
| 369 | (return))) | 369 | (cl-return))) |
| 370 | 370 | ||
| 371 | (unless backend | 371 | (unless backend |
| 372 | ;; none of the parsers worked | 372 | ;; none of the parsers worked |