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

* subr.el (read-passwd): Allow C-u to erase entry.

Browse source 
Fixes: debbugs:12570
This commit is contained in:
Glenn Morris 2012-10-05 19:47:26 -07:00
parent 123ec15769
commit d5acb99a19
2 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2012-10-06 Glenn Morris <rgm@gnu.org>
* subr.el (read-passwd): Allow C-u to erase entry. (Bug#12570)
2012-10-06 Julian Scheid <julians37@gmail.com> (tiny change)
* color.el (color-hsl-to-rgb): Fix incorrect results for

12
lisp/subr.el
View file

@ -2182,8 +2182,16 @@ by doing (clear-string STRING)."
(set (make-local-variable 'post-self-insert-hook) nil)
(add-hook 'after-change-functions hide-chars-fun nil 'local))
(unwind-protect
(let ((enable-recursive-minibuffers t))
(read-string prompt nil t default)) ; t = "no history"
(let ((enable-recursive-minibuffers t)
(map minibuffer-local-map)
result)
(define-key map "\C-u" ; bug#12570
(lambda () (interactive) (delete-minibuffer-contents)))
(setq result
;; t = no history.
(read-from-minibuffer prompt nil map nil t default))
(if (and (equal "" result) default) default
result))
(when (buffer-live-p minibuf)
(with-current-buffer minibuf
;; Not sure why but it seems that there might be cases where the