/[emacs]/emacs/src/eval.c
ViewVC logotype

Diff of /emacs/src/eval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.171 by pj, Fri Nov 2 22:40:00 2001 UTC revision 1.172 by pj, Sun Nov 4 10:24:51 2001 UTC
# Line 720  If DOCSTRING starts with *, this variabl Line 720  If DOCSTRING starts with *, this variabl
720   This means that M-x set-variable recognizes it.   This means that M-x set-variable recognizes it.
721   See also `user-variable-p'.   See also `user-variable-p'.
722  If INITVALUE is missing, SYMBOL's value is not set.  If INITVALUE is missing, SYMBOL's value is not set.
723  usage: (defvar SYMBOL [INITVALUE DOCSTRING])  */)  usage: (defvar SYMBOL &optional INITVALUE DOCSTRING)  */)
724       (args)       (args)
725       Lisp_Object args;       Lisp_Object args;
726  {  {
# Line 3106  unbind_to (count, value) Line 3106  unbind_to (count, value)
3106    return value;    return value;
3107  }  }
3108    
 #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 */  
   
3109  DEFUN ("backtrace-debug", Fbacktrace_debug, Sbacktrace_debug, 2, 2, 0,  DEFUN ("backtrace-debug", Fbacktrace_debug, Sbacktrace_debug, 2, 2, 0,
3110         doc: /* Set the debug-on-exit flag of eval frame LEVEL levels down to FLAG.         doc: /* Set the debug-on-exit flag of eval frame LEVEL levels down to FLAG.
3111  The debugger is entered when that frame exits, if the flag is non-nil.  */)  The debugger is entered when that frame exits, if the flag is non-nil.  */)

Legend:
Removed from v.1.171  
changed lines
  Added in v.1.172

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26