Mercurial > emacs
changeset 16931:8bdfc6767130
(set_internal): New subroutine. New arg BINDFLAG.
Don't make a new buffer-local binding if BINDFLAG is 0.
(Fset): Use set_internal.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 25 Jan 1997 20:19:30 +0000 |
| parents | e1aba4a05388 |
| children | ada95b0e82ae |
| files | src/data.c |
| diffstat | 1 files changed, 17 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/data.c Sat Jan 25 20:19:07 1997 +0000 +++ b/src/data.c Sat Jan 25 20:19:30 1997 +0000 @@ -902,6 +902,19 @@ (symbol, newval) register Lisp_Object symbol, newval; { + return set_internal (symbol, newval, 0); +} + +/* Stpre the value NEWVAL into SYMBOL. + If BINDFLAG is zero, then if this symbol is supposed to become + local in every buffer where it is set, then we make it local. + If BINDFLAG is nonzero, we don't do that. */ + +Lisp_Object +set_internal (symbol, newval, bindflag) + register Lisp_Object symbol, newval; + int bindflag; +{ int voide = EQ (newval, Qunbound); register Lisp_Object valcontents, tem1, current_alist_element; @@ -978,13 +991,14 @@ /* This buffer still sees the default value. */ /* If the variable is a Lisp_Some_Buffer_Local_Value, + or if this is `let' rather than `set', make CURRENT-ALIST-ELEMENT point to itself, indicating that we're seeing the default value. */ - if (SOME_BUFFER_LOCAL_VALUEP (valcontents)) + if (bindflag || SOME_BUFFER_LOCAL_VALUEP (valcontents)) tem1 = XCONS (XBUFFER_LOCAL_VALUE (valcontents)->cdr)->cdr; - /* If it's a Lisp_Buffer_Local_Value, give this buffer a - new assoc for a local value and set + /* If it's a Lisp_Buffer_Local_Value, being set not bound, + give this buffer a new assoc for a local value and set CURRENT-ALIST-ELEMENT to point to that. */ else {