aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
authorStefan Monnier2014-12-05 15:30:09 -0500
committerStefan Monnier2014-12-05 15:30:09 -0500
commit4fda400e58339cdf962b5679bf05ebe62c6189c5 (patch)
tree8588108b9046f7ec6747112cd30509466ea49459 /src/eval.c
parent0d7b2c96d388f5a9b539df3cb7f4ef115e7010b7 (diff)
parentc1c2cee7c5ae1eff6edb198814423e55cb11cc73 (diff)
downloademacs-4fda400e58339cdf962b5679bf05ebe62c6189c5.tar.gz
emacs-4fda400e58339cdf962b5679bf05ebe62c6189c5.zip
Merge from emacs-24
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/eval.c b/src/eval.c
index 8a83fdb7880..8194468a650 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1533,8 +1533,7 @@ 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 (clause) 1536 || (CONSP (clause) && !NILP (Fmemq (Qdebug, clause)))
1537 && !NILP (Fmemq (Qdebug, clause)))
1538 /* Special handler that means "print a message and run debugger 1537 /* Special handler that means "print a message and run debugger
1539 if requested". */ 1538 if requested". */
1540 || EQ (h->tag_or_ch, Qerror))) 1539 || EQ (h->tag_or_ch, Qerror)))
@@ -1918,7 +1917,7 @@ DEFUN ("autoload-do-load", Fautoload_do_load, Sautoload_do_load, 1, 3, 0,
1918If non-nil, FUNNAME should be the symbol whose function value is FUNDEF, 1917If non-nil, FUNNAME should be the symbol whose function value is FUNDEF,
1919in which case the function returns the new autoloaded function value. 1918in which case the function returns the new autoloaded function value.
1920If equal to `macro', MACRO-ONLY specifies that FUNDEF should only be loaded if 1919If equal to `macro', MACRO-ONLY specifies that FUNDEF should only be loaded if
1921it is defines a macro. */) 1920it defines a macro. */)
1922 (Lisp_Object fundef, Lisp_Object funname, Lisp_Object macro_only) 1921 (Lisp_Object fundef, Lisp_Object funname, Lisp_Object macro_only)
1923{ 1922{
1924 ptrdiff_t count = SPECPDL_INDEX (); 1923 ptrdiff_t count = SPECPDL_INDEX ();
@@ -3405,7 +3404,6 @@ backtrace_eval_unrewind (int distance)
3405 for (; distance > 0; distance--) 3404 for (; distance > 0; distance--)
3406 { 3405 {
3407 tmp += step; 3406 tmp += step;
3408 /* */
3409 switch (tmp->kind) 3407 switch (tmp->kind)
3410 { 3408 {
3411 /* FIXME: Ideally we'd like to "temporarily unwind" (some of) those 3409 /* FIXME: Ideally we'd like to "temporarily unwind" (some of) those