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 |
{ |
{ |
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. */) |