From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Apr 1995 05:21:50 +0000 (+0000)
Subject: (defvar_int, defvar_bool, defvar_lisp_nopro, defvar_kboard)
X-Git-Tag: emacs-19.34~4616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=47e28b2cfe828e211d4926ceee36e171b64fd710;p=emacs.git

(defvar_int, defvar_bool, defvar_lisp_nopro, defvar_kboard)
(defvar_per_buffer): Use XMISCTYPE.
---

diff --git a/src/lread.c b/src/lread.c
index 4d20873255f..b7c1706cb8e 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1905,7 +1905,7 @@ defvar_int (namestring, address)
   Lisp_Object sym, val;
   sym = intern (namestring);
   val = allocate_misc ();
-  XMISC (val)->type = Lisp_Misc_Intfwd;
+  XMISCTYPE (val) = Lisp_Misc_Intfwd;
   XINTFWD (val)->intvar = address;
   XSYMBOL (sym)->value = val;
 }
@@ -1920,7 +1920,7 @@ defvar_bool (namestring, address)
   Lisp_Object sym, val;
   sym = intern (namestring);
   val = allocate_misc ();
-  XMISC (val)->type = Lisp_Misc_Boolfwd;
+  XMISCTYPE (val) = Lisp_Misc_Boolfwd;
   XBOOLFWD (val)->boolvar = address;
   XSYMBOL (sym)->value = val;
 }
@@ -1938,7 +1938,7 @@ defvar_lisp_nopro (namestring, address)
   Lisp_Object sym, val;
   sym = intern (namestring);
   val = allocate_misc ();
-  XMISC (val)->type = Lisp_Misc_Objfwd;
+  XMISCTYPE (val) = Lisp_Misc_Objfwd;
   XOBJFWD (val)->objvar = address;
   XSYMBOL (sym)->value = val;
 }
@@ -1973,7 +1973,7 @@ defvar_per_buffer (namestring, address, type, doc)
   val = allocate_misc ();
   offset = (char *)address - (char *)current_buffer;
 
-  XMISC (val)->type = Lisp_Misc_Buffer_Objfwd;
+  XMISCTYPE (val) = Lisp_Misc_Buffer_Objfwd;
   XBUFFER_OBJFWD (val)->offset = offset;
   XSYMBOL (sym)->value = val;
   *(Lisp_Object *)(offset + (char *)&buffer_local_symbols) = sym;
@@ -1997,7 +1997,7 @@ defvar_kboard (namestring, offset)
   Lisp_Object sym, val;
   sym = intern (namestring);
   val = allocate_misc ();
-  XMISC (val)->type = Lisp_Misc_Kboard_Objfwd;
+  XMISCTYPE (val) = Lisp_Misc_Kboard_Objfwd;
   XKBOARD_OBJFWD (val)->offset = offset;
   XSYMBOL (sym)->value = val;
 }