Mercurial > emacs
comparison src/lisp.h @ 46377:d50779ef2a76
* lisp.h (STRING_INTERVALS): Produce rvalue.
(STRING_SET_INTERVALS): New macro.
author | Ken Raeburn <raeburn@raeburn.org> |
---|---|
date | Mon, 15 Jul 2002 06:54:23 +0000 |
parents | e7289ef367d8 |
children | de62156bec9a |
comparison
equal
deleted
inserted
replaced
46376:3eb5331c5798 | 46377:d50779ef2a76 |
---|---|
685 | 685 |
686 /* Mark STR as a unibyte string. */ | 686 /* Mark STR as a unibyte string. */ |
687 #define STRING_SET_UNIBYTE(STR) (XSTRING (STR)->size_byte = -1) | 687 #define STRING_SET_UNIBYTE(STR) (XSTRING (STR)->size_byte = -1) |
688 | 688 |
689 /* Get text properties. */ | 689 /* Get text properties. */ |
690 #define STRING_INTERVALS(STR) (XSTRING (STR)->intervals) | 690 #define STRING_INTERVALS(STR) (XSTRING (STR)->intervals + 0) |
691 | |
692 /* Set text properties. */ | |
693 #define STRING_SET_INTERVALS(STR, INT) (XSTRING (STR)->intervals = (INT)) | |
691 | 694 |
692 /* In a string or vector, the sign bit of the `size' is the gc mark bit */ | 695 /* In a string or vector, the sign bit of the `size' is the gc mark bit */ |
693 | 696 |
694 struct Lisp_String | 697 struct Lisp_String |
695 { | 698 { |