(minibuffer-message): Bind inhibit-quit around

sit-for.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae82adca289175329ea09a9fd2f30d540e7185bf..5521c6b7ddd4769abf095fdaaca94185033a138f 100644 (file)
--- 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 2582afab3c126247e2be0a708a026ff86f9d0504..2be39d23ddea93e6487e511c90d52624b1c6d775 100644 (file)
--- 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))