(with-local-quit): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d1ec8994edb0916819fef0cfc573bcf532b2e337..05daa1d088bb6b3a602de380bee6794940c93abc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-07-30  Richard M. Stallman  <rms@gnu.org>
+
+       * subr.el (with-local-quit): Doc fix.
+
 2004-07-30  Luc Teirlinck  <teirllm@auburn.edu>
 
        * international/utf-8.el (utf-translate-cjk-mode): Doc fix.

diff --git a/lisp/subr.el b/lisp/subr.el
index 1e30a127f714af707842abec0fc66cbcd1025054..8282e3a9316bf301312a791f201b0a38470592aa 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1894,7 +1894,10 @@ See also `with-temp-file' and `with-output-to-string'."
         (kill-buffer nil)))))
 
 (defmacro with-local-quit (&rest body)
-  "Execute BODY with `inhibit-quit' temporarily bound to nil."
+  "Execute BODY, allowing quits to terminate BODY but not escape further.
+When a quit terminates BODY, `with-local-quit' requests another quit when
+it finishes.  That quit will be processed in turn, the next time quitting
+is again allowed."
   (declare (debug t) (indent 0))
   `(condition-case nil
        (let ((inhibit-quit nil))