Mercurial > emacs
comparison lisp/subr.el @ 70903:fe6029063ab4
(with-local-quit): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 25 May 2006 00:20:40 +0000 |
| parents | cc60343f8fd6 |
| children | a0da1a83020d |
comparison
equal
deleted
inserted
replaced
| 70902:e516a97ce0e6 | 70903:fe6029063ab4 |
|---|---|
| 2313 (kill-buffer nil))))) | 2313 (kill-buffer nil))))) |
| 2314 | 2314 |
| 2315 (defmacro with-local-quit (&rest body) | 2315 (defmacro with-local-quit (&rest body) |
| 2316 "Execute BODY, allowing quits to terminate BODY but not escape further. | 2316 "Execute BODY, allowing quits to terminate BODY but not escape further. |
| 2317 When a quit terminates BODY, `with-local-quit' returns nil but | 2317 When a quit terminates BODY, `with-local-quit' returns nil but |
| 2318 requests another quit. That quit will be processed, the next time quitting | 2318 requests another quit. That quit will be processed as soon as quitting |
| 2319 is allowed once again." | 2319 is allowed once again. (Immediately, if `inhibit-quit' is nil.)" |
| 2320 (declare (debug t) (indent 0)) | 2320 (declare (debug t) (indent 0)) |
| 2321 `(condition-case nil | 2321 `(condition-case nil |
| 2322 (let ((inhibit-quit nil)) | 2322 (let ((inhibit-quit nil)) |
| 2323 ,@body) | 2323 ,@body) |
| 2324 (quit (setq quit-flag t) | 2324 (quit (setq quit-flag t) |