From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 15:49:34 +0000 (+0000)
Subject: * lisp.h (SREF): Produce rvalue.
X-Git-Tag: ttn-vms-21-2-B4~14086
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bba772ab93b877c524745e63cab4e05832975c7d;p=emacs.git

* lisp.h (SREF): Produce rvalue.
(SSET): New macro.
---

diff --git a/src/lisp.h b/src/lisp.h
index eb15e4753b1..9257a88838c 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -541,7 +541,8 @@ extern Lisp_Object make_number ();
 
 /* Convenience macros for dealing with Lisp strings.  */
 
-#define SREF(string, index)	XSTRING (string)->data[index]
+#define SREF(string, index)	(XSTRING (string)->data[index] + 0)
+#define SSET(string, index, new) (XSTRING (string)->data[index] = (new))
 #define SDATA(string)		(XSTRING (string)->data + 0)
 #define SCHARS(string)		(XSTRING (string)->size + 0)
 #define SBYTES(string)		(STRING_BYTES (XSTRING (string)) + 0)