Mercurial > emacs

comparison src/eval.c @ 54630:d6dd8c390fc2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcommandp): Simplify.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 29 Mar 2004 00:51:43 +0000
parents abbbd322a247
children 97fe0ef6c077
comparison
equal deleted inserted replaced
54629:f4cfaf943252 54630:d6dd8c390fc2
1 /* Evaluator for GNU Emacs Lisp interpreter. 1 /* Evaluator for GNU Emacs Lisp interpreter.
2 Copyright (C) 1985, 86, 87, 93, 94, 95, 99, 2000, 2001, 2002 2 Copyright (C) 1985, 86, 87, 93, 94, 95, 99, 2000, 2001, 02, 2004
3 Free Software Foundation, Inc. 3 Free Software Foundation, Inc.
4 4
5 This file is part of GNU Emacs. 5 This file is part of GNU Emacs.
6 6
7 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
1810 return Qt; 1810 return Qt;
1811 1811
1812 /* Lists may represent commands. */ 1812 /* Lists may represent commands. */
1813 if (!CONSP (fun)) 1813 if (!CONSP (fun))
1814 return Qnil; 1814 return Qnil;
1815 funcar = Fcar (fun); 1815 funcar = XCAR (fun);
1816 if (!SYMBOLP (funcar))
1817 return Fsignal (Qinvalid_function, Fcons (fun, Qnil));
1818 if (EQ (funcar, Qlambda)) 1816 if (EQ (funcar, Qlambda))
1819 return Fassq (Qinteractive, Fcdr (Fcdr (fun))); 1817 return Fassq (Qinteractive, Fcdr (XCDR (fun)));
1820 if (EQ (funcar, Qautoload)) 1818 if (EQ (funcar, Qautoload))
1821 return Fcar (Fcdr (Fcdr (Fcdr (fun)))); 1819 return Fcar (Fcdr (Fcdr (XCDR (fun))));
1822 else 1820 else
1823 return Qnil; 1821 return Qnil;
1824 } 1822 }
1825 1823
1826 /* ARGSUSED */ 1824 /* ARGSUSED */