Mercurial > emacs

diff lisp/subr.el @ 92621:f32191b4080d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
line wrap: on
line diff
--- a/lisp/subr.el	Sat Mar 08 15:56:19 2008 +0000
+++ b/lisp/subr.el	Sat Mar 08 16:06:25 2008 +0000
@@ -2599,7 +2599,7 @@
        (catch ',catch-sym
 	 (let ((throw-on-input ',catch-sym))
 	   (or (input-pending-p)
-	       ,@body))))))
+	       (progn ,@body)))))))
 
 (defmacro condition-case-no-debug (var bodyform &rest handlers)
   "Like `condition-case' except that it does not catch anything when debugging.