# HG changeset patch
# User Johan Bockg���rd <bojohan@gnu.org>
# Date 1204992385 0
# Node ID f32191b4080df4ad24de66507c85f957165353d3
# Parent  56c940bf55c1f853ae7ab0e5370daec5356843de
(while-no-input): Don't splice BODY directly into the `or' form.

diff -r 56c940bf55c1 -r f32191b4080d lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Mar 08 15:56:19 2008 +0000
+++ b/lisp/ChangeLog	Sat Mar 08 16:06:25 2008 +0000
@@ -1,3 +1,8 @@
+2008-03-08  Johan Bockg$(Q)[(Brd  <bojohan@gnu.org>
+
+	* subr.el (while-no-input): Don't splice BODY directly into the
+	`or' form.
+
 2008-03-08  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* diff-mode.el (diff-ignore-whitespace-hunk): Bind
diff -r 56c940bf55c1 -r f32191b4080d lisp/subr.el
--- 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.