From: Kim F. Storm <storm@cua.dk>
Date: Tue, 18 Jul 2006 13:26:24 +0000 (+0000)
Subject: (Fdocumentation): Use xsignal1.
X-Git-Tag: emacs-pretest-22.0.90~1374
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f0a47f918391b8828540744acd36fd2fe328f62;p=emacs.git

(Fdocumentation): Use xsignal1.
---

diff --git a/src/doc.c b/src/doc.c
index 3dd5622d9df..93f372606a4 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -416,7 +416,7 @@ string is passed through `substitute-command-keys'.  */)
     {
       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 @@ string is passed through `substitute-command-keys'.  */)
   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