aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/auth-source-pass.el
diff options
context:
space:
mode:
authorPaul Eggert2019-03-19 18:45:17 -0700
committerPaul Eggert2019-03-19 18:47:53 -0700
commite14c0d748efe35afc653151ff18c4dd93dcc456e (patch)
treef31050be99133f3466413728c2c948ab7914fcb7 /lisp/auth-source-pass.el
parentb2dd61ffb0b4efc0419f4b5cbe279c2700b549e8 (diff)
downloademacs-e14c0d748efe35afc653151ff18c4dd93dcc456e.tar.gz
emacs-e14c0d748efe35afc653151ff18c4dd93dcc456e.zip
More minor regex cleanup
Problems reported by Mattias EngdegÄrd in: https://lists.gnu.org/r/emacs-devel/2019-03/msg00643.html plus a few others that I noticed. * lisp/auth-source-pass.el (auth-source-pass--parse-data): * lisp/org/org-datetree.el (org-datetree--find-create): * lisp/org/org-pcomplete.el (org-thing-at-point): * lisp/progmodes/js.el (js--end-of-do-while-loop-p): * lisp/textmodes/sgml-mode.el: (sgml-electric-tag-pair-before-change-function): * lisp/textmodes/texnfo-upd.el (texinfo-menu-copy-old-description): * lisp/url/url-http.el (url-http-parse-response): Fix regular expression and similar syntax.
Diffstat (limited to 'lisp/auth-source-pass.el')
-rw-r--r--lisp/auth-source-pass.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/auth-source-pass.el b/lisp/auth-source-pass.el
index 29ff9c66856..4283ed0392b 100644
--- a/lisp/auth-source-pass.el
+++ b/lisp/auth-source-pass.el
@@ -139,7 +139,7 @@ The secret is the first line of CONTENTS."
139(defun auth-source-pass--parse-data (contents) 139(defun auth-source-pass--parse-data (contents)
140 "Parse the password-store data in the string CONTENTS and return an alist. 140 "Parse the password-store data in the string CONTENTS and return an alist.
141CONTENTS is the contents of a password-store formatted file." 141CONTENTS is the contents of a password-store formatted file."
142 (let ((lines (split-string contents "\n" t "\\\s"))) 142 (let ((lines (split-string contents "\n" t "[ \t]+")))
143 (seq-remove #'null 143 (seq-remove #'null
144 (mapcar (lambda (line) 144 (mapcar (lambda (line)
145 (let ((pair (mapcar (lambda (s) (string-trim s)) 145 (let ((pair (mapcar (lambda (s) (string-trim s))