[Erbot-cvs] Changes to erbot/erbc5.el

[D . Goel]

Index: erbot/erbc5.el
diff -u erbot/erbc5.el:1.11 erbot/erbc5.el:1.12
--- erbot/erbc5.el:1.11 Sat Jan  8 17:53:08 2005
+++ erbot/erbc5.el      Thu Apr 28 16:27:27 2005
@@ -1,5 +1,5 @@
 ;;; erbc5.el --- continuation of erbc.el
-;; Time-stamp: <2005-01-08 12:52:25 deego>
+;; Time-stamp: <2005-04-28 11:37:51 deego>
 ;; Copyright (C) 2003 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbc5.el
@@ -225,6 +225,23 @@
 
 
 
+(defmacro fsi-ignore-errors-else-string (&rest body)
+  "Like ignore-errors, but tells and returns the erros.
+\(Improved for me by Kalle on 7/3/01:)"
+  (let ((err (gensym)))
+    `(condition-case ,err (progn ,@body)
+       (error
+       (let 
+           ((str       
+             (message "IGNORED ERROR: %s" (error-message-string ,err))))
+         (ding t)
+         (ding t)
+         (ding t)
+         (sit-for 1)
+         str)))))
+
+
+
 (provide 'erbc5)
 (run-hooks 'erbc5-after-load-hook)