diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-03-29 00:51:43 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-03-29 00:51:43 +0000 |
| commit | ed16fb98ca7da70243dbd42ccd76e08fa34d8966 (patch) | |
| tree | e70fce6ace8b6b4d264136b24dcb74ddc0c97cef | |
| parent | 1e0b36be0a4ca370d09e224f77afad571932cd83 (diff) | |
| download | emacs-ed16fb98ca7da70243dbd42ccd76e08fa34d8966.tar.gz emacs-ed16fb98ca7da70243dbd42ccd76e08fa34d8966.tar.bz2 emacs-ed16fb98ca7da70243dbd42ccd76e08fa34d8966.zip | |
(Fcommandp): Simplify.
| -rw-r--r-- | src/eval.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/eval.c b/src/eval.c index a5f66b295a6..0326a828a81 100644 --- a/src/eval.c +++ b/src/eval.c @@ -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 @@ then strings and vectors are not accepted. */) /* 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; } |