Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 436:080151679be2 r21-2-26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-26
author cvs
date Mon, 13 Aug 2007 11:31:24 +0200
parents 9d177e8d4150
children 84b14dcb0985
comparison
equal deleted inserted replaced
435:53cf74a9db44 436:080151679be2
934 934
935 /* Signal an error if LIST is not properly acyclic and nil-terminated. */ 935 /* Signal an error if LIST is not properly acyclic and nil-terminated. */
936 #define CHECK_TRUE_LIST(list) do { \ 936 #define CHECK_TRUE_LIST(list) do { \
937 Lisp_Object CTL_list = (list); \ 937 Lisp_Object CTL_list = (list); \
938 Lisp_Object CTL_hare, CTL_tortoise; \ 938 Lisp_Object CTL_hare, CTL_tortoise; \
939 EMACS_INT CTL_len; \ 939 EMACS_INT CTL_len; \
940 \ 940 \
941 for (CTL_hare = CTL_tortoise = CTL_list, CTL_len = 0; \ 941 for (CTL_hare = CTL_tortoise = CTL_list, CTL_len = 0; \
942 CONSP (CTL_hare); \ 942 CONSP (CTL_hare); \
943 CTL_hare = XCDR (CTL_hare), CTL_len++) \ 943 CTL_hare = XCDR (CTL_hare), CTL_len++) \
944 { \ 944 { \
1171 #define XSETSUBR(x, p) XSETRECORD (x, p, subr) 1171 #define XSETSUBR(x, p) XSETRECORD (x, p, subr)
1172 #define SUBRP(x) RECORDP (x, subr) 1172 #define SUBRP(x) RECORDP (x, subr)
1173 #define CHECK_SUBR(x) CHECK_RECORD (x, subr) 1173 #define CHECK_SUBR(x) CHECK_RECORD (x, subr)
1174 #define CONCHECK_SUBR(x) CONCHECK_RECORD (x, subr) 1174 #define CONCHECK_SUBR(x) CONCHECK_RECORD (x, subr)
1175 1175
1176 #define subr_function(subr) (subr)->subr_fn 1176 #define subr_function(subr) ((subr)->subr_fn)
1177 #define subr_name(subr) (subr)->name 1177 #define SUBR_FUNCTION(subr,max_args) \
1178 ((Lisp_Object (*) (EXFUN_##max_args)) (subr)->subr_fn)
1179 #define subr_name(subr) ((subr)->name)
1178 1180
1179 /*********** marker ***********/ 1181 /*********** marker ***********/
1180 1182
1181 struct Lisp_Marker 1183 struct Lisp_Marker
1182 { 1184 {
2193 Lisp_Object signal_simple_continuable_error_2 (CONST char *, 2195 Lisp_Object signal_simple_continuable_error_2 (CONST char *,
2194 Lisp_Object, Lisp_Object); 2196 Lisp_Object, Lisp_Object);
2195 Lisp_Object maybe_signal_simple_continuable_error_2 (CONST char *, Lisp_Object, 2197 Lisp_Object maybe_signal_simple_continuable_error_2 (CONST char *, Lisp_Object,
2196 Lisp_Object, Lisp_Object, 2198 Lisp_Object, Lisp_Object,
2197 Error_behavior); 2199 Error_behavior);
2198 void signal_malformed_list_error (Lisp_Object); 2200 DECLARE_DOESNT_RETURN (signal_malformed_list_error (Lisp_Object));
2199 void signal_malformed_property_list_error (Lisp_Object); 2201 DECLARE_DOESNT_RETURN (signal_malformed_property_list_error (Lisp_Object));
2200 void signal_circular_list_error (Lisp_Object); 2202 DECLARE_DOESNT_RETURN (signal_circular_list_error (Lisp_Object));
2201 void signal_circular_property_list_error (Lisp_Object); 2203 DECLARE_DOESNT_RETURN (signal_circular_property_list_error (Lisp_Object));
2202 void signal_void_function_error (Lisp_Object); 2204
2205 Lisp_Object signal_void_function_error (Lisp_Object);
2206 Lisp_Object signal_invalid_function_error (Lisp_Object);
2207 Lisp_Object signal_wrong_number_of_arguments_error (Lisp_Object, int);
2208
2203 Lisp_Object run_hook_with_args_in_buffer (struct buffer *, int, Lisp_Object *, 2209 Lisp_Object run_hook_with_args_in_buffer (struct buffer *, int, Lisp_Object *,
2204 enum run_hooks_condition); 2210 enum run_hooks_condition);
2205 Lisp_Object run_hook_with_args (int, Lisp_Object *, enum run_hooks_condition); 2211 Lisp_Object run_hook_with_args (int, Lisp_Object *, enum run_hooks_condition);
2206 void va_run_hook_with_args (Lisp_Object, int, ...); 2212 void va_run_hook_with_args (Lisp_Object, int, ...);
2207 void va_run_hook_with_args_in_buffer (struct buffer *, Lisp_Object, int, ...); 2213 void va_run_hook_with_args_in_buffer (struct buffer *, Lisp_Object, int, ...);