diff options
| author | Stefan Monnier | 2014-01-24 22:48:29 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2014-01-24 22:48:29 -0500 |
| commit | afd4479fde97159b758a6f5124611c260e292b80 (patch) | |
| tree | e210751d3642f9cbf661f0620bed1339f13f9cdd /src/eval.c | |
| parent | 4d000e69157119f4da37340ff355818556841bfd (diff) | |
| download | emacs-afd4479fde97159b758a6f5124611c260e292b80.tar.gz emacs-afd4479fde97159b758a6f5124611c260e292b80.zip | |
* src/eval.c (Fsignal): Fix `debug' handling to match 2013-10-03 change.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index 8d0c08b2e3a..91b8d17769d 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1533,8 +1533,8 @@ See also the function `condition-case'. */) | |||
| 1533 | || NILP (clause) | 1533 | || NILP (clause) |
| 1534 | /* A `debug' symbol in the handler list disables the normal | 1534 | /* A `debug' symbol in the handler list disables the normal |
| 1535 | suppression of the debugger. */ | 1535 | suppression of the debugger. */ |
| 1536 | || (CONSP (clause) && CONSP (XCAR (clause)) | 1536 | || (CONSP (clause) && CONSP (clause) |
| 1537 | && !NILP (Fmemq (Qdebug, XCAR (clause)))) | 1537 | && !NILP (Fmemq (Qdebug, clause))) |
| 1538 | /* Special handler that means "print a message and run debugger | 1538 | /* Special handler that means "print a message and run debugger |
| 1539 | if requested". */ | 1539 | if requested". */ |
| 1540 | || EQ (h->tag_or_ch, Qerror))) | 1540 | || EQ (h->tag_or_ch, Qerror))) |