# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1153229380 0
# Node ID 3a19c23d7c5921ddb43609b6f372de718b42e714
# Parent  8d894204c7329f5ab2b7801f50d4aa46deacc0ec
(text_read_only): Use xsignal0, xsignal1.

diff -r 8d894204c732 -r 3a19c23d7c59 src/textprop.c
--- a/src/textprop.c	Tue Jul 18 13:29:00 2006 +0000
+++ b/src/textprop.c	Tue Jul 18 13:29:40 2006 +0000
@@ -86,7 +86,10 @@
 text_read_only (propval)
      Lisp_Object propval;
 {
-  Fsignal (Qtext_read_only, STRINGP (propval) ? Fcons (propval, Qnil) : Qnil);
+  if (STRINGP (propval))
+    xsignal1 (Qtext_read_only, propval);
+
+  xsignal0 (Qtext_read_only);
 }