diff options
| author | Ken Raeburn | 2002-07-15 02:13:38 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2002-07-15 02:13:38 +0000 |
| commit | 7412b6fdd2a74fe49a4aa8fca84e4ef9afb5d548 (patch) | |
| tree | ba71891acebddab9c6e32930a45fd96a18865110 /src | |
| parent | d5db40779d7505244d37476b4f046641f07eea2b (diff) | |
| download | emacs-7412b6fdd2a74fe49a4aa8fca84e4ef9afb5d548.tar.gz emacs-7412b6fdd2a74fe49a4aa8fca84e4ef9afb5d548.zip | |
* lisp.h (STRING_SET_CHARS): New macro.
(SCHARS, SBYTES): Produce rvalues.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lisp.h | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/lisp.h b/src/lisp.h index 8c01d9c74de..ca8cd9835ee 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -543,8 +543,11 @@ extern Lisp_Object make_number (); | |||
| 543 | 543 | ||
| 544 | #define SREF(string, index) XSTRING (string)->data[index] | 544 | #define SREF(string, index) XSTRING (string)->data[index] |
| 545 | #define SDATA(string) XSTRING (string)->data | 545 | #define SDATA(string) XSTRING (string)->data |
| 546 | #define SCHARS(string) XSTRING (string)->size | 546 | #define SCHARS(string) (XSTRING (string)->size + 0) |
| 547 | #define SBYTES(string) STRING_BYTES (XSTRING (string)) | 547 | #define SBYTES(string) (STRING_BYTES (XSTRING (string)) + 0) |
| 548 | |||
| 549 | #define STRING_SET_CHARS(string, newsize) \ | ||
| 550 | (XSTRING (string)->size = (newsize)) | ||
| 548 | 551 | ||
| 549 | 552 | ||
| 550 | /* Basic data type for use of intervals. See the macros in intervals.h. */ | 553 | /* Basic data type for use of intervals. See the macros in intervals.h. */ |