diff options
| author | Glenn Morris | 2017-05-02 16:59:51 -0400 |
|---|---|---|
| committer | Glenn Morris | 2017-05-02 16:59:51 -0400 |
| commit | 47081bf23bedf8e2e567f2adfe2e5cc9466caa27 (patch) | |
| tree | 70e0e77e6f4954bd6e1a6d1c00133e5b84309963 | |
| parent | 6e0cac4896f70b28b2a608fd63bc88b0253313bf (diff) | |
| download | emacs-47081bf23bedf8e2e567f2adfe2e5cc9466caa27.tar.gz emacs-47081bf23bedf8e2e567f2adfe2e5cc9466caa27.zip | |
Tweak auth-source-pass.el to avoid run-time subr-x
* lisp/auth-source-pass.el (auth-source-pass--parse-data):
Avoid needing subr-x at run-time.
| -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) |