diff options
| author | Andreas Schwab <schwab@suse.de> | 2008-06-08 14:10:50 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2008-06-08 14:10:50 +0000 |
| commit | 24f7ee4cee91afc419cf916859da3041b6086562 (patch) | |
| tree | 7cde6fa40d41481881576876bff401f98cd39af2 /lisp/minibuffer.el | |
| parent | 2bd0c2e02fb6aa129aff58ed78ad428d77f364ce (diff) | |
| download | emacs-24f7ee4cee91afc419cf916859da3041b6086562.tar.gz | |
(minibuffer-message): Bind inhibit-quit around
sit-for.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 2582afab3c1..2be39d23dde 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -281,7 +281,10 @@ If ARGS are provided, then pass MESSAGE through `format'." (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)) |