mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Prefer defvar-keymap in auth-source.el

Browse source 
* lisp/auth-source.el (read-passwd-map): Prefer defvar-keymap.
This commit is contained in:
Stefan Kangas 2025-02-20 04:08:30 +01:00
parent ae439cc1b9
commit c24a142657
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/auth-source.el
View file

@ -2514,13 +2514,11 @@ Adapt also mode line."
(force-mode-line-update 'all)
(read-passwd--hide-password)))))
(defvar read-passwd-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map minibuffer-local-map)
(define-key map "\C-u" #'delete-minibuffer-contents) ;bug#12570
(define-key map "\t" #'read-passwd-toggle-visibility)
map)
"Keymap used while reading passwords.")
(defvar-keymap read-passwd-map
:doc "Keymap used while reading passwords."
:parent minibuffer-local-map
"C-u" #'delete-minibuffer-contents ;bug#12570
"TAB" #'read-passwd-toggle-visibility)
(define-minor-mode read-passwd-mode
"Toggle visibility of password in minibuffer."