mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

(INTERVAL_VISIBLE_P): Use textget.

Browse Source 
(INTERVAL_WRITABLE_P): Use textget.
Check Vinhibit_read_only.
This commit is contained in:
Richard M. Stallman 1993-06-07 05:28:42 +00:00
parent 0a4469c908
commit 9207deb2b9
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/intervals.h
View File

@ -137,11 +137,15 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
/* Is this interval visible? Replace later with cache access */
#define INTERVAL_VISIBLE_P(i) \
(! NULL_INTERVAL_P (i) && NILP (Fmemq (Qinvisible, (i)->plist)))
(! NULL_INTERVAL_P (i) && NILP (textget ((i)->plist, Qinvisible)))
/* Is this interval writable? Replace later with cache access */
#define INTERVAL_WRITABLE_P(i) \
(! NULL_INTERVAL_P (i) && NILP (Fmemq (Qread_only, (i)->plist)))
(! NULL_INTERVAL_P (i) && NILP (textget ((i)->plist, Qread_only)) \
&& (NILP (Vinhibit_read_only) \
|| (CONSP (Vinhibit_read_only) \
&& !NILP (Fmemq (textget ((i)->plist, Qread_only), \
Vinhibit_read_only)))))
/* Macros to tell whether insertions before or after this interval
should stick to it. */