* lisp/subr.el (read-passwd): Allow use from a minibuffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 83ac7fa86ef0c191b8439db332aca3f7aa007ce6..ddbb1c2d3df680841f83fb55a5f3afba0e0d8e26 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-08-14  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * subr.el (read-passwd): Allow use from a minibuffer.
+
 2012-08-14  Eli Zaretskii  <eliz@gnu.org>
 
        * 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 4f566a3e1d354d5817f0ccd6e73dce2daf6c01c0..04ff81e997a12e92dc5595a7ba1860fe4a382534 100644 (file)
--- 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