Mercurial > emacs
changeset 36817:d37840301629
(specbind): Call store_symval_forwarding with BUF null.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 15 Mar 2001 09:43:16 +0000 |
| parents | f8cbdb29cbe6 |
| children | c2640df9b55b |
| files | src/eval.c |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/eval.c Thu Mar 15 09:42:53 2001 +0000 +++ b/src/eval.c Thu Mar 15 09:43:16 2001 +0000 @@ -2950,7 +2950,7 @@ specpdl_ptr++; if (BUFFER_OBJFWDP (ovalue) || KBOARD_OBJFWDP (ovalue)) - store_symval_forwarding (symbol, ovalue, value); + store_symval_forwarding (symbol, ovalue, value, NULL); else set_internal (symbol, value, 0, 1); } @@ -2990,10 +2990,10 @@ so in that case the "old value" is a list of forms to evaluate. */ else if (NILP (specpdl_ptr->symbol)) Fprogn (specpdl_ptr->old_value); - /* If the symbol is a list, it is really - (SYMBOL BINDING_BUFFER . CURRENT_BUFFER) - and it indicates we bound a variable that has - buffer-local bindings. */ + /* If the symbol is a list, it is really (SYMBOL BINDING_BUFFER + . CURRENT_BUFFER) and it indicates we bound a variable that + has buffer-local bindings. BINDING_BUFFER nil means that the + variable had the default value when it was bound. */ else if (CONSP (specpdl_ptr->symbol)) { Lisp_Object symbol, buffer;