From: Kim F. Storm <storm@cua.dk>
Date: Sun, 28 Dec 2003 00:11:03 +0000 (+0000)
Subject: (IMAGEP): New macro to test for image object type.
X-Git-Tag: ttn-vms-21-2-B4~8141
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dea9b52152ce21296c22e996c29e80d3b542b450;p=emacs.git

(IMAGEP): New macro to test for image object type.
(Qimage): Declare extern.
---

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];