(top_level_value, top_level_set): Remove commented and #ifdef'd-out code.

(Fdefvar): Fix usage in doc-string.

diff --git a/src/ChangeLog b/src/ChangeLog
index 43efd8fc05ed61930fd5949cf9fc4cc216d5a5b5..86f77019fc4171b0e1d870e3acfb49060723e159 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2001-11-04  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+
+       * 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  <rms@gnu.org>
 
        * xfns.c: Include unistd.h, if it exists.

diff --git a/src/eval.c b/src/eval.c
index bcb3a76d70826dbfe86643dbbda09849ae1f8377..8a3ee8cb761f3ef70f433c93d14a4e2399a1c9fe 100644 (file)
--- 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;
 }
 \f
-#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 */
-\f
 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.  */)