# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1153229184 0
# Node ID 9208340e9cad246bed8552515f4c58bc99cd0b48
# Parent  7febc7ff0f0d1927258cfbdb49d9f148a135ebe2
(Fdocumentation): Use xsignal1.

diff -r 7febc7ff0f0d -r 9208340e9cad src/doc.c
--- a/src/doc.c	Tue Jul 18 13:26:19 2006 +0000
+++ b/src/doc.c	Tue Jul 18 13:26:24 2006 +0000
@@ -416,7 +416,7 @@
     {
       funcar = Fcar (fun);
       if (!SYMBOLP (funcar))
-	return Fsignal (Qinvalid_function, Fcons (fun, Qnil));
+	xsignal1 (Qinvalid_function, fun);
       else if (EQ (funcar, Qkeymap))
 	return build_string ("Prefix command (definition is a keymap associating keystrokes with commands).");
       else if (EQ (funcar, Qlambda)
@@ -443,7 +443,7 @@
   else
     {
     oops:
-      Fsignal (Qinvalid_function, Fcons (fun, Qnil));
+      xsignal1 (Qinvalid_function, fun);
     }
 
   /* If DOC is 0, it's typically because of a dumped file missing