changeset 71989:3a19c23d7c59

(text_read_only): Use xsignal0, xsignal1.
author Kim F. Storm <storm@cua.dk>
date Tue, 18 Jul 2006 13:29:40 +0000
parents 8d894204c732
children b7bf941f8049
files src/textprop.c
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);
 }