From 05ef7169a0e61acf5a79dc8da79f742bb048e723 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 25 Jan 1997 20:19:30 +0000 Subject: [PATCH] (set_internal): New subroutine. New arg BINDFLAG. Don't make a new buffer-local binding if BINDFLAG is 0. (Fset): Use set_internal. --- src/data.c | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) diff --git a/src/data.c b/src/data.c index bd7d0bc4ac5..6fac1131eba 100644 --- a/src/data.c +++ b/src/data.c @@ -901,6 +901,19 @@ DEFUN ("set", Fset, Sset, 2, 2, 0, "Set SYMBOL's value to NEWVAL, and return NEWVAL.") (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); @@ -978,13 +991,14 @@ DEFUN ("set", Fset, Sset, 2, 2, 0, /* 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 { -- 2.39.5