[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105506: * src/eval.c (Fsignal): Hand
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r105506: * src/eval.c (Fsignal): Handle `debug' symbol in error handler. |
Date: |
Sat, 20 Aug 2011 17:17:06 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 105506
fixes bug(s): http://debbugs.gnu.org/9329
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2011-08-20 17:17:06 -0400
message:
* src/eval.c (Fsignal): Handle `debug' symbol in error handler.
modified:
src/ChangeLog
src/eval.c
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog 2011-08-19 11:30:29 +0000
+++ b/src/ChangeLog 2011-08-20 21:17:06 +0000
@@ -1,3 +1,7 @@
+2011-08-20 Chong Yidong <address@hidden>
+
+ * eval.c (Fsignal): Handle `debug' symbol in error handler (Bug#9329).
+
2011-08-19 Eli Zaretskii <address@hidden>
* xfaces.c (face_at_buffer_position): Avoid repeated evaluation of
=== modified file 'src/eval.c'
--- a/src/eval.c 2011-08-17 21:40:13 +0000
+++ b/src/eval.c 2011-08-20 21:17:06 +0000
@@ -1699,6 +1699,10 @@
&& (!NILP (Vdebug_on_signal)
/* If no handler is present now, try to run the debugger. */
|| NILP (clause)
+ /* A `debug' symbol in the handler list disables the normal
+ suppression of the debugger. */
+ || (CONSP (clause) && CONSP (XCAR (clause))
+ && !NILP (Fmemq (Qdebug, XCAR (clause))))
/* Special handler that means "print a message and run debugger
if requested". */
|| EQ (h->handler, Qerror)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105506: * src/eval.c (Fsignal): Handle `debug' symbol in error handler.,
Chong Yidong <=