# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1072570263 0
# Node ID db670c1b5944c3a7dde236e3805649c245a993e8
# Parent  2dfa97148836348c54ca63d5494ef42830ef7594
(IMAGEP): New macro to test for image object type.
(Qimage): Declare extern.

diff -r 2dfa97148836 -r db670c1b5944 src/lisp.h
--- a/src/lisp.h	Sun Dec 28 00:10:41 2003 +0000
+++ b/src/lisp.h	Sun Dec 28 00:11:03 2003 +0000
@@ -1381,6 +1381,10 @@
 #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_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];