From 674537ea645b5301c288d9b64fc7a1de48fc6e63 Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Tue, 16 Jul 2002 15:09:36 +0000 Subject: [PATCH] (SDATA): Produce rvalue. --- src/ChangeLog | 4 ++++ src/lisp.h | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * lisp.h (SDATA): Produce rvalue. + 2002-07-16 Richard M. Stallman * 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) -- 2.39.5