From 984ef137be37ec0037e0a01940fd1e265dc00faa Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 27 Feb 1998 21:56:28 +0000 Subject: [PATCH] (store_symval_forwarding) : If buffer_local_types has -1, this variable is read-only. (Fset_default) : Unconditionally set the slot in buffer_defaults. --- src/data.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/data.c b/src/data.c index ba7ed98b527..492b87e30b7 100644 --- a/src/data.c +++ b/src/data.c @@ -784,6 +784,9 @@ store_symval_forwarding (symbol, valcontents, newval) Lisp_Object type; type = *(Lisp_Object *)(offset + (char *)&buffer_local_types); + if (XINT (type) == -1) + error ("Variable %s is read-only", XSYMBOL (symbol)->name->data); + if (! NILP (type) && ! NILP (newval) && XTYPE (newval) != XINT (type)) buffer_slot_type_mismatch (offset); @@ -1146,9 +1149,12 @@ for this variable.") register int mask = XINT (*((Lisp_Object *) (idx + (char *)&buffer_local_flags))); + *(Lisp_Object *)(idx + (char *) &buffer_defaults) = value; + + /* If this variable is not always local in all buffers, + set it in the buffers that don't nominally have a local value. */ if (mask > 0) { - *(Lisp_Object *)(idx + (char *) &buffer_defaults) = value; for (b = all_buffers; b; b = b->next) if (!(b->local_var_flags & mask)) *(Lisp_Object *)(idx + (char *) b) = value; -- 2.39.2