Mercurial > emacs

comparison src/eval.c @ 27819:2a6f200db73d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(specbind): Remove references to keyword_symbols_constant_flag.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 23 Feb 2000 10:44:03 +0000
parents f84c7b8308c5
children 5cf4fd1963fc
comparison
equal deleted inserted replaced
27818:cfcb7f5e473e 27819:2a6f200db73d
2758 void 2758 void
2759 specbind (symbol, value) 2759 specbind (symbol, value)
2760 Lisp_Object symbol, value; 2760 Lisp_Object symbol, value;
2761 { 2761 {
2762 Lisp_Object ovalue; 2762 Lisp_Object ovalue;
2763 extern int keyword_symbols_constant_flag;
2764 2763
2765 CHECK_SYMBOL (symbol, 0); 2764 CHECK_SYMBOL (symbol, 0);
2766 if (specpdl_ptr == specpdl + specpdl_size) 2765 if (specpdl_ptr == specpdl + specpdl_size)
2767 grow_specpdl (); 2766 grow_specpdl ();
2768 2767
2771 if (!MISCP (XSYMBOL (symbol)->value) 2770 if (!MISCP (XSYMBOL (symbol)->value)
2772 && !EQ (symbol, Qnil) 2771 && !EQ (symbol, Qnil)
2773 && !EQ (symbol, Qt) 2772 && !EQ (symbol, Qt)
2774 && !(XSYMBOL (symbol)->name->data[0] == ':' 2773 && !(XSYMBOL (symbol)->name->data[0] == ':'
2775 && EQ (XSYMBOL (symbol)->obarray, initial_obarray) 2774 && EQ (XSYMBOL (symbol)->obarray, initial_obarray)
2776 && keyword_symbols_constant_flag
2777 && !EQ (value, symbol))) 2775 && !EQ (value, symbol)))
2778 { 2776 {
2779 specpdl_ptr->symbol = symbol; 2777 specpdl_ptr->symbol = symbol;
2780 specpdl_ptr->old_value = XSYMBOL (symbol)->value; 2778 specpdl_ptr->old_value = XSYMBOL (symbol)->value;
2781 specpdl_ptr->func = NULL; 2779 specpdl_ptr->func = NULL;