Mercurial > emacs

comparison src/data.c @ 21775:b90287cb111a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fmakunbound): Test keywordness only in initial obarray. (set_internal): Test keywordness only in initial obarray.
author Richard M. Stallman <rms@gnu.org>
date Sun, 26 Apr 1998 19:16:25 +0000
parents fa9ff387d260
children c98ba82f4b52
comparison
equal deleted inserted replaced
21774:101cc2e8a4b7 21775:b90287cb111a
616 register Lisp_Object symbol; 616 register Lisp_Object symbol;
617 { 617 {
618 CHECK_SYMBOL (symbol, 0); 618 CHECK_SYMBOL (symbol, 0);
619 if (NILP (symbol) || EQ (symbol, Qt) 619 if (NILP (symbol) || EQ (symbol, Qt)
620 || (XSYMBOL (symbol)->name->data[0] == ':' 620 || (XSYMBOL (symbol)->name->data[0] == ':'
621 && XSYMBOL (symbol)->obarray == initial_obarray
621 && keyword_symbols_constant_flag)) 622 && keyword_symbols_constant_flag))
622 return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); 623 return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
623 Fset (symbol, Qunbound); 624 Fset (symbol, Qunbound);
624 return symbol; 625 return symbol;
625 } 626 }
967 register Lisp_Object valcontents, tem1, current_alist_element; 968 register Lisp_Object valcontents, tem1, current_alist_element;
968 969
969 CHECK_SYMBOL (symbol, 0); 970 CHECK_SYMBOL (symbol, 0);
970 if (NILP (symbol) || EQ (symbol, Qt) 971 if (NILP (symbol) || EQ (symbol, Qt)
971 || (XSYMBOL (symbol)->name->data[0] == ':' 972 || (XSYMBOL (symbol)->name->data[0] == ':'
973 && XSYMBOL (symbol)->obarray == initial_obarray
972 && keyword_symbols_constant_flag && ! EQ (newval, symbol))) 974 && keyword_symbols_constant_flag && ! EQ (newval, symbol)))
973 return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); 975 return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
974 valcontents = XSYMBOL (symbol)->value; 976 valcontents = XSYMBOL (symbol)->value;
975 977
976 if (BUFFER_OBJFWDP (valcontents)) 978 if (BUFFER_OBJFWDP (valcontents))