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

[Johan Bockgård]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Johan Bockgård <bojohan>       08/03/08 16:06:26

Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.580
retrieving revision 1.581
diff -u -b -r1.580 -r1.581
--- subr.el     5 Mar 2008 04:29:53 -0000       1.580
+++ subr.el     8 Mar 2008 16:06:24 -0000       1.581
@@ -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.