[Emacs-diffs] Changes to emacs/lisp/subr.el,v [EMACS_22_BASE]

[Johan Bockgård]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Johan Bockgård <bojohan>       08/03/08 16:00:28

Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.554.2.12
retrieving revision 1.554.2.13
diff -u -b -r1.554.2.12 -r1.554.2.13
--- subr.el     21 Feb 2008 08:11:39 -0000      1.554.2.12
+++ subr.el     8 Mar 2008 16:00:19 -0000       1.554.2.13
@@ -2478,7 +2478,7 @@
        (catch ',catch-sym
         (let ((throw-on-input ',catch-sym))
           (or (input-pending-p)
-              ,@body))))))
+              (progn ,@body)))))))
 
 (defmacro combine-after-change-calls (&rest body)
   "Execute BODY, but don't call the after-change functions till the end.