emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r109620: * lisp/subr.el (read-passwd)


From: Stefan Monnier
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r109620: * lisp/subr.el (read-passwd): Allow use from a minibuffer.
Date: Tue, 14 Aug 2012 17:48:52 -0400
User-agent: Bazaar (2.5.0)

------------------------------------------------------------
revno: 109620
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2012-08-14 17:48:52 -0400
message:
  * lisp/subr.el (read-passwd): Allow use from a minibuffer.
modified:
  lisp/ChangeLog
  lisp/subr.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-14 18:48:39 +0000
+++ b/lisp/ChangeLog    2012-08-14 21:48:52 +0000
@@ -1,3 +1,7 @@
+2012-08-14  Stefan Monnier  <address@hidden>
+
+       * subr.el (read-passwd): Allow use from a minibuffer.
+
 2012-08-14  Eli Zaretskii  <address@hidden>
 
        * 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).

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2012-08-14 04:37:00 +0000
+++ b/lisp/subr.el      2012-08-14 21:48:52 +0000
@@ -2182,7 +2182,8 @@
             (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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]