Mercurial > emacs

comparison src/eval.c @ 89952:6f6e9fe4658b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-22 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-431 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-441 Update from CVS
author Miles Bader <miles@gnu.org>
date Tue, 06 Jul 2004 02:57:15 +0000
parents 4c90ffeb71c5 fb855b187fa5
children b9eee0a7bef5
comparison
equal deleted inserted replaced
89951:aafd98bcc2ac 89952:6f6e9fe4658b
655 register Lisp_Object fn_name; 655 register Lisp_Object fn_name;
656 register Lisp_Object defn; 656 register Lisp_Object defn;
657 Lisp_Object lambda_list, doc, tail; 657 Lisp_Object lambda_list, doc, tail;
658 658
659 fn_name = Fcar (args); 659 fn_name = Fcar (args);
660 CHECK_SYMBOL (fn_name);
660 lambda_list = Fcar (Fcdr (args)); 661 lambda_list = Fcar (Fcdr (args));
661 tail = Fcdr (Fcdr (args)); 662 tail = Fcdr (Fcdr (args));
662 663
663 doc = Qnil; 664 doc = Qnil;
664 if (STRINGP (Fcar (tail))) 665 if (STRINGP (Fcar (tail)))