diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-11-01 14:14:52 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-11-01 14:14:52 +0000 |
| commit | e28c666e3c0b85fb98e6ea64284b7f2c84d448c8 (patch) | |
| tree | 49ad2ded43c083465c7e7c4840eac2db15a51524 /src/textprop.c | |
| parent | 6c8583110b1139bdc1129c6527ffcbcdb8919b77 (diff) | |
| download | emacs-e28c666e3c0b85fb98e6ea64284b7f2c84d448c8.tar.gz | |
(verify_interval_modification): Signal text-read-only
instead of calling error.
Diffstat (limited to 'src/textprop.c')
| -rw-r--r-- | src/textprop.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/textprop.c b/src/textprop.c index 14cebd69d64..9e86594cad7 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -1693,7 +1693,7 @@ verify_interval_modification (buf, start, end) if (TMEM (Qread_only, tem) || (NILP (Fplist_get (i->plist, Qread_only)) && TMEM (Qcategory, tem))) - error ("Attempt to insert within read-only text"); + Fsignal (Qtext_read_only, Qnil); } } @@ -1713,7 +1713,7 @@ verify_interval_modification (buf, start, end) if (! TMEM (Qread_only, tem) && (! NILP (Fplist_get (prev->plist,Qread_only)) || ! TMEM (Qcategory, tem))) - error ("Attempt to insert within read-only text"); + Fsignal (Qtext_read_only, Qnil); } } } @@ -1732,13 +1732,13 @@ verify_interval_modification (buf, start, end) if (TMEM (Qread_only, tem) || (NILP (Fplist_get (i->plist, Qread_only)) && TMEM (Qcategory, tem))) - error ("Attempt to insert within read-only text"); + Fsignal (Qtext_read_only, Qnil); tem = textget (prev->plist, Qrear_nonsticky); if (! TMEM (Qread_only, tem) && (! NILP (Fplist_get (prev->plist, Qread_only)) || ! TMEM (Qcategory, tem))) - error ("Attempt to insert within read-only text"); + Fsignal (Qtext_read_only, Qnil); } } } @@ -1760,7 +1760,7 @@ verify_interval_modification (buf, start, end) do { if (! INTERVAL_WRITABLE_P (i)) - error ("Attempt to modify read-only text"); + Fsignal (Qtext_read_only, Qnil); mod_hooks = textget (i->plist, Qmodification_hooks); if (! NILP (mod_hooks) && ! EQ (mod_hooks, prev_mod_hooks)) |