Mercurial > hg > xemacs-beta
changeset 1661:2264738f7ae4
[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>.
| author | michaels |
|---|---|
| date | Tue, 02 Sep 2003 13:18:17 +0000 |
| parents | 0cf8519c122c |
| children | 1393f296cac6 |
| files | src/ChangeLog src/bytecode.c |
| diffstat | 2 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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);