1 |
;;; erbc5.el --- continuation of erbc.el |
;;; erbc5.el --- continuation of erbc.el |
2 |
;; Time-stamp: <2005-01-08 12:52:25 deego> |
;; Time-stamp: <2005-04-28 11:37:51 deego> |
3 |
;; Copyright (C) 2003 D. Goel |
;; Copyright (C) 2003 D. Goel |
4 |
;; Emacs Lisp Archive entry |
;; Emacs Lisp Archive entry |
5 |
;; Filename: erbc5.el |
;; Filename: erbc5.el |
225 |
|
|
226 |
|
|
227 |
|
|
228 |
|
(defmacro fsi-ignore-errors-else-string (&rest body) |
229 |
|
"Like ignore-errors, but tells and returns the erros. |
230 |
|
\(Improved for me by Kalle on 7/3/01:)" |
231 |
|
(let ((err (gensym))) |
232 |
|
`(condition-case ,err (progn ,@body) |
233 |
|
(error |
234 |
|
(let |
235 |
|
((str |
236 |
|
(message "IGNORED ERROR: %s" (error-message-string ,err)))) |
237 |
|
(ding t) |
238 |
|
(ding t) |
239 |
|
(ding t) |
240 |
|
(sit-for 1) |
241 |
|
str))))) |
242 |
|
|
243 |
|
|
244 |
|
|
245 |
(provide 'erbc5) |
(provide 'erbc5) |
246 |
(run-hooks 'erbc5-after-load-hook) |
(run-hooks 'erbc5-after-load-hook) |
247 |
|
|