Mercurial > emacs
changeset 95671:b88c2237c3e7
(minibuffer-message): Bind inhibit-quit around
sit-for.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 08 Jun 2008 14:10:50 +0000 |
| parents | d4f0cb2dfc4d |
| children | df59f8d16051 |
| files | lisp/ChangeLog lisp/minibuffer.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Jun 08 13:02:38 2008 +0000 +++ b/lisp/ChangeLog Sun Jun 08 14:10:50 2008 +0000 @@ -1,3 +1,8 @@ +2008-06-08 Andreas Schwab <schwab@suse.de> + + * minibuffer.el (minibuffer-message): Bind inhibit-quit around + sit-for. + 2008-06-08 Martin Rudalics <rudalics@gmx.at> * window.el (split-height-threshold, split-width-threshold): Add
--- a/lisp/minibuffer.el Sun Jun 08 13:02:38 2008 +0000 +++ b/lisp/minibuffer.el Sun Jun 08 14:10:50 2008 +0000 @@ -281,7 +281,10 @@ (copy-sequence message) (concat " [" message "]"))) (when args (setq message (apply 'format message args))) - (let ((ol (make-overlay (point-max) (point-max) nil t t))) + (let ((ol (make-overlay (point-max) (point-max) nil t t)) + ;; A quit during sit-for should be (re-)read as + ;; abort-recursive-edit + (inhibit-quit t)) (unwind-protect (progn (unless (zerop (length message))