Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents b8cc9ab3f761
children de805c49cfc1
comparison
equal deleted inserted replaced
407:ed6218a7d4d3 408:501cfd01ee6d
61 void Dynarr_insert_many (void *d, const void *el, int len, int start); 61 void Dynarr_insert_many (void *d, const void *el, int len, int start);
62 void Dynarr_delete_many (void *d, int start, int len); 62 void Dynarr_delete_many (void *d, int start, int len);
63 void Dynarr_free (void *d); 63 void Dynarr_free (void *d);
64 64
65 #define Dynarr_new(type) ((type##_dynarr *) Dynarr_newf (sizeof (type))) 65 #define Dynarr_new(type) ((type##_dynarr *) Dynarr_newf (sizeof (type)))
66 #define Dynarr_new2(dynarr_type, type) \
67 ((dynarr_type *) Dynarr_newf (sizeof (type)))
66 #define Dynarr_at(d, pos) ((d)->base[pos]) 68 #define Dynarr_at(d, pos) ((d)->base[pos])
67 #define Dynarr_atp(d, pos) (&Dynarr_at (d, pos)) 69 #define Dynarr_atp(d, pos) (&Dynarr_at (d, pos))
68 #define Dynarr_length(d) ((d)->cur) 70 #define Dynarr_length(d) ((d)->cur)
69 #define Dynarr_largest(d) ((d)->largest) 71 #define Dynarr_largest(d) ((d)->largest)
70 #define Dynarr_reset(d) ((d)->cur = 0) 72 #define Dynarr_reset(d) ((d)->cur = 0)
1540 1542
1541 specpdl_depth is the current depth of `specpdl'. 1543 specpdl_depth is the current depth of `specpdl'.
1542 Save this for use later as arg to `unbind_to'. */ 1544 Save this for use later as arg to `unbind_to'. */
1543 extern int specpdl_depth_counter; 1545 extern int specpdl_depth_counter;
1544 #define specpdl_depth() specpdl_depth_counter 1546 #define specpdl_depth() specpdl_depth_counter
1547
1548
1549 #define CHECK_FUNCTION(fun) do { \
1550 while (NILP (Ffunctionp (fun))) \
1551 signal_invalid_function_error (fun); \
1552 } while (0)
1545 1553
1546 1554
1547 /************************************************************************/ 1555 /************************************************************************/
1548 /* Checking for QUIT */ 1556 /* Checking for QUIT */
1549 /************************************************************************/ 1557 /************************************************************************/
2047 char *egetenv (const char *); 2055 char *egetenv (const char *);
2048 2056
2049 /* Defined in console.c */ 2057 /* Defined in console.c */
2050 void stuff_buffered_input (Lisp_Object); 2058 void stuff_buffered_input (Lisp_Object);
2051 2059
2060 /* Defined in console-msw.c */
2061 EXFUN (Fmswindows_message_box, 3);
2062
2052 /* Defined in data.c */ 2063 /* Defined in data.c */
2053 DECLARE_DOESNT_RETURN (c_write_error (Lisp_Object)); 2064 DECLARE_DOESNT_RETURN (c_write_error (Lisp_Object));
2054 DECLARE_DOESNT_RETURN (lisp_write_error (Lisp_Object)); 2065 DECLARE_DOESNT_RETURN (lisp_write_error (Lisp_Object));
2055 DECLARE_DOESNT_RETURN (args_out_of_range (Lisp_Object, Lisp_Object)); 2066 DECLARE_DOESNT_RETURN (args_out_of_range (Lisp_Object, Lisp_Object));
2056 DECLARE_DOESNT_RETURN (args_out_of_range_3 (Lisp_Object, Lisp_Object, 2067 DECLARE_DOESNT_RETURN (args_out_of_range_3 (Lisp_Object, Lisp_Object,
2125 void free_argc_argv (char **); 2136 void free_argc_argv (char **);
2126 Lisp_Object decode_env_path (const char *, const char *); 2137 Lisp_Object decode_env_path (const char *, const char *);
2127 Lisp_Object decode_path (const char *); 2138 Lisp_Object decode_path (const char *);
2128 /* Nonzero means don't do interactive redisplay and don't change tty modes */ 2139 /* Nonzero means don't do interactive redisplay and don't change tty modes */
2129 extern int noninteractive, noninteractive1; 2140 extern int noninteractive, noninteractive1;
2141 extern int fatal_error_in_progress;
2130 extern int preparing_for_armageddon; 2142 extern int preparing_for_armageddon;
2131 extern int emacs_priority; 2143 extern int emacs_priority;
2132 extern int running_asynch_code; 2144 extern int running_asynch_code;
2133 extern int suppress_early_error_handler_backtrace; 2145 extern int suppress_early_error_handler_backtrace;
2134 2146
2250 int detect_input_pending (void); 2262 int detect_input_pending (void);
2251 void reset_this_command_keys (Lisp_Object, int); 2263 void reset_this_command_keys (Lisp_Object, int);
2252 Lisp_Object enqueue_misc_user_event (Lisp_Object, Lisp_Object, Lisp_Object); 2264 Lisp_Object enqueue_misc_user_event (Lisp_Object, Lisp_Object, Lisp_Object);
2253 Lisp_Object enqueue_misc_user_event_pos (Lisp_Object, Lisp_Object, 2265 Lisp_Object enqueue_misc_user_event_pos (Lisp_Object, Lisp_Object,
2254 Lisp_Object, int, int, int, int); 2266 Lisp_Object, int, int, int, int);
2267 extern int modifier_keys_are_sticky;
2255 2268
2256 /* Defined in event-Xt.c */ 2269 /* Defined in event-Xt.c */
2257 void enqueue_Xt_dispatch_event (Lisp_Object event); 2270 void enqueue_Xt_dispatch_event (Lisp_Object event);
2258 void signal_special_Xt_user_event (Lisp_Object, Lisp_Object, Lisp_Object); 2271 void signal_special_Xt_user_event (Lisp_Object, Lisp_Object, Lisp_Object);
2259 2272
2640 EXFUN (Fformat, MANY); 2653 EXFUN (Fformat, MANY);
2641 EXFUN (Fforward_char, 2); 2654 EXFUN (Fforward_char, 2);
2642 EXFUN (Fforward_line, 2); 2655 EXFUN (Fforward_line, 2);
2643 EXFUN (Ffset, 2); 2656 EXFUN (Ffset, 2);
2644 EXFUN (Ffuncall, MANY); 2657 EXFUN (Ffuncall, MANY);
2658 EXFUN (Ffunctionp, 1);
2645 EXFUN (Fgeq, MANY); 2659 EXFUN (Fgeq, MANY);
2646 EXFUN (Fget, 3); 2660 EXFUN (Fget, 3);
2647 EXFUN (Fget_buffer_process, 1); 2661 EXFUN (Fget_buffer_process, 1);
2648 EXFUN (Fget_coding_system, 1); 2662 EXFUN (Fget_coding_system, 1);
2649 EXFUN (Fget_process, 1); 2663 EXFUN (Fget_process, 1);
2778 EXFUN (Fverify_visited_file_modtime, 1); 2792 EXFUN (Fverify_visited_file_modtime, 1);
2779 EXFUN (Fvertical_motion, 3); 2793 EXFUN (Fvertical_motion, 3);
2780 EXFUN (Fwiden, 1); 2794 EXFUN (Fwiden, 1);
2781 2795
2782 2796
2783 extern Lisp_Object Q_style, Qactually_requested, Qactivate_menubar_hook; 2797 extern Lisp_Object Q_style, Qabort, Qactually_requested;
2798 extern Lisp_Object Qactivate_menubar_hook;
2784 extern Lisp_Object Qafter, Qall, Qand; 2799 extern Lisp_Object Qafter, Qall, Qand;
2785 extern Lisp_Object Qarith_error, Qarrayp, Qassoc, Qat, Qautodetect, Qautoload; 2800 extern Lisp_Object Qarith_error, Qarrayp, Qassoc, Qat, Qautodetect, Qautoload;
2786 extern Lisp_Object Qbackground, Qbackground_pixmap, Qbad_variable, Qbefore; 2801 extern Lisp_Object Qbackground, Qbackground_pixmap, Qbad_variable, Qbefore;
2787 extern Lisp_Object Qbeginning_of_buffer, Qbig5, Qbinary; 2802 extern Lisp_Object Qbeginning_of_buffer, Qbig5, Qbinary;
2788 extern Lisp_Object Qbitmap, Qbitp, Qblinking; 2803 extern Lisp_Object Qbitmap, Qbitp, Qblinking;
2789 extern Lisp_Object Qboolean, Qbottom, Qbottom_margin, Qbuffer; 2804 extern Lisp_Object Qboolean, Qbottom, Qbottom_margin, Qbuffer;
2790 extern Lisp_Object Qbuffer_glyph_p, Qbuffer_live_p, Qbuffer_read_only, Qbutton; 2805 extern Lisp_Object Qbuffer_glyph_p, Qbuffer_live_p, Qbuffer_read_only, Qbutton;
2791 extern Lisp_Object Qbyte_code, Qcall_interactively, Qcategory; 2806 extern Lisp_Object Qbyte_code, Qcall_interactively, Qcancel, Qcategory;
2792 extern Lisp_Object Qcategory_designator_p, Qcategory_table_value_p, Qccl, Qcdr; 2807 extern Lisp_Object Qcategory_designator_p, Qcategory_table_value_p, Qccl, Qcdr;
2793 extern Lisp_Object Qchannel, Qchar, Qchar_or_string_p, Qcharacter, Qcharacterp; 2808 extern Lisp_Object Qchannel, Qchar, Qchar_or_string_p, Qcharacter, Qcharacterp;
2794 extern Lisp_Object Qchars, Qcharset_g0, Qcharset_g1, Qcharset_g2, Qcharset_g3; 2809 extern Lisp_Object Qchars, Qcharset_g0, Qcharset_g1, Qcharset_g2, Qcharset_g3;
2795 extern Lisp_Object Qcenter, Qcircular_list, Qcircular_property_list; 2810 extern Lisp_Object Qcenter, Qcircular_list, Qcircular_property_list;
2796 extern Lisp_Object Qcoding_system_error; 2811 extern Lisp_Object Qcoding_system_error;
2811 extern Lisp_Object Qfile_name, Qfile_error; 2826 extern Lisp_Object Qfile_name, Qfile_error;
2812 extern Lisp_Object Qfont, Qforce_g0_on_output, Qforce_g1_on_output; 2827 extern Lisp_Object Qfont, Qforce_g0_on_output, Qforce_g1_on_output;
2813 extern Lisp_Object Qforce_g2_on_output, Qforce_g3_on_output, Qforeground; 2828 extern Lisp_Object Qforce_g2_on_output, Qforce_g3_on_output, Qforeground;
2814 extern Lisp_Object Qformat, Qframe, Qframe_live_p, Qfuncall, Qfunction; 2829 extern Lisp_Object Qformat, Qframe, Qframe_live_p, Qfuncall, Qfunction;
2815 extern Lisp_Object Qgap_overhead, Qgeneric, Qgeometry, Qglobal, Qheight; 2830 extern Lisp_Object Qgap_overhead, Qgeneric, Qgeometry, Qglobal, Qheight;
2816 extern Lisp_Object Qhighlight, Qhorizontal, Qicon; 2831 extern Lisp_Object Qhelp, Qhighlight, Qhorizontal, Qicon;
2817 extern Lisp_Object Qicon_glyph_p, Qid, Qidentity, Qimage, Qinfo, Qinherit; 2832 extern Lisp_Object Qicon_glyph_p, Qid, Qidentity, Qignore, Qimage, Qinfo;
2833 extern Lisp_Object Qinherit;
2818 extern Lisp_Object Qinhibit_quit, Qinhibit_read_only; 2834 extern Lisp_Object Qinhibit_quit, Qinhibit_read_only;
2819 extern Lisp_Object Qinput_charset_conversion, Qinteger; 2835 extern Lisp_Object Qinput_charset_conversion, Qinteger;
2820 extern Lisp_Object Qinteger_char_or_marker_p, Qinteger_or_char_p; 2836 extern Lisp_Object Qinteger_char_or_marker_p, Qinteger_or_char_p;
2821 extern Lisp_Object Qinteger_or_marker_p, Qintegerp, Qinteractive, Qinternal; 2837 extern Lisp_Object Qinteger_or_marker_p, Qintegerp, Qinteractive, Qinternal;
2822 extern Lisp_Object Qinvalid_function, Qinvalid_read_syntax, Qio_error; 2838 extern Lisp_Object Qinvalid_function, Qinvalid_read_syntax, Qio_error;
2828 extern Lisp_Object Qmalloc_overhead, Qmark, Qmarkers; 2844 extern Lisp_Object Qmalloc_overhead, Qmark, Qmarkers;
2829 extern Lisp_Object Qmenubar; 2845 extern Lisp_Object Qmenubar;
2830 extern Lisp_Object Qmax, Qmemory, Qmessage, Qminus, Qmnemonic, Qmodifiers; 2846 extern Lisp_Object Qmax, Qmemory, Qmessage, Qminus, Qmnemonic, Qmodifiers;
2831 extern Lisp_Object Qmono_pixmap_image_instance_p, Qmotion; 2847 extern Lisp_Object Qmono_pixmap_image_instance_p, Qmotion;
2832 extern Lisp_Object Qmouse_leave_buffer_hook, Qmsprinter, Qmswindows; 2848 extern Lisp_Object Qmouse_leave_buffer_hook, Qmsprinter, Qmswindows;
2833 extern Lisp_Object Qname, Qnas, Qnatnump; 2849 extern Lisp_Object Qname, Qnas, Qnatnump, Qnative_layout;
2834 extern Lisp_Object Qno_ascii_cntl, Qno_ascii_eol, Qno_catch; 2850 extern Lisp_Object Qno, Qno_ascii_cntl, Qno_ascii_eol, Qno_catch;
2835 extern Lisp_Object Qno_conversion, Qno_iso6429, Qnone, Qnot, Qnothing; 2851 extern Lisp_Object Qno_conversion, Qno_iso6429, Qnone, Qnot, Qnothing;
2836 extern Lisp_Object Qnothing_image_instance_p, Qnotice; 2852 extern Lisp_Object Qnothing_image_instance_p, Qnotice;
2837 extern Lisp_Object Qnumber_char_or_marker_p, Qnumberp; 2853 extern Lisp_Object Qnumber_char_or_marker_p, Qnumberp;
2838 extern Lisp_Object Qobject, Qold_assoc, Qold_delete, Qold_delq, Qold_rassoc; 2854 extern Lisp_Object Qobject, Qok, Qold_assoc, Qold_delete, Qold_delq;
2855 extern Lisp_Object Qold_rassoc;
2839 extern Lisp_Object Qold_rassq, Qonly, Qor, Qother; 2856 extern Lisp_Object Qold_rassq, Qonly, Qor, Qother;
2840 extern Lisp_Object Qorientation, Qoutput_charset_conversion; 2857 extern Lisp_Object Qorientation, Qoutput_charset_conversion;
2841 extern Lisp_Object Qoverflow_error, Qpoint, Qpointer, Qpointer_glyph_p; 2858 extern Lisp_Object Qoverflow_error, Qpoint, Qpointer, Qpointer_glyph_p;
2842 extern Lisp_Object Qpointer_image_instance_p, Qportrait, Qpost_read_conversion; 2859 extern Lisp_Object Qpointer_image_instance_p, Qportrait, Qpost_read_conversion;
2843 extern Lisp_Object Qpre_write_conversion, Qprint, Qprinter, Qprint_length; 2860 extern Lisp_Object Qpre_write_conversion, Qprint, Qprinter, Qprint_length;
2844 extern Lisp_Object Qprint_string_length, Qprocess, Qprogn, Qprovide, Qquit; 2861 extern Lisp_Object Qprint_string_length, Qprocess, Qprogn, Qprovide, Qquit;
2845 extern Lisp_Object Qquote, Qrange_error, Qrassoc, Qrassq, Qread_char; 2862 extern Lisp_Object Qquote, Qrange_error, Qrassoc, Qrassq, Qread_char;
2846 extern Lisp_Object Qread_from_minibuffer, Qreally_early_error_handler; 2863 extern Lisp_Object Qread_from_minibuffer, Qreally_early_error_handler;
2847 extern Lisp_Object Qregion_beginning, Qregion_end, Qrequire, Qresource; 2864 extern Lisp_Object Qregion_beginning, Qregion_end, Qrequire, Qresource;
2848 extern Lisp_Object Qreturn, Qreverse, Qright, Qright_margin; 2865 extern Lisp_Object Qretry, Qreturn, Qreverse, Qright, Qright_margin;
2849 extern Lisp_Object Qrun_hooks, Qsans_modifiers; 2866 extern Lisp_Object Qrun_hooks, Qsans_modifiers;
2850 extern Lisp_Object Qsave_buffers_kill_emacs, Qsearch, Qselected; 2867 extern Lisp_Object Qsave_buffers_kill_emacs, Qsearch, Qselected;
2851 extern Lisp_Object Qself_insert_command, Qself_insert_defer_undo; 2868 extern Lisp_Object Qself_insert_command, Qself_insert_defer_undo;
2852 extern Lisp_Object Qsequencep, Qset, Qsetting_constant; 2869 extern Lisp_Object Qsequencep, Qset, Qsetting_constant;
2853 extern Lisp_Object Qseven, Qshift_jis, Qshort; 2870 extern Lisp_Object Qseven, Qshift_jis, Qshort;
2864 extern Lisp_Object Qvalue_assoc, Qvalues; 2881 extern Lisp_Object Qvalue_assoc, Qvalues;
2865 extern Lisp_Object Qvariable_documentation, Qvariable_domain, Qvertical; 2882 extern Lisp_Object Qvariable_documentation, Qvariable_domain, Qvertical;
2866 extern Lisp_Object Qvoid_function, Qvoid_variable, Qwarning; 2883 extern Lisp_Object Qvoid_function, Qvoid_variable, Qwarning;
2867 extern Lisp_Object Qwidth, Qwidget, Qwindow; 2884 extern Lisp_Object Qwidth, Qwidget, Qwindow;
2868 extern Lisp_Object Qwindow_live_p, Qwindow_system, Qwrong_number_of_arguments; 2885 extern Lisp_Object Qwindow_live_p, Qwindow_system, Qwrong_number_of_arguments;
2869 extern Lisp_Object Qwrong_type_argument, Qx, Qy, Qyes_or_no_p; 2886 extern Lisp_Object Qwrong_type_argument, Qx, Qy, Qyes, Qyes_or_no_p;
2870 extern Lisp_Object Vactivate_menubar_hook, Vascii_canon_table; 2887 extern Lisp_Object Vactivate_menubar_hook, Vascii_canon_table;
2871 extern Lisp_Object Vascii_downcase_table, Vascii_eqv_table; 2888 extern Lisp_Object Vascii_downcase_table, Vascii_eqv_table;
2872 extern Lisp_Object Vascii_upcase_table, Vautoload_queue, Vblank_menubar; 2889 extern Lisp_Object Vascii_upcase_table, Vautoload_queue, Vblank_menubar;
2873 extern Lisp_Object Vcharset_ascii, Vcharset_composite, Vcharset_control_1; 2890 extern Lisp_Object Vcharset_ascii, Vcharset_composite, Vcharset_control_1;
2874 extern Lisp_Object Vcoding_system_for_read, Vcoding_system_for_write; 2891 extern Lisp_Object Vcoding_system_for_read, Vcoding_system_for_write;