# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 941465644 0
# Node ID e310c2b8e6edf0ddd5ec3c6b4a6d07228728cb23
# Parent  56768bd174a4824c84697fcd973a9b8c8ef427a0
(Qtext_read_only): New built-in error.
(syms_of_data): Initialize it.

diff -r 56768bd174a4 -r e310c2b8e6ed src/data.c
--- a/src/data.c	Mon Nov 01 13:56:47 1999 +0000
+++ b/src/data.c	Mon Nov 01 14:14:04 1999 +0000
@@ -79,6 +79,7 @@
 Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch;
 Lisp_Object Qend_of_file, Qarith_error, Qmark_inactive;
 Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only;
+Lisp_Object Qtext_read_only;
 Lisp_Object Qintegerp, Qnatnump, Qwholenump, Qsymbolp, Qlistp, Qconsp;
 Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp;
 Lisp_Object Qchar_or_string_p, Qmarkerp, Qinteger_or_marker_p, Qvectorp;
@@ -2590,6 +2591,7 @@
   Qbeginning_of_buffer = intern ("beginning-of-buffer");
   Qend_of_buffer = intern ("end-of-buffer");
   Qbuffer_read_only = intern ("buffer-read-only");
+  Qtext_read_only = intern ("text-read-only");
   Qmark_inactive = intern ("mark-inactive");
 
   Qlistp = intern ("listp");
@@ -2715,6 +2717,11 @@
   Fput (Qbuffer_read_only, Qerror_message,
 	build_string ("Buffer is read-only"));
 
+  Fput (Qtext_read_only, Qerror_conditions,
+	Fcons (Qtext_read_only, error_tail));
+  Fput (Qtext_read_only, Qerror_message,
+	build_string ("Text is read-only"));
+
 #ifdef LISP_FLOAT_TYPE
   Qrange_error = intern ("range-error");
   Qdomain_error = intern ("domain-error");
@@ -2781,6 +2788,7 @@
   staticpro (&Qbeginning_of_buffer);
   staticpro (&Qend_of_buffer);
   staticpro (&Qbuffer_read_only);
+  staticpro (&Qtext_read_only);
   staticpro (&Qmark_inactive);
 
   staticpro (&Qlistp);