Mercurial > emacs
comparison src/eval.c @ 63805:9f9033650ce4
(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"); |