diff options
| -rw-r--r-- | lisp/auth-source-pass.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/auth-source-pass.el b/lisp/auth-source-pass.el index e5de18456b9..529e3024a62 100644 --- a/lisp/auth-source-pass.el +++ b/lisp/auth-source-pass.el | |||
| @@ -32,7 +32,7 @@ | |||
| 32 | ;;; Code: | 32 | ;;; Code: |
| 33 | 33 | ||
| 34 | (require 'seq) | 34 | (require 'seq) |
| 35 | (require 'subr-x) | 35 | (eval-when-compile (require 'subr-x)) |
| 36 | (eval-when-compile | 36 | (eval-when-compile |
| 37 | (require 'cl-lib)) | 37 | (require 'cl-lib)) |
| 38 | (require 'auth-source) | 38 | (require 'auth-source) |
| @@ -132,7 +132,7 @@ CONTENTS is the contents of a password-store formatted file." | |||
| 132 | (let ((lines (split-string contents "\\\n" t "\\\s"))) | 132 | (let ((lines (split-string contents "\\\n" t "\\\s"))) |
| 133 | (seq-remove #'null | 133 | (seq-remove #'null |
| 134 | (mapcar (lambda (line) | 134 | (mapcar (lambda (line) |
| 135 | (let ((pair (mapcar #'string-trim | 135 | (let ((pair (mapcar (lambda (s) (string-trim s)) |
| 136 | (split-string line ":")))) | 136 | (split-string line ":")))) |
| 137 | (when (> (length pair) 1) | 137 | (when (> (length pair) 1) |
| 138 | (cons (car pair) | 138 | (cons (car pair) |