Mercurial > hg > xemacs-beta

diff lisp/cl/cl-macs.el @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents e121b013d1f0
children f53b5ca2e663
line wrap: on
line diff
--- a/lisp/cl/cl-macs.el	Mon Aug 13 09:54:24 2007 +0200
+++ b/lisp/cl/cl-macs.el	Mon Aug 13 09:55:28 2007 +0200
@@ -2404,8 +2404,7 @@
 (defmacro ignore-errors (&rest body)
   "Execute FORMS; if an error occurs, return nil.
 Otherwise, return result of last FORM."
-  (let ((err (gensym)))
-    (list 'condition-case err (cons 'progn body) '(error nil))))
+  (list 'condition-case nil (cons 'progn body) '(error nil)))
 
 
 ;;; Some predicates for analyzing Lisp forms.  These are used by various