# HG changeset patch
# User michaels
# Date 1062508697 0
# Node ID 2264738f7ae4087b1543409990d76f32484a86f8
# Parent  0cf8519c122c3eb5b03e67e3684beb475e72e30f
[xemacs-hg @ 2003-09-02 13:18:14 by michaels]
2003-08-30  Mike Sperber  <mike@xemacs.org>

	* bytecode.c (execute_optimized_program): Remove broken
	special-case code in Bvarset for buffer-local variables, reverting
	previous patch to bytecode.c from 2003-08-18 by Jerry James
	<james@xemacs.org>.

diff -r 0cf8519c122c -r 2264738f7ae4 src/ChangeLog
--- a/src/ChangeLog	Mon Sep 01 21:52:22 2003 +0000
+++ b/src/ChangeLog	Tue Sep 02 13:18:17 2003 +0000
@@ -1,3 +1,10 @@
+2003-08-30  Mike Sperber  <mike@xemacs.org>
+
+	* bytecode.c (execute_optimized_program): Remove broken
+	special-case code in Bvarset for buffer-local variables, reverting
+	previous patch to bytecode.c from 2003-08-18 by Jerry James
+	<james@xemacs.org>.
+
 2003-08-28  Jerry James  <james@xemacs.org>
 
 	* emodules.h: Add extern "C" declarations for C++ module builds.
diff -r 0cf8519c122c -r 2264738f7ae4 src/bytecode.c
--- a/src/bytecode.c	Mon Sep 01 21:52:22 2003 +0000
+++ b/src/bytecode.c	Tue Sep 02 13:18:17 2003 +0000
@@ -540,13 +540,7 @@
 	  Lisp_Symbol *symbol_ptr = XSYMBOL (symbol);
 	  Lisp_Object old_value = symbol_ptr->value;
 	  Lisp_Object new_value = POP;
-	  if (SYMBOL_VALUE_MAGIC_P (old_value) &&
-	      (XSYMBOL_VALUE_MAGIC_TYPE (old_value) == SYMVAL_BUFFER_LOCAL ||
-	       XSYMBOL_VALUE_MAGIC_TYPE (old_value) ==
-	       SYMVAL_SOME_BUFFER_LOCAL) &&
-	      NILP (Fdefault_boundp (symbol)))
-	    Fset_default (symbol, new_value);
-	  else if (!SYMBOL_VALUE_MAGIC_P (old_value) || UNBOUNDP (old_value))
+	  if (!SYMBOL_VALUE_MAGIC_P (old_value) || UNBOUNDP (old_value))
 	    symbol_ptr->value = new_value;
 	  else
 	    Fset (symbol, new_value);