* lisp.h (SREF): Produce rvalue.

(SSET): New macro.

* lisp.h (SREF): Produce rvalue.
(SSET): New macro.
bba772ab · Ken Raeburn · 4069e0f8 · bba772ab
Commit bba772ab authored Jul 16, 2002 by Ken Raeburn
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

src/lisp.h src/lisp.h +2 -1

No files found.
--- 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)