Mercurial > emacs
changeset 10604:c954d143db84
(specbind): Handle display-local vars.
Move decl of store_symval_forwarding to lisp.h.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 31 Jan 1995 00:36:08 +0000 |
| parents | f33806464315 |
| children | bc37b55fcbb9 |
| files | src/eval.c |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/eval.c Tue Jan 31 00:35:14 1995 +0000 +++ b/src/eval.c Tue Jan 31 00:36:08 1995 +0000 @@ -2278,7 +2278,6 @@ specbind (symbol, value) Lisp_Object symbol, value; { - extern void store_symval_forwarding (); /* in eval.c */ Lisp_Object ovalue; CHECK_SYMBOL (symbol, 0); @@ -2289,7 +2288,7 @@ specpdl_ptr->func = 0; specpdl_ptr->old_value = ovalue = find_symbol_value (symbol); specpdl_ptr++; - if (BUFFER_OBJFWDP (ovalue)) + if (BUFFER_OBJFWDP (ovalue) || DISPLAY_OBJFWDP (ovalue)) store_symval_forwarding (symbol, ovalue, value); else Fset (symbol, value);