Mercurial > emacs
changeset 26274:e310c2b8e6ed
(Qtext_read_only): New built-in error.
(syms_of_data): Initialize it.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 01 Nov 1999 14:14:04 +0000 |
| parents | 56768bd174a4 |
| children | 0a50b06a5aa7 |
| files | src/data.c |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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);