mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

* lisp.h (SREF): Produce rvalue.

Browse Source 
(SSET): New macro.
This commit is contained in:
Ken Raeburn 2002-07-16 15:49:34 +00:00
parent 4069e0f8c8
commit bba772ab93
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/lisp.h
View File

@ -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)