Mercurial > emacs

comparison src/lisp.h @ 53331:db670c1b5944

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(IMAGEP): New macro to test for image object type. (Qimage): Declare extern.
author Kim F. Storm <storm@cua.dk>
date Sun, 28 Dec 2003 00:11:03 +0000
parents 094f6b57ed09
children 09ea561dfa8c 6f2b0bb10619
comparison
equal deleted inserted replaced
53330:2dfa97148836 53331:db670c1b5944
1379 #define GC_BOOL_VECTOR_P(x) GC_PSEUDOVECTORP (x, PVEC_BOOL_VECTOR) 1379 #define GC_BOOL_VECTOR_P(x) GC_PSEUDOVECTORP (x, PVEC_BOOL_VECTOR)
1380 #define FRAMEP(x) PSEUDOVECTORP (x, PVEC_FRAME) 1380 #define FRAMEP(x) PSEUDOVECTORP (x, PVEC_FRAME)
1381 #define GC_FRAMEP(x) GC_PSEUDOVECTORP (x, PVEC_FRAME) 1381 #define GC_FRAMEP(x) GC_PSEUDOVECTORP (x, PVEC_FRAME)
1382 1382
1383 #define SUB_CHAR_TABLE_P(x) (CHAR_TABLE_P (x) && NILP (XCHAR_TABLE (x)->top)) 1383 #define SUB_CHAR_TABLE_P(x) (CHAR_TABLE_P (x) && NILP (XCHAR_TABLE (x)->top))
1384
1385 /* Test for image (image . spec) */
1386 #define IMAGEP(x) (CONSP (x) && EQ (XCAR (x), Qimage))
1387
1384 1388
1385 #define GC_EQ(x, y) EQ (x, y) 1389 #define GC_EQ(x, y) EQ (x, y)
1386 1390
1387 #define CHECK_LIST(x) \ 1391 #define CHECK_LIST(x) \
1388 do { if (!CONSP ((x)) && !NILP (x)) x = wrong_type_argument (Qlistp, (x)); } while (0) 1392 do { if (!CONSP ((x)) && !NILP (x)) x = wrong_type_argument (Qlistp, (x)); } while (0)
2281 /* Defined in xdisp.c */ 2285 /* Defined in xdisp.c */
2282 extern Lisp_Object Qinhibit_point_motion_hooks; 2286 extern Lisp_Object Qinhibit_point_motion_hooks;
2283 extern Lisp_Object Qinhibit_redisplay, Qdisplay; 2287 extern Lisp_Object Qinhibit_redisplay, Qdisplay;
2284 extern Lisp_Object Qinhibit_eval_during_redisplay; 2288 extern Lisp_Object Qinhibit_eval_during_redisplay;
2285 extern Lisp_Object Qmessage_truncate_lines; 2289 extern Lisp_Object Qmessage_truncate_lines;
2290 extern Lisp_Object Qimage;
2286 extern Lisp_Object Vmessage_log_max; 2291 extern Lisp_Object Vmessage_log_max;
2287 extern int message_enable_multibyte; 2292 extern int message_enable_multibyte;
2288 extern Lisp_Object echo_area_buffer[2]; 2293 extern Lisp_Object echo_area_buffer[2];
2289 extern void check_message_stack P_ ((void)); 2294 extern void check_message_stack P_ ((void));
2290 extern void setup_echo_area_for_printing P_ ((int)); 2295 extern void setup_echo_area_for_printing P_ ((int));