From ec07b64b8eef75156015cbea689919c005bfbc37 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 15 Jul 2007 18:58:25 +0000 Subject: [PATCH] (Fsetq): Doc fix. --- src/ChangeLog | 6 ++++++ src/eval.c | 6 +++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index e507754c0ba..2a68c99d328 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2007-07-15 Richard Stallman + + * data.c (Fsetq_default): Doc fix. + + * eval.c (Fsetq): Doc fix. + 2007-07-11 Jason Rumney * makefile.w32-in (LIBS): Include OLE32. diff --git a/src/eval.c b/src/eval.c index 6707849a840..4ce5c6d05a9 100644 --- a/src/eval.c +++ b/src/eval.c @@ -97,6 +97,7 @@ Lisp_Object Qinhibit_quit, Vinhibit_quit, Vquit_flag; Lisp_Object Qand_rest, Qand_optional; Lisp_Object Qdebug_on_error; Lisp_Object Qdeclare; +Lisp_Object Qdebug; /* This holds either the symbol `run-hooks' or nil. It is nil at an early stage of startup, and when Emacs @@ -530,7 +531,7 @@ Thus, (setq x (1+ y)) sets `x' to the value of `(1+ y)'. The second VAL is not computed until after the first SYM is set, and so on; each VAL can use the new value of variables set earlier in the `setq'. The return value of the `setq' form is the value of the last VAL. -usage: (setq SYM VAL SYM VAL ...) */) +usage: (setq [SYM VAL]...) */) (args) Lisp_Object args; { @@ -3600,6 +3601,9 @@ before making `inhibit-quit' nil. */); Qand_optional = intern ("&optional"); staticpro (&Qand_optional); + Qdebug = intern ("debug"); + staticpro (&Qdebug); + DEFVAR_LISP ("stack-trace-on-error", &Vstack_trace_on_error, doc: /* *Non-nil means errors display a backtrace buffer. More precisely, this happens for any error that is handled -- 2.39.5