From 53a7160c9282d9577ec3f6a6168b0b7c824c5e45 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 31 Jul 2004 03:42:27 +0000 Subject: [PATCH] (with-local-quit): Doc fix. --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d1ec8994edb..05daa1d088b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-07-30 Richard M. Stallman + + * subr.el (with-local-quit): Doc fix. + 2004-07-30 Luc Teirlinck * international/utf-8.el (utf-translate-cjk-mode): Doc fix. diff --git a/lisp/subr.el b/lisp/subr.el index 1e30a127f71..8282e3a9316 100644 --- 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)) -- 2.39.2