From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 15:09:36 +0000 (+0000)
Subject: (SDATA): Produce rvalue.
X-Git-Tag: ttn-vms-21-2-B4~14097
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=674537ea645b5301c288d9b64fc7a1de48fc6e63;p=emacs.git

(SDATA): Produce rvalue.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 4091a0a29f6..8eda2c6c2ab 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2002-07-16  Ken Raeburn  <raeburn@gnu.org>
+
+	* lisp.h (SDATA): Produce rvalue.
+
 2002-07-16  Richard M. Stallman  <rms@gnu.org>
 
 	* s/hpux11.h (USG_SUBTTY_WORKS): Defined.
diff --git a/src/lisp.h b/src/lisp.h
index 1dd66c95f50..eb15e4753b1 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -542,7 +542,7 @@ extern Lisp_Object make_number ();
 /* Convenience macros for dealing with Lisp strings.  */
 
 #define SREF(string, index)	XSTRING (string)->data[index]
-#define SDATA(string)		XSTRING (string)->data
+#define SDATA(string)		(XSTRING (string)->data + 0)
 #define SCHARS(string)		(XSTRING (string)->size + 0)
 #define SBYTES(string)		(STRING_BYTES (XSTRING (string)) + 0)