Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 406:b8cc9ab3f761 r21-2-33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents 2f8bb876ab1d
children 501cfd01ee6d
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
163 #endif 163 #endif
164 164
165 #ifndef DOESNT_RETURN 165 #ifndef DOESNT_RETURN
166 # if defined __GNUC__ 166 # if defined __GNUC__
167 # if ((__GNUC__ > 2) || (__GNUC__ == 2) && (__GNUC_MINOR__ >= 5)) 167 # if ((__GNUC__ > 2) || (__GNUC__ == 2) && (__GNUC_MINOR__ >= 5))
168 # define DOESNT_RETURN void volatile 168 # define DOESNT_RETURN void
169 # define DECLARE_DOESNT_RETURN(decl) \ 169 # define DECLARE_DOESNT_RETURN(decl) \
170 extern void volatile decl __attribute__ ((noreturn)) 170 extern void decl __attribute__ ((noreturn))
171 # define DECLARE_DOESNT_RETURN_GCC_ATTRIBUTE_SYNTAX_SUCKS(decl,str,idx) \ 171 # define DECLARE_DOESNT_RETURN_GCC_ATTRIBUTE_SYNTAX_SUCKS(decl,str,idx) \
172 /* Should be able to state multiple independent __attribute__s, but \ 172 /* Should be able to state multiple independent __attribute__s, but \
173 the losing syntax doesn't work that way, and screws losing cpp */ \ 173 the losing syntax doesn't work that way, and screws losing cpp */ \
174 extern void volatile decl \ 174 extern void decl \
175 __attribute__ ((noreturn, format (printf, str, idx))) 175 __attribute__ ((noreturn, format (printf, str, idx)))
176 # else 176 # else
177 # define DOESNT_RETURN void volatile 177 # define DOESNT_RETURN void volatile
178 # define DECLARE_DOESNT_RETURN(decl) extern void volatile decl 178 # define DECLARE_DOESNT_RETURN(decl) extern void volatile decl
179 # define DECLARE_DOESNT_RETURN_GCC_ATTRIBUTE_SYNTAX_SUCKS(decl,str,idx) \ 179 # define DECLARE_DOESNT_RETURN_GCC_ATTRIBUTE_SYNTAX_SUCKS(decl,str,idx) \
965 # define string_char(s, i) ((Emchar) string_byte (s, i)) 965 # define string_char(s, i) ((Emchar) string_byte (s, i))
966 # define string_char_addr(s, i) string_byte_addr (s, i) 966 # define string_char_addr(s, i) string_byte_addr (s, i)
967 # define set_string_char(s, i, c) set_string_byte (s, i, c) 967 # define set_string_char(s, i, c) set_string_byte (s, i, c)
968 968
969 #endif /* not MULE */ 969 #endif /* not MULE */
970
971 /* Return the true size of a struct with a variable-length array field. */
972 #define FLEXIBLE_ARRAY_STRUCT_SIZEOF(flexible_array_structtype, \
973 flexible_array_field, \
974 flexible_array_length) \
975 (offsetof (flexible_array_structtype, flexible_array_field) + \
976 (offsetof (flexible_array_structtype, flexible_array_field[1]) - \
977 offsetof (flexible_array_structtype, flexible_array_field[0])) * \
978 (flexible_array_length))
970 979
971 /*********** vector ***********/ 980 /*********** vector ***********/
972 981
973 struct Lisp_Vector 982 struct Lisp_Vector
974 { 983 {
2243 Lisp_Object enqueue_misc_user_event (Lisp_Object, Lisp_Object, Lisp_Object); 2252 Lisp_Object enqueue_misc_user_event (Lisp_Object, Lisp_Object, Lisp_Object);
2244 Lisp_Object enqueue_misc_user_event_pos (Lisp_Object, Lisp_Object, 2253 Lisp_Object enqueue_misc_user_event_pos (Lisp_Object, Lisp_Object,
2245 Lisp_Object, int, int, int, int); 2254 Lisp_Object, int, int, int, int);
2246 2255
2247 /* Defined in event-Xt.c */ 2256 /* Defined in event-Xt.c */
2257 void enqueue_Xt_dispatch_event (Lisp_Object event);
2248 void signal_special_Xt_user_event (Lisp_Object, Lisp_Object, Lisp_Object); 2258 void signal_special_Xt_user_event (Lisp_Object, Lisp_Object, Lisp_Object);
2249 2259
2250 2260
2251 /* Defined in events.c */ 2261 /* Defined in events.c */
2252 void clear_event_resource (void); 2262 void clear_event_resource (void);
2718 EXFUN (Fread, 1); 2728 EXFUN (Fread, 1);
2719 EXFUN (Fread_key_sequence, 3); 2729 EXFUN (Fread_key_sequence, 3);
2720 EXFUN (Freally_free, 1); 2730 EXFUN (Freally_free, 1);
2721 EXFUN (Frem, 2); 2731 EXFUN (Frem, 2);
2722 EXFUN (Fremassq, 2); 2732 EXFUN (Fremassq, 2);
2733 EXFUN (Freplace_list, 2);
2723 EXFUN (Fselected_frame, 1); 2734 EXFUN (Fselected_frame, 1);
2724 EXFUN (Fset, 2); 2735 EXFUN (Fset, 2);
2725 EXFUN (Fset_coding_category_system, 2); 2736 EXFUN (Fset_coding_category_system, 2);
2726 EXFUN (Fset_coding_priority_list, 1); 2737 EXFUN (Fset_coding_priority_list, 1);
2727 EXFUN (Fset_default, 2); 2738 EXFUN (Fset_default, 2);
2787 extern Lisp_Object Qcolumns, Qcommand, Qcommandp, Qcompletion_ignore_case; 2798 extern Lisp_Object Qcolumns, Qcommand, Qcommandp, Qcompletion_ignore_case;
2788 extern Lisp_Object Qconsole, Qconsole_live_p, Qconst_specifier, Qcr, Qcritical; 2799 extern Lisp_Object Qconsole, Qconsole_live_p, Qconst_specifier, Qcr, Qcritical;
2789 extern Lisp_Object Qcrlf, Qctext, Qcurrent_menubar, Qctext, Qcursor; 2800 extern Lisp_Object Qcrlf, Qctext, Qcurrent_menubar, Qctext, Qcursor;
2790 extern Lisp_Object Qcyclic_variable_indirection, Qdata, Qdead, Qdecode; 2801 extern Lisp_Object Qcyclic_variable_indirection, Qdata, Qdead, Qdecode;
2791 extern Lisp_Object Qdefault, Qdefun, Qdelete, Qdelq, Qdevice, Qdevice_live_p; 2802 extern Lisp_Object Qdefault, Qdefun, Qdelete, Qdelq, Qdevice, Qdevice_live_p;
2803 extern Lisp_Object Qdialog;
2792 extern Lisp_Object Qdim, Qdimension, Qdisabled, Qdisplay, Qdisplay_table; 2804 extern Lisp_Object Qdim, Qdimension, Qdisabled, Qdisplay, Qdisplay_table;
2793 extern Lisp_Object Qdoc_string, Qdomain_error, Qduplex, Qdynarr_overhead; 2805 extern Lisp_Object Qdoc_string, Qdomain_error, Qduplex, Qdynarr_overhead;
2794 extern Lisp_Object Qempty, Qencode, Qend_of_buffer, Qend_of_file, Qend_open; 2806 extern Lisp_Object Qempty, Qencode, Qend_of_buffer, Qend_of_file, Qend_open;
2795 extern Lisp_Object Qeol_cr, Qeol_crlf, Qeol_lf, Qeol_type, Qeq, Qeql, Qequal; 2807 extern Lisp_Object Qeol_cr, Qeol_crlf, Qeol_lf, Qeol_type, Qeq, Qeql, Qequal;
2796 extern Lisp_Object Qerror, Qerror_conditions, Qerror_message, Qescape_quoted; 2808 extern Lisp_Object Qerror, Qerror_conditions, Qerror_message, Qescape_quoted;
2797 extern Lisp_Object Qeval, Qevent_live_p, Qexit, Qextent_live_p, Qextents; 2809 extern Lisp_Object Qeval, Qevent_live_p, Qexit, Qextent_live_p, Qextents;
2798 extern Lisp_Object Qexternal_debugging_output, Qface, Qfeaturep; 2810 extern Lisp_Object Qexternal_debugging_output, Qface, Qfeaturep;
2799 extern Lisp_Object Qfile_name, Qfile_error; 2811 extern Lisp_Object Qfile_name, Qfile_error;
2800 extern Lisp_Object Qfont, Qforce_g0_on_output, Qforce_g1_on_output; 2812 extern Lisp_Object Qfont, Qforce_g0_on_output, Qforce_g1_on_output;
2801 extern Lisp_Object Qforce_g2_on_output, Qforce_g3_on_output, Qforeground; 2813 extern Lisp_Object Qforce_g2_on_output, Qforce_g3_on_output, Qforeground;
2802 extern Lisp_Object Qformat, Qframe, Qframe_live_p, Qfunction, Qgap_overhead; 2814 extern Lisp_Object Qformat, Qframe, Qframe_live_p, Qfuncall, Qfunction;
2803 extern Lisp_Object Qgeneric, Qgeometry, Qglobal, Qheight; 2815 extern Lisp_Object Qgap_overhead, Qgeneric, Qgeometry, Qglobal, Qheight;
2804 extern Lisp_Object Qhighlight, Qhorizontal, Qicon; 2816 extern Lisp_Object Qhighlight, Qhorizontal, Qicon;
2805 extern Lisp_Object Qicon_glyph_p, Qid, Qidentity, Qimage, Qinfo, Qinherit; 2817 extern Lisp_Object Qicon_glyph_p, Qid, Qidentity, Qimage, Qinfo, Qinherit;
2806 extern Lisp_Object Qinhibit_quit, Qinhibit_read_only; 2818 extern Lisp_Object Qinhibit_quit, Qinhibit_read_only;
2807 extern Lisp_Object Qinput_charset_conversion, Qinteger; 2819 extern Lisp_Object Qinput_charset_conversion, Qinteger;
2808 extern Lisp_Object Qinteger_char_or_marker_p, Qinteger_or_char_p; 2820 extern Lisp_Object Qinteger_char_or_marker_p, Qinteger_or_char_p;
2809 extern Lisp_Object Qinteger_or_marker_p, Qintegerp, Qinteractive, Qinternal; 2821 extern Lisp_Object Qinteger_or_marker_p, Qintegerp, Qinteractive, Qinternal;
2810 extern Lisp_Object Qinvalid_function, Qinvalid_read_syntax, Qio_error; 2822 extern Lisp_Object Qinvalid_function, Qinvalid_read_syntax, Qio_error;
2811 extern Lisp_Object Qiso2022, Qkey, Qkey_assoc, Qkeyboard, Qkeymap; 2823 extern Lisp_Object Qiso2022, Qkey, Qkey_assoc, Qkeyboard, Qkeymap;
2812 extern Lisp_Object Qlambda, Qlayout, Qlandscape, Qleft, Qleft_margin, Qlf; 2824 extern Lisp_Object Qlambda, Qlast_command, Qlayout, Qlandscape;
2825 extern Lisp_Object Qleft, Qleft_margin, Qlet, Qlf;
2813 extern Lisp_Object Qlist, Qlistp, Qload, Qlock_shift, Qmacro, Qmagic; 2826 extern Lisp_Object Qlist, Qlistp, Qload, Qlock_shift, Qmacro, Qmagic;
2814 extern Lisp_Object Qmakunbound, Qmalformed_list, Qmalformed_property_list; 2827 extern Lisp_Object Qmakunbound, Qmalformed_list, Qmalformed_property_list;
2815 extern Lisp_Object Qmalloc_overhead, Qmark, Qmarkers; 2828 extern Lisp_Object Qmalloc_overhead, Qmark, Qmarkers;
2829 extern Lisp_Object Qmenubar;
2816 extern Lisp_Object Qmax, Qmemory, Qmessage, Qminus, Qmnemonic, Qmodifiers; 2830 extern Lisp_Object Qmax, Qmemory, Qmessage, Qminus, Qmnemonic, Qmodifiers;
2817 extern Lisp_Object Qmono_pixmap_image_instance_p, Qmotion; 2831 extern Lisp_Object Qmono_pixmap_image_instance_p, Qmotion;
2818 extern Lisp_Object Qmouse_leave_buffer_hook, Qmsprinter, Qmswindows; 2832 extern Lisp_Object Qmouse_leave_buffer_hook, Qmsprinter, Qmswindows;
2819 extern Lisp_Object Qname, Qnas, Qnatnump; 2833 extern Lisp_Object Qname, Qnas, Qnatnump;
2820 extern Lisp_Object Qno_ascii_cntl, Qno_ascii_eol, Qno_catch; 2834 extern Lisp_Object Qno_ascii_cntl, Qno_ascii_eol, Qno_catch;
2839 extern Lisp_Object Qseven, Qshift_jis, Qshort; 2853 extern Lisp_Object Qseven, Qshift_jis, Qshort;
2840 extern Lisp_Object Qsignal, Qsimple, Qsingularity_error, Qsize, Qspace; 2854 extern Lisp_Object Qsignal, Qsimple, Qsingularity_error, Qsize, Qspace;
2841 extern Lisp_Object Qspecifier, Qstandard_input, Qstandard_output, Qstart_open; 2855 extern Lisp_Object Qspecifier, Qstandard_input, Qstandard_output, Qstart_open;
2842 extern Lisp_Object Qstream, Qstring, Qstring_lessp, Qsubwindow; 2856 extern Lisp_Object Qstream, Qstring, Qstring_lessp, Qsubwindow;
2843 extern Lisp_Object Qsubwindow_image_instance_p; 2857 extern Lisp_Object Qsubwindow_image_instance_p;
2844 extern Lisp_Object Qsymbol, Qsyntax, Qt, Qterminal, Qtest; 2858 extern Lisp_Object Qsymbol, Qsyntax, Qt, Qterminal, Qtest, Qtext;
2845 extern Lisp_Object Qtext, Qtext_image_instance_p, Qtimeout, Qtimestamp; 2859 extern Lisp_Object Qtext_image_instance_p, Qthis_command, Qtimeout, Qtimestamp;
2846 extern Lisp_Object Qtoolbar, Qtop, Qtop_margin, Qtop_level; 2860 extern Lisp_Object Qtoolbar, Qtop, Qtop_margin, Qtop_level;
2847 extern Lisp_Object Qtrue_list_p, Qtty, Qtype; 2861 extern Lisp_Object Qtrue_list_p, Qtty, Qtype;
2848 extern Lisp_Object Qunbound, Qundecided, Qundefined, Qunderflow_error; 2862 extern Lisp_Object Qunbound, Qundecided, Qundefined, Qunderflow_error;
2849 extern Lisp_Object Qunderline, Qunimplemented, Quser_files_and_directories; 2863 extern Lisp_Object Qunderline, Qunimplemented, Quser_files_and_directories;
2850 extern Lisp_Object Qvalue_assoc, Qvalues; 2864 extern Lisp_Object Qvalue_assoc, Qvalues;