diff options
| author | Glenn Morris | 2008-05-07 02:58:25 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-05-07 02:58:25 +0000 |
| commit | 93fd3b3010cae8a68ec0e00684ddacb78a52c537 (patch) | |
| tree | 05dd48035c52965835b12362f4ca5e6c5952cf6a | |
| parent | 6b5de136853e922ee17aed7aec6b99b875bdeff4 (diff) | |
| download | emacs-93fd3b3010cae8a68ec0e00684ddacb78a52c537.tar.gz emacs-93fd3b3010cae8a68ec0e00684ddacb78a52c537.zip | |
(ignore-errors): Move to subr.el.
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 6d54066fe4e..121bd5eea3b 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -2519,13 +2519,6 @@ omitted, a default message listing FORM itself is used." | |||
| 2519 | (list* 'list (list 'quote form) sargs)))) | 2519 | (list* 'list (list 'quote form) sargs)))) |
| 2520 | nil)))) | 2520 | nil)))) |
| 2521 | 2521 | ||
| 2522 | ;;;###autoload | ||
| 2523 | (defmacro ignore-errors (&rest body) | ||
| 2524 | "Execute BODY; if an error occurs, return nil. | ||
| 2525 | Otherwise, return result of last form in BODY." | ||
| 2526 | `(condition-case nil (progn ,@body) (error nil))) | ||
| 2527 | |||
| 2528 | |||
| 2529 | ;;; Compiler macros. | 2522 | ;;; Compiler macros. |
| 2530 | 2523 | ||
| 2531 | ;;;###autoload | 2524 | ;;;###autoload |