Commit bba772ab authored by Ken Raeburn's avatar Ken Raeburn
Browse files

* lisp.h (SREF): Produce rvalue.

(SSET): New macro.
parent 4069e0f8
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment