diff options
author | Boris Goldowsky <boris@gnu.org> | 1995-03-27 16:05:57 +0000 |
---|---|---|
committer | Boris Goldowsky <boris@gnu.org> | 1995-03-27 16:05:57 +0000 |
commit | 68c18810d714da4df7a0ab984507aaa2e5d722b0 (patch) | |
tree | f1b18487b4bf18086fafe92675ee029add59f218 | |
parent | 2110374b615c0cbf4f09f44e75406a4e122d06e6 (diff) | |
download | emacs-68c18810d714da4df7a0ab984507aaa2e5d722b0.tar.gz |
(Vdefault_text_properties): name changed from Vdefault_properties.
(textget_direct): Fn deleted.
(textget, verify_interval_modification): Use Fplist_get instead.
-rw-r--r-- | src/intervals.c | 33 |
1 files changed, 7 insertions, 26 deletions
diff --git a/src/intervals.c b/src/intervals.c index d444cc11a59..343e01681f3 100644 --- a/src/intervals.c +++ b/src/intervals.c @@ -1544,7 +1544,7 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit) /* Get the value of property PROP from PLIST, which is the plist of an interval. We check for direct properties, for categories with property PROP, - and for PROP appearing on the default-properties list. */ + and for PROP appearing on the default-text-properties list. */ Lisp_Object textget (plist, prop) @@ -1570,30 +1570,11 @@ textget (plist, prop) if (! NILP (fallback)) return fallback; - if (CONSP (Vdefault_properties)) - return textget_direct (Vdefault_properties, prop); + if (CONSP (Vdefault_text_properties)) + return Fplist_get (Vdefault_text_properties, prop); return Qnil; } -/* Get the value of property PROP from PLIST, - which is the plist of an interval. - We check for direct properties only! */ - -Lisp_Object -textget_direct (plist, prop) - Lisp_Object plist; - register Lisp_Object prop; -{ - register Lisp_Object tail; - - for (tail = plist; !NILP (tail); tail = Fcdr (Fcdr (tail))) - { - if (EQ (prop, Fcar (tail))) - return Fcar (Fcdr (tail)); - } - - return Qnil; -} /* Set point in BUFFER to POSITION. If the target position is before an intangible character, move to an ok place. */ @@ -1890,7 +1871,7 @@ verify_interval_modification (buf, start, end) tem = textget (i->plist, Qfront_sticky); if (TMEM (Qread_only, tem) - || (NILP (textget_direct (i->plist, Qread_only)) + || (NILP (Fplist_get (i->plist, Qread_only)) && TMEM (Qcategory, tem))) error ("Attempt to insert within read-only text"); } @@ -1910,7 +1891,7 @@ verify_interval_modification (buf, start, end) tem = textget (prev->plist, Qrear_nonsticky); if (! TMEM (Qread_only, tem) - && (! NILP (textget_direct (prev->plist,Qread_only)) + && (! NILP (Fplist_get (prev->plist,Qread_only)) || ! TMEM (Qcategory, tem))) error ("Attempt to insert within read-only text"); } @@ -1929,13 +1910,13 @@ verify_interval_modification (buf, start, end) tem = textget (i->plist, Qfront_sticky); if (TMEM (Qread_only, tem) - || (NILP (textget_direct (i->plist, Qread_only)) + || (NILP (Fplist_get (i->plist, Qread_only)) && TMEM (Qcategory, tem))) error ("Attempt to insert within read-only text"); tem = textget (prev->plist, Qrear_nonsticky); if (! TMEM (Qread_only, tem) - && (! NILP (textget_direct (prev->plist, Qread_only)) + && (! NILP (Fplist_get (prev->plist, Qread_only)) || ! TMEM (Qcategory, tem))) error ("Attempt to insert within read-only text"); } |