[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 47081bf: Tweak auth-source-pass.el to avoid run-tim
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 47081bf: Tweak auth-source-pass.el to avoid run-time subr-x |
Date: |
Tue, 2 May 2017 16:59:57 -0400 (EDT) |
branch: master
commit 47081bf23bedf8e2e567f2adfe2e5cc9466caa27
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
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.
---
lisp/auth-source-pass.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/auth-source-pass.el b/lisp/auth-source-pass.el
index e5de184..529e302 100644
--- a/lisp/auth-source-pass.el
+++ b/lisp/auth-source-pass.el
@@ -32,7 +32,7 @@
;;; Code:
(require 'seq)
-(require 'subr-x)
+(eval-when-compile (require 'subr-x))
(eval-when-compile
(require 'cl-lib))
(require 'auth-source)
@@ -132,7 +132,7 @@ CONTENTS is the contents of a password-store formatted
file."
(let ((lines (split-string contents "\\\n" t "\\\s")))
(seq-remove #'null
(mapcar (lambda (line)
- (let ((pair (mapcar #'string-trim
+ (let ((pair (mapcar (lambda (s) (string-trim s))
(split-string line ":"))))
(when (> (length pair) 1)
(cons (car pair)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 47081bf: Tweak auth-source-pass.el to avoid run-time subr-x,
Glenn Morris <=