diff options
| author | Magnus Henoch <magnus.henoch@gmail.com> | 2018-11-02 21:51:59 +0000 |
|---|---|---|
| committer | Damien Cassou <damien@cassou.me> | 2019-06-24 09:15:39 +0200 |
| commit | 527efaf798ad73878f6df03f5af9d9b0ba517b9d (patch) | |
| tree | 7739ede9d206290bab1cb19c448634aecfe71175 /lisp/auth-source-pass.el | |
| parent | b9ac4f815ebaa1acb0d045fe9583f665efa6f628 (diff) | |
| download | emacs-527efaf798ad73878f6df03f5af9d9b0ba517b9d.tar.gz | |
Fix auth-source-pass to return nil if no entry found
* lisp/auth-source-pass.el (auth-source-pass-search): If there is no
matching entry, auth-source-pass-search should return nil, not (nil).
This lets auth-source fall back to other backends in the auth-sources
list.
* test/lisp/auth-source-pass-tests.el: Add corresponding test.
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp/auth-source-pass.el')
| -rw-r--r-- | lisp/auth-source-pass.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/auth-source-pass.el b/lisp/auth-source-pass.el index 4283ed0392b..c82c90167a0 100644 --- a/lisp/auth-source-pass.el +++ b/lisp/auth-source-pass.el @@ -56,7 +56,8 @@ See `auth-source-search' for details on SPEC." ;; Do not build a result, as none will match when HOST is nil nil) (t - (list (auth-source-pass--build-result host port user))))) + (when-let ((result (auth-source-pass--build-result host port user))) + (list result))))) (defun auth-source-pass--build-result (host port user) "Build auth-source-pass entry matching HOST, PORT and USER." |