diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2002-07-14 23:54:05 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2002-07-14 23:54:05 +0000 |
| commit | 491c2516d32fa8b9ba9422ec142c8925dd82af00 (patch) | |
| tree | ab3c8bfa01cfc4c72a83ded8ce86289a9206f0a6 | |
| parent | af2b7cc9e0480d392d240107b6d2e30a4de059a6 (diff) | |
| download | emacs-491c2516d32fa8b9ba9422ec142c8925dd82af00.tar.gz | |
(SMBP): Deleted. All uses changed to STRING_MULTIBYTE.
(STRING_SET_UNIBYTE): New macro.
(SET_STRING_BYTES): Deleted. Callers (all of which supplied a length of -1)
changed to use STRING_SET_UNIBYTE.
| -rw-r--r-- | src/lisp.h | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/lisp.h b/src/lisp.h index 2fef6562478..8c01d9c74de 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -545,7 +545,6 @@ extern Lisp_Object make_number (); #define SDATA(string) XSTRING (string)->data #define SCHARS(string) XSTRING (string)->size #define SBYTES(string) STRING_BYTES (XSTRING (string)) -#define SMBP(string) STRING_MULTIBYTE (string) /* Basic data type for use of intervals. See the macros in intervals.h. */ @@ -681,8 +680,11 @@ extern int string_bytes P_ ((struct Lisp_String *)); #endif /* not GC_CHECK_STRING_BYTES */ -/* Set the length in bytes of STR. */ -#define SET_STRING_BYTES(STR, SIZE) ((STR)->size_byte = (SIZE)) +/* Mark STR as a unibyte string. */ +#define STRING_SET_UNIBYTE(STR) (XSTRING (STR)->size_byte = -1) + +/* Get text properties. */ +#define STRING_INTERVALS(STR) (XSTRING (STR)->intervals) /* In a string or vector, the sign bit of the `size' is the gc mark bit */ |