Mercurial > hg > xemacs-beta

comparison lisp/specifier.el @ 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 b75b075a9041
children 04811a268716
comparison
equal deleted inserted replaced
5221:ac6846067766 5222:18c0b5909d16
997 ;; 997 ;;
998 ;; We also want the global display table to be actually globally 998 ;; We also want the global display table to be actually globally
999 ;; initialised; that's why this is here, and not in x-init.el, these days. 999 ;; initialised; that's why this is here, and not in x-init.el, these days.
1000 1000
1001 (set-specifier current-display-table 1001 (set-specifier current-display-table
1002 #s(char-table type generic data (?\xA0 ?\x20)) 1002 #s(char-table :type generic :data (?\xA0 ?\x20))
1003 'global) 1003 'global)
1004 1004
1005 ;;; specifier.el ends here 1005 ;;; specifier.el ends here