changeset 40703:21597de09a0d

(top_level_value, top_level_set): Remove commented and #ifdef'd-out code. (Fdefvar): Fix usage in doc-string.
author Pavel Janík <Pavel@Janik.cz>
date Sun, 04 Nov 2001 10:24:51 +0000
parents c6abdf439937
children b2731291b2d0
files src/eval.c
diffstat 1 files changed, 1 insertions(+), 41 deletions(-) [+]
line wrap: on
line diff
--- a/src/eval.c	Sun Nov 04 03:21:13 2001 +0000
+++ b/src/eval.c	Sun Nov 04 10:24:51 2001 +0000
@@ -720,7 +720,7 @@
  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 @@
   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.  */)