HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
380b01e
)
ignore-errors ignores scheme exceptions
author
Robin Templeton
<robin@terpri.org>
Mon, 11 Aug 2014 10:59:48 +0000
(06:59 -0400)
committer
Robin Templeton
<robin@terpri.org>
Mon, 9 Feb 2015 18:04:26 +0000
(13:04 -0500)
lisp/subr.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/subr.el
b/lisp/subr.el
index
c6e92bf
..
9d9b927
100644
(file)
--- a/
lisp/subr.el
+++ b/
lisp/subr.el
@@
-234,7
+234,12
@@
Otherwise, return result of last form in BODY.
See also `with-demoted-errors' that does something similar
without silencing all errors."
(declare (debug t) (indent 0))
- `(condition-case nil (progn ,@body) (error nil)))
+ `(condition-case nil
+ (%funcall (@ (guile) catch)
+ t
+ #'(lambda () ,@body)
+ #'(lambda (&rest args) nil))
+ (error nil)))
\f
;;;; Basic Lisp functions.