changeset 53331:db670c1b5944

(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 2dfa97148836
children 21301d0e0505
files src/lisp.h
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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];