[Emacs-diffs] trunk r114524: * lisp/subr.el (read-passwd): Hide chars even when called within a context

[Stefan Monnier]

------------------------------------------------------------
revno: 114524
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=15501
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-10-04 15:06:45 -0400
message:
  * lisp/subr.el (read-passwd): Hide chars even when called within a context
  where after-change-functions is disabled.
  (set-temporary-overlay-map): Don't remove oneself from pre-command-hook
  until we removed ourself from overriding-terminal-local-map.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/subr.el                   subr.el-20091113204419-o5vbwnq5f7feedwu-151

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-04 15:11:13 +0000
+++ b/lisp/ChangeLog    2013-10-04 19:06:45 +0000
@@ -1,7 +1,14 @@
+2013-10-04  Stefan Monnier  <address@hidden>
+
+       * subr.el (read-passwd): Hide chars even when called within a context
+       where after-change-functions is disabled (bug#15501).
+       (set-temporary-overlay-map): Don't remove oneself from pre-command-hook
+       until we removed ourself from overriding-terminal-local-map.
+
 2013-10-04  Leo Liu  <address@hidden>
 
-       * progmodes/octave.el (inferior-octave-mode): Call
-       compilation-forget-errors.
+       * progmodes/octave.el (inferior-octave-mode):
+       Call compilation-forget-errors.
 
 2013-10-04  Xue Fuqiao  <address@hidden>
 

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2013-10-03 04:41:23 +0000
+++ b/lisp/subr.el      2013-10-04 19:06:45 +0000
@@ -2104,6 +2104,7 @@
             (setq-local buffer-undo-list t)
             (setq-local select-active-regions nil)
             (use-local-map read-passwd-map)
+            (setq-local inhibit-modification-hooks nil) ;bug#15501.
             (add-hook 'after-change-functions hide-chars-fun nil 'local))
         (unwind-protect
             (let ((enable-recursive-minibuffers t))
@@ -4394,14 +4395,15 @@
             ;; suspended during the C-u one so we don't exit isearch just
             ;; because we hit 1 after C-u and that 1 exits isearch whereas it
             ;; doesn't exit C-u.
-            (unless (cond ((null keep-pred) nil)
-                          ((eq t keep-pred)
-                           (eq this-command
-                               (lookup-key map (this-command-keys-vector))))
-                          (t (funcall keep-pred)))
-              (remove-hook 'pre-command-hook clearfun)
-              (internal-pop-keymap map 'overriding-terminal-local-map)
-              (when on-exit (funcall on-exit)))))
+            (with-demoted-errors "set-temporary-overlay-map PCH: %S"
+              (unless (cond ((null keep-pred) nil)
+                            ((eq t keep-pred)
+                             (eq this-command
+                                 (lookup-key map (this-command-keys-vector))))
+                            (t (funcall keep-pred)))
+                (internal-pop-keymap map 'overriding-terminal-local-map)
+                (remove-hook 'pre-command-hook clearfun)
+                (when on-exit (funcall on-exit))))))
     (add-hook 'pre-command-hook clearfun)
     (internal-push-keymap map 'overriding-terminal-local-map)))