changeset 720 | e50b78c6a53d |
parent 699 | 9ec79850e725 |
child 721 | 3eb929c032f4 |
--- a/.emacs-my Mon Sep 19 21:05:09 2011 +0300 +++ b/.emacs-my Thu Oct 06 16:41:35 2011 +0300 @@ -66,6 +66,14 @@ ,list) r)) +(unless (fboundp 'ignore-errors) + (defmacro ignore-errors (&rest body) + "Execute BODY; if an error occurs, return nil. +Otherwise, return result of last form in BODY." + (declare (debug t) (indent 0)) + `(condition-case nil (progn ,@body) (error nil))) + ) + ;;; ---------------------------------------------------------------- (message "mode groups")