.emacs-my
changeset 721 3eb929c032f4
parent 719 694f7e388f2b
parent 720 e50b78c6a53d
child 722 7d43d5ae86fe
child 723 ff912b026ad2
--- a/.emacs-my	Thu Oct 06 11:35:21 2011 +0300
+++ b/.emacs-my	Thu Oct 06 17:03:32 2011 +0300
@@ -76,6 +76,14 @@
     x2
     ) )
 
+(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")