Mercurial > hg > xemacs-beta

comparison src/symbols.c @ 5222:18c0b5909d16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use keywords in structure syntax; new #define, NEED_TO_HANDLE_21_4_CODE 1 src/ChangeLog addition: 2010-05-31 Aidan Kehoe <kehoea@parhasard.net> * rangetab.c (print_range_table, rangetab_instantiate) (structure_type_create_rangetab): * chartab.c (print_char_table, chartab_instantiate) (structure_type_create_chartab): * faces.c (syms_of_faces, print_face, face_validate): Move structure syntax in these files to using keywords by default, as is done in Common Lisp and GNU Emacs, accepting for the moment the older non-keywords syntax too. * glyphs.h: No need to have Q_data here. * general-slots.h: Add Q_data, Q_type here. * config.h.in (NEED_TO_HANDLE_21_4_CODE): New #define, always 1 for the moment, replacing the previous never-really-used NO_NEED_TO_HANDLE_21_4_CODE, and avoiding confusing syntax. * eval.c (Ffuncall): Wrap the hack that allows #'throw to be funcalled in #ifdef NEED_TO_HANDLE_21_4_CODE. * elhash.c (syms_of_elhash): Move Q_type, Q_data to general-slots.h. Change to NEED_TO_HANDLE_21_4_CODE throughout this file. lisp/ChangeLog addition: 2010-05-31 Aidan Kehoe <kehoea@parhasard.net> * specifier.el (current-display-table): Use keywords in the structure syntax here, now we've moved to that by default in C.
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 31 May 2010 16:47:44 +0100
parents 2e528066e2fc
children b5611afbcc76
comparison
equal deleted inserted replaced
5221:ac6846067766 5222:18c0b5909d16
596 if ( 596 if (
597 #ifdef HAVE_SHLIB 597 #ifdef HAVE_SHLIB
598 !(unloading_module && UNBOUNDP(newval)) && 598 !(unloading_module && UNBOUNDP(newval)) &&
599 #endif 599 #endif
600 (symbol_is_constant (sym, val) 600 (symbol_is_constant (sym, val)
601 #ifndef NO_NEED_TO_HANDLE_21_4_CODE 601 #ifdef NEED_TO_HANDLE_21_4_CODE
602 || (SYMBOL_IS_KEYWORD (sym) && !EQ (newval, sym)) 602 || (SYMBOL_IS_KEYWORD (sym) && !EQ (newval, sym))
603 #endif 603 #endif
604 )) 604 ))
605 signal_error_1 (Qsetting_constant, 605 signal_error_1 (Qsetting_constant,
606 UNBOUNDP (newval) ? list1 (sym) : list2 (sym, newval)); 606 UNBOUNDP (newval) ? list1 (sym) : list2 (sym, newval));