diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-22 14:35:09 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-22 14:35:09 +0200 |
commit | d8157a113396ab1563c4909e26f5717097f47a9e (patch) | |
tree | 683a6057569e092e4eb145069f17f6e17394bc2f | |
parent | 942665d6d2d8b4dc8e7964a7684f075b8184d2c3 (diff) | |
download | emacs-d8157a113396ab1563c4909e26f5717097f47a9e.tar.gz |
Fix "password" detection in authinfo mode
* lisp/auth-source.el (authinfo--hide-passwords): Ensure that we
only hit actual "password" entries and not "foo-password" and the
like.
-rw-r--r-- | lisp/auth-source.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 9669ae976cc..6d53a222e98 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el @@ -2416,9 +2416,9 @@ passwords are revealed when point moved into the password. (save-restriction (narrow-to-region start end) (goto-char start) - (while (re-search-forward "\\bpassword +\\([^\n\t ]+\\)" + (while (re-search-forward "\\(\\s-\\|^\\)password\\s-+\\([^\n\t ]+\\)" nil t) - (let ((overlay (make-overlay (match-beginning 1) (match-end 1)))) + (let ((overlay (make-overlay (match-beginning 2) (match-end 2)))) (overlay-put overlay 'display (propertize "****" 'face 'warning)) (overlay-put overlay 'reveal-toggle-invisible |