Mercurial > emacs

changeset 3534:2323f2160053

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(INTERVAL_VISIBLE_P): Use textget. (INTERVAL_WRITABLE_P): Use textget. Check Vinhibit_read_only.
author Richard M. Stallman <rms@gnu.org>
date Mon, 07 Jun 1993 05:28:42 +0000
parents 78b4e6241f85
children 581c09f72dbd
files src/intervals.h
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/intervals.h	Mon Jun 07 05:07:34 1993 +0000
+++ b/src/intervals.h	Mon Jun 07 05:28:42 1993 +0000
@@ -137,11 +137,15 @@
 
 /* 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. */