comparison src/glyphs.h @ 5222:18c0b5909d16

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 1fae11d56ad2
children 308d34e9f07d
comparison
equal deleted inserted replaced
5221:ac6846067766 5222:18c0b5909d16
1008 #define XGLYPH_DIRTYP(g) GLYPH_DIRTYP (XGLYPH (g)) 1008 #define XGLYPH_DIRTYP(g) GLYPH_DIRTYP (XGLYPH (g))
1009 1009
1010 #define MARK_GLYPH_CHANGED(g) (GLYPH_DIRTYP (g) = 1); 1010 #define MARK_GLYPH_CHANGED(g) (GLYPH_DIRTYP (g) = 1);
1011 1011
1012 extern Lisp_Object Qxpm, Qxface, Qetched_in, Qetched_out, Qbevel_in, Qbevel_out; 1012 extern Lisp_Object Qxpm, Qxface, Qetched_in, Qetched_out, Qbevel_in, Qbevel_out;
1013 extern Lisp_Object Q_data, Q_file, Q_color_symbols, Qconst_glyph_variable; 1013 extern Lisp_Object Q_file, Q_color_symbols, Qconst_glyph_variable;
1014 extern Lisp_Object Qxbm, Qedit_field, Qgroup, Qlabel, Qcombo_box, Qscrollbar; 1014 extern Lisp_Object Qxbm, Qedit_field, Qgroup, Qlabel, Qcombo_box, Qscrollbar;
1015 extern Lisp_Object Qtree_view, Qtab_control, Qprogress_gauge; 1015 extern Lisp_Object Qtree_view, Qtab_control, Qprogress_gauge;
1016 extern Lisp_Object Q_mask_file, Q_mask_data, Q_hotspot_x, Q_hotspot_y; 1016 extern Lisp_Object Q_mask_file, Q_mask_data, Q_hotspot_x, Q_hotspot_y;
1017 extern Lisp_Object Q_foreground, Q_background, Q_face, Q_group; 1017 extern Lisp_Object Q_foreground, Q_background, Q_face, Q_group;
1018 extern Lisp_Object Q_pixel_width, Q_pixel_height; 1018 extern Lisp_Object Q_pixel_width, Q_pixel_height;