# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 791264357 0
# Node ID 09fcb080e53788e30781f7746ba9475964e88621
# Parent  a7796a68f001f230c5cb60654e784a0ca12a474a
(enum Lisp_Misc_Type): New enumeration Lisp_Misc_Display_Local.
(struct Lisp_Display_Objfwd): New structure.
(XDISPLAY_OBJFWD, DISPLAY_OBJFWDP): Access the new structure.
(union Lisp_Misc): Add new member.

diff -r a7796a68f001 -r 09fcb080e537 src/lisp.h
--- a/src/lisp.h	Sat Jan 28 03:05:45 1995 +0000
+++ b/src/lisp.h	Sat Jan 28 03:39:17 1995 +0000
@@ -79,6 +79,7 @@
     Lisp_Misc_Buffer_Local_Value,
     Lisp_Misc_Some_Buffer_Local_Value,
     Lisp_Misc_Overlay,
+    Lisp_Misc_Display_Objfwd,
     /* Currently floats are not a misc type,
        but let's define this in case we want to change that.  */
     Lisp_Misc_Float,
@@ -383,6 +384,7 @@
 #define XBUFFER_OBJFWD(a) (&(XMISC(a)->u_buffer_objfwd))
 #define XBUFFER_LOCAL_VALUE(a) (&(XMISC(a)->u_buffer_local_value))
 #define XOVERLAY(a) (&(XMISC(a)->u_overlay))
+#define XDISPLAY_OBJFWD(a) (&(XMISC(a)->u_display_objfwd))
 
 /* Pseudovector types.  */
 #define XPROCESS(a) ((struct Lisp_Process *) XPNTR(a))
@@ -753,6 +755,15 @@
     Lisp_Object start, end, plist;
   };
 
+/* Like Lisp_Objfwd except that value lives in a slot in the
+   current perdisplay.  */
+struct Lisp_Display_Objfwd
+  {
+    int type : 16;	/* = Lisp_Misc_Display_Objfwd */
+    int spacer : 16;
+    int offset;
+  };
+
 
 union Lisp_Misc
   {
@@ -765,6 +776,7 @@
     struct Lisp_Buffer_Objfwd u_buffer_objfwd;
     struct Lisp_Buffer_Local_Value u_buffer_local_value;
     struct Lisp_Overlay u_overlay;
+    struct Lisp_Display_Objfwd u_display_objfwd;
   };
 
 #ifdef LISP_FLOAT_TYPE
@@ -923,6 +935,8 @@
 #define GC_BUFFER_LOCAL_VALUEP(x) (GC_MISCP (x) && XMISC (x)->type == Lisp_Misc_Buffer_Local_Value)
 #define SOME_BUFFER_LOCAL_VALUEP(x) (MISCP (x) && XMISC (x)->type == Lisp_Misc_Some_Buffer_Local_Value)
 #define GC_SOME_BUFFER_LOCAL_VALUEP(x) (GC_MISCP (x) && XMISC (x)->type == Lisp_Misc_Some_Buffer_Local_Value)
+#define DISPLAY_OBJFWDP(x) (MISCP (x) && XMISC (x)->type == Lisp_Misc_Display_Objfwd)
+#define GC_DISPLAY_OBJFWDP(x) (GC_MISCP (x) && XMISC (x)->type == Lisp_Misc_Display_Objfwd)
 
 
 /* True if object X is a pseudovector whose code is CODE.  */