+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
(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