From: Ken Raeburn <raeburn@raeburn.org>
Date: Mon, 20 May 2002 08:06:06 +0000 (+0000)
Subject: * lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
X-Git-Tag: ttn-vms-21-2-B4~14967
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74d70085965d7d63b4f69393d70926760296f78a;p=emacs.git

* lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
object field named "xname".
(SYMBOL_NAME): New macro.
---

diff --git a/src/lisp.h b/src/lisp.h
index 3f9cee4474d..d8bb5bf08af 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -871,9 +871,11 @@ struct Lisp_Symbol
      enum symbol_interned.  */
   unsigned interned : 2;
 
-  /* The symbol's name.  This should become a Lisp_Object
-     some day; there's no need for the Lisp_String pointer nowadays.  */
-  struct Lisp_String *name;
+  /* The symbol's name, as a Lisp string.
+
+     The name "xname" is used to intentionally break code referring to
+     the old field "name" of type pointer to struct Lisp_String.  */
+  Lisp_Object xname;
 
   /* Value of the symbol or Qunbound if unbound.  If this symbol is a
      defvaralias, `value' contains the symbol for which it is an
@@ -891,6 +893,11 @@ struct Lisp_Symbol
   struct Lisp_Symbol *next;
 };
 
+/* Value is name of symbol.  */
+
+#define SYMBOL_NAME(sym)  \
+     LISP_MAKE_RVALUE (XSYMBOL (sym)->xname)
+
 /* Value is non-zero if SYM is an interned symbol.  */
 
 #define SYMBOL_INTERNED_P(sym)  \