[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r114524: * lisp/subr.el (read-passwd): Hide chars ev
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] trunk r114524: * lisp/subr.el (read-passwd): Hide chars even when called within a context |
Date: |
Fri, 04 Oct 2013 19:06:49 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r114524: * lisp/subr.el (read-passwd): Hide chars even when called within a context,
Stefan Monnier <=