/[erbot]/erbot/erbc5.el
ViewVC logotype

Diff of /erbot/erbc5.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by deego, Sat Jan 8 17:53:08 2005 UTC revision 1.12 by deego, Thu Apr 28 16:27:27 2005 UTC
# Line 1  Line 1 
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
# Line 225  I think it is safe, but not 100% sure, s Line 225  I think it is safe, but not 100% sure, s
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    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26