From 2df5238c1a7e97c9271a6bebd369b9a2c3e304eb Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Sun, 4 Nov 2001 10:28:01 +0000 Subject: [PATCH] (top_level_value, top_level_set): Remove commented and #ifdef'd-out code. (Fdefvar): Fix usage in doc-string. --- src/ChangeLog | 6 ++++++ src/eval.c | 42 +----------------------------------------- 2 files changed, 7 insertions(+), 41 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 43efd8fc05e..86f77019fc4 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2001-11-04 Pavel Jan,Bm(Bk + + * eval.c (top_level_value, top_level_set): Remove commented and + #ifdef'd-out code. + (Fdefvar): Fix usage in doc-string. + 2001-11-03 Richard M. Stallman * xfns.c: Include unistd.h, if it exists. diff --git a/src/eval.c b/src/eval.c index bcb3a76d708..8a3ee8cb761 100644 --- a/src/eval.c +++ b/src/eval.c @@ -720,7 +720,7 @@ If DOCSTRING starts with *, this variable is identified as a user option. This means that M-x set-variable recognizes it. See also `user-variable-p'. If INITVALUE is missing, SYMBOL's value is not set. -usage: (defvar SYMBOL [INITVALUE DOCSTRING]) */) +usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */) (args) Lisp_Object args; { @@ -3106,46 +3106,6 @@ unbind_to (count, value) return value; } -#if 0 - -/* Get the value of symbol's global binding, even if that binding - is not now dynamically visible. */ - -Lisp_Object -top_level_value (symbol) - Lisp_Object symbol; -{ - register struct specbinding *ptr = specpdl; - - CHECK_SYMBOL (symbol); - for (; ptr != specpdl_ptr; ptr++) - { - if (EQ (ptr->symbol, symbol)) - return ptr->old_value; - } - return Fsymbol_value (symbol); -} - -Lisp_Object -top_level_set (symbol, newval) - Lisp_Object symbol, newval; -{ - register struct specbinding *ptr = specpdl; - - CHECK_SYMBOL (symbol); - for (; ptr != specpdl_ptr; ptr++) - { - if (EQ (ptr->symbol, symbol)) - { - ptr->old_value = newval; - return newval; - } - } - return Fset (symbol, newval); -} - -#endif /* 0 */ - DEFUN ("backtrace-debug", Fbacktrace_debug, Sbacktrace_debug, 2, 2, 0, doc: /* Set the debug-on-exit flag of eval frame LEVEL levels down to FLAG. The debugger is entered when that frame exits, if the flag is non-nil. */) -- 2.39.5