(minibuffer-message): Bind inhibit-quit around

sit-for.

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae82adca289..5521c6b7ddd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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
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))