From: Stefan Monnier Date: Tue, 14 Aug 2012 21:48:52 +0000 (-0400) Subject: * lisp/subr.el (read-passwd): Allow use from a minibuffer. X-Git-Tag: emacs-24.2.90~669 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b4f5e9df77f42a033b64c2be00a4c6ca7bcf0c58;p=emacs.git * lisp/subr.el (read-passwd): Allow use from a minibuffer. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 83ac7fa86ef..ddbb1c2d3df 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-08-14 Stefan Monnier + + * subr.el (read-passwd): Allow use from a minibuffer. + 2012-08-14 Eli Zaretskii * tooltip.el (tooltip-identifier-from-point): Don't treat tokens @@ -13,8 +17,8 @@ * progmodes/gdb-mi.el (gdb-tooltip-print): Don't ignore error messages from GDB, pop them up in a tooltip to give feedback to user. - (gdb-tooltip-print-1): Quote the expression to evaluate. This - allows to evaluate expressions with embedded whitespace. + (gdb-tooltip-print-1): Quote the expression to evaluate. + This allows to evaluate expressions with embedded whitespace. (gdb-inferior-io--init-proc): Don't send "-inferior-tty" command if the TTY name is nil or empty (which happens when communicating with the inferior via pipes, e.g. on MS-Windows). diff --git a/lisp/subr.el b/lisp/subr.el index 4f566a3e1d3..04ff81e997a 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2182,7 +2182,8 @@ 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 - (read-string prompt nil t default) ; t = "no history" + (let ((enable-recursive-minibuffers t)) + (read-string prompt nil t default)) ; t = "no history" (when (buffer-live-p minibuf) (with-current-buffer minibuf ;; Not sure why but it seems that there might be cases where the