Mercurial > emacs

comparison src/data.c @ 21981:7f45fb4c0a1f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set_internal): Properly compare lisp objects. (Fmakunbound): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Thu, 07 May 1998 20:47:53 +0000
parents c98ba82f4b52
children 1d223a4bf4de
comparison
equal deleted inserted replaced
21980:e73c0672d7b3 21981:7f45fb4c0a1f
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 && EQ (XSYMBOL (symbol)->obarray, initial_obarray)
622 && keyword_symbols_constant_flag)) 622 && keyword_symbols_constant_flag))
623 return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); 623 return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
624 Fset (symbol, Qunbound); 624 Fset (symbol, Qunbound);
625 return symbol; 625 return symbol;
626 } 626 }
968 register Lisp_Object valcontents, tem1, current_alist_element; 968 register Lisp_Object valcontents, tem1, current_alist_element;
969 969
970 CHECK_SYMBOL (symbol, 0); 970 CHECK_SYMBOL (symbol, 0);
971 if (NILP (symbol) || EQ (symbol, Qt) 971 if (NILP (symbol) || EQ (symbol, Qt)
972 || (XSYMBOL (symbol)->name->data[0] == ':' 972 || (XSYMBOL (symbol)->name->data[0] == ':'
973 && XSYMBOL (symbol)->obarray == initial_obarray 973 && EQ (XSYMBOL (symbol)->obarray, initial_obarray)
974 && keyword_symbols_constant_flag && ! EQ (newval, symbol))) 974 && keyword_symbols_constant_flag && ! EQ (newval, symbol)))
975 return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); 975 return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
976 valcontents = XSYMBOL (symbol)->value; 976 valcontents = XSYMBOL (symbol)->value;
977 977
978 if (BUFFER_OBJFWDP (valcontents)) 978 if (BUFFER_OBJFWDP (valcontents))