Mercurial > hg > xemacs-beta

comparison src/symbols.c @ 4793:8b50bee3c88c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove attempted support for 1996-era emacs without self-quoting keywords. lisp/ChangeLog addition: 2009-12-19 Aidan Kehoe <kehoea@parhasard.net> * cl-macs.el (cl-do-arglist): * cl-compat.el (keyword-of): Remove support in our generated code for emacs versions where keywords are not self-quoting. src/ChangeLog addition: 2009-12-19 Aidan Kehoe <kehoea@parhasard.net> * symbols.c (reject_constant_symbols): Indicate that accepting attempted modification of keywords is a temporary thing.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 19 Dec 2009 18:10:20 +0000
parents 8f1ee2d15784
children 755ae5b97edb 9113c5044de8
comparison
equal deleted inserted replaced
4783:e29fcfd8df5f 4793:8b50bee3c88c
598 if ( 598 if (
599 #ifdef HAVE_SHLIB 599 #ifdef HAVE_SHLIB
600 !(unloading_module && UNBOUNDP(newval)) && 600 !(unloading_module && UNBOUNDP(newval)) &&
601 #endif 601 #endif
602 (symbol_is_constant (sym, val) 602 (symbol_is_constant (sym, val)
603 || (SYMBOL_IS_KEYWORD (sym) && !EQ (newval, sym)))) 603 #ifndef NO_NEED_TO_HANDLE_21_4_CODE
604 || (SYMBOL_IS_KEYWORD (sym) && !EQ (newval, sym))
605 #endif
606 ))
604 signal_error_1 (Qsetting_constant, 607 signal_error_1 (Qsetting_constant,
605 UNBOUNDP (newval) ? list1 (sym) : list2 (sym, newval)); 608 UNBOUNDP (newval) ? list1 (sym) : list2 (sym, newval));
606 } 609 }
607 610
608 /* Verify that it's ok to make SYM buffer-local. This rejects 611 /* Verify that it's ok to make SYM buffer-local. This rejects