Mercurial > emacs
comparison lisp/subr.el @ 92621:f32191b4080d
(while-no-input): Don't splice BODY directly into the `or' form.
| author | Johan Bockgård <bojohan@gnu.org> |
|---|---|
| date | Sat, 08 Mar 2008 16:06:25 +0000 |
| parents | eb2dddded6bc |
| children | 73a01bf5cb80 |
comparison
equal
deleted
inserted
replaced
| 92620:56c940bf55c1 | 92621:f32191b4080d |
|---|---|
| 2597 (let ((catch-sym (make-symbol "input"))) | 2597 (let ((catch-sym (make-symbol "input"))) |
| 2598 `(with-local-quit | 2598 `(with-local-quit |
| 2599 (catch ',catch-sym | 2599 (catch ',catch-sym |
| 2600 (let ((throw-on-input ',catch-sym)) | 2600 (let ((throw-on-input ',catch-sym)) |
| 2601 (or (input-pending-p) | 2601 (or (input-pending-p) |
| 2602 ,@body)))))) | 2602 (progn ,@body))))))) |
| 2603 | 2603 |
| 2604 (defmacro condition-case-no-debug (var bodyform &rest handlers) | 2604 (defmacro condition-case-no-debug (var bodyform &rest handlers) |
| 2605 "Like `condition-case' except that it does not catch anything when debugging. | 2605 "Like `condition-case' except that it does not catch anything when debugging. |
| 2606 More specifically if `debug-on-error' is set, then it does not catch any signal." | 2606 More specifically if `debug-on-error' is set, then it does not catch any signal." |
| 2607 (declare (debug condition-case) (indent 2)) | 2607 (declare (debug condition-case) (indent 2)) |