Mercurial > emacs

comparison src/eval.c @ 63805:9f9033650ce4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdefvar): Improve error message.
author Richard M. Stallman <rms@gnu.org>
date Tue, 28 Jun 2005 02:27:38 +0000
parents b5df2fc9aa4e
children 090fb73237c3
comparison
equal deleted inserted replaced
63804:2ae7aa2a8261 63805:9f9033650ce4
805 { 805 {
806 register Lisp_Object sym, tem, tail; 806 register Lisp_Object sym, tem, tail;
807 807
808 sym = Fcar (args); 808 sym = Fcar (args);
809 if (SYMBOL_CONSTANT_P (sym)) 809 if (SYMBOL_CONSTANT_P (sym))
810 error ("Cannot defvar a constant symbol: %s", 810 error ("Constant symbol `%s' specified in defvar",
811 SDATA (SYMBOL_NAME (sym))); 811 SDATA (SYMBOL_NAME (sym)));
812 812
813 tail = Fcdr (args); 813 tail = Fcdr (args);
814 if (!NILP (Fcdr (Fcdr (tail)))) 814 if (!NILP (Fcdr (Fcdr (tail))))
815 error ("Too many arguments"); 815 error ("Too many arguments");