From dea9b52152ce21296c22e996c29e80d3b542b450 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sun, 28 Dec 2003 00:11:03 +0000 Subject: [PATCH] (IMAGEP): New macro to test for image object type. (Qimage): Declare extern. --- src/lisp.h | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/lisp.h b/src/lisp.h index 94de2c2960f..e1f939581db 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -1381,6 +1381,10 @@ typedef unsigned char UCHAR; #define GC_FRAMEP(x) GC_PSEUDOVECTORP (x, PVEC_FRAME) #define SUB_CHAR_TABLE_P(x) (CHAR_TABLE_P (x) && NILP (XCHAR_TABLE (x)->top)) + +/* Test for image (image . spec) */ +#define IMAGEP(x) (CONSP (x) && EQ (XCAR (x), Qimage)) + #define GC_EQ(x, y) EQ (x, y) @@ -2283,6 +2287,7 @@ extern Lisp_Object Qinhibit_point_motion_hooks; extern Lisp_Object Qinhibit_redisplay, Qdisplay; extern Lisp_Object Qinhibit_eval_during_redisplay; extern Lisp_Object Qmessage_truncate_lines; +extern Lisp_Object Qimage; extern Lisp_Object Vmessage_log_max; extern int message_enable_multibyte; extern Lisp_Object echo_area_buffer[2]; -- 2.39.2