(Fdefvar): Improve error message.

2 files changed, 5 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index be7c4f54855..ee669ce31ae 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2005-06-27  Richard M. Stallman  <rms@gnu.org>
+
+        * eval.c (Fdefvar): Improve error message.
+
 2005-06-27  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
         * macterm.c [USE_CARBON_EVENTS] (mac_convert_event_ref): Fix last
diff --git a/src/eval.c b/src/eval.c
index 589bf593f15..26ed0ef53c4 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -807,7 +807,7 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING)  */)
 
   sym = Fcar (args);
   if (SYMBOL_CONSTANT_P (sym))
-    error ("Cannot defvar a constant symbol: %s",
+    error ("Constant symbol `%s' specified in defvar",
            SDATA (SYMBOL_NAME (sym)));
 
   tail = Fcdr (args);