diff options
| author | Paul Eggert | 2019-03-19 18:45:17 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-03-19 18:47:53 -0700 |
| commit | e14c0d748efe35afc653151ff18c4dd93dcc456e (patch) | |
| tree | f31050be99133f3466413728c2c948ab7914fcb7 /lisp/auth-source-pass.el | |
| parent | b2dd61ffb0b4efc0419f4b5cbe279c2700b549e8 (diff) | |
| download | emacs-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.el | 2 |
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. |
| 141 | CONTENTS is the contents of a password-store formatted file." | 141 | CONTENTS 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)) |