From d0a29e1de77e4c1c01c46d80b6ac2df06b1df2b3 Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Tue, 18 Jul 2006 13:29:40 +0000
Subject: [PATCH] (text_read_only): Use xsignal0, xsignal1.

---
 src/textprop.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/textprop.c b/src/textprop.c
index 0318d12913..b89d73a7ef 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -86,7 +86,10 @@ static void
 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);
 }
 
 
-- 
2.39.2