# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1080521503 0
# Node ID d6dd8c390fc229255c05b07a0f096c091924732f
# Parent  f4cfaf943252b5fdeabd640cd10b15714c956b5c
(Fcommandp): Simplify.

diff -r f4cfaf943252 -r d6dd8c390fc2 src/eval.c
--- a/src/eval.c	Mon Mar 29 00:49:00 2004 +0000
+++ b/src/eval.c	Mon Mar 29 00:51:43 2004 +0000
@@ -1,5 +1,5 @@
 /* Evaluator for GNU Emacs Lisp interpreter.
-   Copyright (C) 1985, 86, 87, 93, 94, 95, 99, 2000, 2001, 2002
+   Copyright (C) 1985, 86, 87, 93, 94, 95, 99, 2000, 2001, 02, 2004
      Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -1812,13 +1812,11 @@
   /* Lists may represent commands.  */
   if (!CONSP (fun))
     return Qnil;
-  funcar = Fcar (fun);
-  if (!SYMBOLP (funcar))
-    return Fsignal (Qinvalid_function, Fcons (fun, Qnil));
+  funcar = XCAR (fun);
   if (EQ (funcar, Qlambda))
-    return Fassq (Qinteractive, Fcdr (Fcdr (fun)));
+    return Fassq (Qinteractive, Fcdr (XCDR (fun)));
   if (EQ (funcar, Qautoload))
-    return Fcar (Fcdr (Fcdr (Fcdr (fun))));
+    return Fcar (Fcdr (Fcdr (XCDR (fun))));
   else
     return Qnil;
 }