(Lisp_Internal_Stream, XSETINTERNALSTREAM, INTERNALSTREAMP): Deleted.

diff --git a/src/lisp.h b/src/lisp.h
index c6ceddc57a33912c9fc105d20dff8ed7f41bbc07..f5e6e95362f228fedfea299fff4d746312251788 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -97,12 +97,6 @@ enum Lisp_Type
     Lisp_Frame,
 #endif
 
-    /* Used when a FILE * value needs to be passed
-       in an argument of type Lisp_Object.
-       You must do *(FILE **) XPNTR(obj) to get the value.
-       The user will never see this data type. */
-    Lisp_Internal_Stream,
-
     /* Used in a symbol value cell when the symbol's value is per-buffer.
        The actual contents are a cons cell which starts a list like this:
        (REALVALUE BUFFER CURRENT-ALIST-ELEMENT . DEFAULT-VALUE).
@@ -454,7 +448,6 @@ extern int pure_size;
 #define XSETBOOLFWD(a, b) XSET (a, Lisp_Boolfwd, b)
 #define XSETBUFFER_OBJFWD(a, b) XSET (a, Lisp_Buffer_Objfwd, b)
 #define XSETWINDOW_CONFIGURATION(a, b) XSET (a, Lisp_Window_Configuration, b)
-#define XSETINTERNAL_STREAM(a, b) XSET (a, Lisp_Internal_Stream, b)
 #define XSETINTFWD(a, b) XSET (a, Lisp_Intfwd, b)
 \f
 #ifdef USE_TEXT_PROPERTIES
@@ -724,7 +717,6 @@ typedef unsigned char UCHAR;
 #define BOOLFWDP(x) (XTYPE ((x)) == Lisp_Boolfwd)
 #define INTFWDP(x) (XTYPE ((x)) == Lisp_Intfwd)
 #define OBJFWDP(x) (XTYPE ((x)) == Lisp_Objfwd)
-#define INTERNAL_STREAMP(x) (XTYPE ((x)) == Lisp_Internal_Stream)
 #define BUFFER_LOCAL_VALUEP(x) (XTYPE ((x)) == Lisp_Buffer_Local_Value)
 #define SOME_BUFFER_LOCAL_VALUEP(x) (XTYPE ((x)) == Lisp_Some_Buffer_Local_Value)
 #define BUFFER_OBJFWDP(x) (XTYPE ((x)) == Lisp_Buffer_Objfwd)