Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 3659:98af8a976fc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-11-05 22:31:31 by aidan] Support specifying fonts for particular character sets in Mule; support translation to ISO 10646-1 for Mule character sets without an otherwise matching font; move to a vector of X11-charset-X11-registry instead of a regex for the charset-registry property.
author aidan
date Sun, 05 Nov 2006 22:31:46 +0000
parents b03fc4eae965
children 1227374e7199 71bf2c5667ba
comparison
equal deleted inserted replaced
3658:0db1aaedbbef 3659:98af8a976fc3
2621 2621
2622 /* Number of longs required to hold LEN bits */ 2622 /* Number of longs required to hold LEN bits */
2623 #define BIT_VECTOR_LONG_STORAGE(len) \ 2623 #define BIT_VECTOR_LONG_STORAGE(len) \
2624 (((len) + LONGBITS_POWER_OF_2 - 1) >> LONGBITS_LOG2) 2624 (((len) + LONGBITS_POWER_OF_2 - 1) >> LONGBITS_LOG2)
2625 2625
2626 /* For when we want to include a bit vector in another structure, and we
2627 know it's of a fixed size. */
2628 #define DECLARE_INLINE_LISP_BIT_VECTOR(numbits) struct { \
2629 struct LCRECORD_HEADER lheader; \
2630 Elemcount size; \
2631 unsigned long bits[BIT_VECTOR_LONG_STORAGE(numbits)]; \
2632 }
2626 2633
2627 /*------------------------------ symbol --------------------------------*/ 2634 /*------------------------------ symbol --------------------------------*/
2628 2635
2629 typedef struct Lisp_Symbol Lisp_Symbol; 2636 typedef struct Lisp_Symbol Lisp_Symbol;
2630 struct Lisp_Symbol 2637 struct Lisp_Symbol
5599 extern Lisp_Object Qpointer_image_instance_p, Qprint_length; 5606 extern Lisp_Object Qpointer_image_instance_p, Qprint_length;
5600 extern Lisp_Object Qprint_string_length, Qprinting_unreadable_object; 5607 extern Lisp_Object Qprint_string_length, Qprinting_unreadable_object;
5601 extern Lisp_Object Qprogn, Qquit, Qquote, Qrange_error; 5608 extern Lisp_Object Qprogn, Qquit, Qquote, Qrange_error;
5602 extern Lisp_Object Qread_char, Qread_from_minibuffer; 5609 extern Lisp_Object Qread_char, Qread_from_minibuffer;
5603 extern Lisp_Object Qreally_early_error_handler, Qregion_beginning; 5610 extern Lisp_Object Qreally_early_error_handler, Qregion_beginning;
5604 extern Lisp_Object Qregion_end, Qregistry, Qreverse_direction_charset; 5611 extern Lisp_Object Qregion_end, Qregistries, Qreverse_direction_charset;
5605 extern Lisp_Object Qrun_hooks, Qsans_modifiers, Qsave_buffers_kill_emacs; 5612 extern Lisp_Object Qrun_hooks, Qsans_modifiers, Qsave_buffers_kill_emacs;
5606 extern Lisp_Object Qself_insert_command, Qself_insert_defer_undo, Qsequencep; 5613 extern Lisp_Object Qself_insert_command, Qself_insert_defer_undo, Qsequencep;
5607 extern Lisp_Object Qset, Qsetting_constant, Qshort_name, Qsingularity_error; 5614 extern Lisp_Object Qset, Qsetting_constant, Qshort_name, Qsingularity_error;
5608 extern Lisp_Object Qsound_error, Qstack_overflow, Qstandard_input; 5615 extern Lisp_Object Qsound_error, Qstack_overflow, Qstandard_input;
5609 extern Lisp_Object Qstandard_output, Qstart_open, Qstring_lessp; 5616 extern Lisp_Object Qstandard_output, Qstart_open, Qstring_lessp;