procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Modify last change acc to comments

Browse source 
* lisp/simple.el (read-passwd-mode): Change `text' entry of icons.
(read-passwd-toggle-visibility): Rename.
(read-passwd-mode):
* lisp/subr.el (read-passwd-map): Adapt callees.
This commit is contained in:
Michael Albinus 2024-02-25 15:37:06 +01:00
parent 39e3fce0d5
commit e02c4a864f
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/simple.el
View file

@ -10866,7 +10866,7 @@ and setting it to nil."
(defvar read-passwd--mode-line-icon nil
"Propertized mode line icon for showing/hiding passwords.")
(defun read-passwd--toggle-visibility ()
(defun read-passwd-toggle-visibility ()
"Toggle minibuffer contents visibility.
Adapt also mode line."
(interactive)
@ -10883,7 +10883,7 @@ Adapt also mode line."
mouse-face mode-line-highlight
local-map
(keymap
(mode-line keymap (mouse-1 . read-passwd--toggle-visibility)))))
(mode-line keymap (mouse-1 . read-passwd-toggle-visibility)))))
(force-mode-line-update))
(read-passwd--hide-password))
@ -10902,7 +10902,7 @@ Adapt also mode line."
(define-icon read-passwd--show-password-icon nil
'((image "reveal.svg" "reveal.pbm" :height (0.8 . em))
(symbol "👁")
(text "o"))
(text "<o>"))
"Mode line icon to show a hidden password."
:group mode-line-faces
:version "30.1"
@ -10910,7 +10910,7 @@ Adapt also mode line."
(define-icon read-passwd--hide-password-icon nil
'((image "conceal.svg" "conceal.pbm" :height (0.8 . em))
(symbol "⦵")
(text "x"))
(text "<\\>"))
"Mode line icon to hide a visible password."
:group mode-line-faces
:version "30.1"
@ -10937,7 +10937,7 @@ Adapt also mode line."
(setq mode-line-format (cdr mode-line-format)))))
(when read-passwd-mode
(read-passwd--toggle-visibility)))
(read-passwd-toggle-visibility)))
(defvar messages-buffer-mode-map

2
lisp/subr.el
View file

@ -3378,7 +3378,7 @@ with Emacs. Do not call it directly in your own packages."
(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)
(define-key map "\t" #'read-passwd-toggle-visibility)
map)
"Keymap used while reading passwords.")