diff options
| author | Ken Raeburn | 2002-07-16 15:49:34 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2002-07-16 15:49:34 +0000 |
| commit | bba772ab93b877c524745e63cab4e05832975c7d (patch) | |
| tree | 8e24f7a181c5f42e48e3ae00daf192ad1fd00dd7 | |
| parent | 4069e0f8c82785eb144071dd46a53a4ae22d62bd (diff) | |
| download | emacs-bba772ab93b877c524745e63cab4e05832975c7d.tar.gz emacs-bba772ab93b877c524745e63cab4e05832975c7d.zip | |
* lisp.h (SREF): Produce rvalue.
(SSET): New macro.
| -rw-r--r-- | src/lisp.h | 3 |
1 files changed, 2 insertions, 1 deletions
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 (); | |||
| 541 | 541 | ||
| 542 | /* Convenience macros for dealing with Lisp strings. */ | 542 | /* Convenience macros for dealing with Lisp strings. */ |
| 543 | 543 | ||
| 544 | #define SREF(string, index) XSTRING (string)->data[index] | 544 | #define SREF(string, index) (XSTRING (string)->data[index] + 0) |
| 545 | #define SSET(string, index, new) (XSTRING (string)->data[index] = (new)) | ||
| 545 | #define SDATA(string) (XSTRING (string)->data + 0) | 546 | #define SDATA(string) (XSTRING (string)->data + 0) |
| 546 | #define SCHARS(string) (XSTRING (string)->size + 0) | 547 | #define SCHARS(string) (XSTRING (string)->size + 0) |
| 547 | #define SBYTES(string) (STRING_BYTES (XSTRING (string)) + 0) | 548 | #define SBYTES(string) (STRING_BYTES (XSTRING (string)) + 0) |