(Fdefvar): Improve error message.

diff --git a/src/ChangeLog b/src/ChangeLog
index be7c4f548553ecc1b103ddc96b2f585e2a514211..ee669ce31aea0d3e997d2d99a95d834020280ee6 100644 (file)
--- 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 589bf593f156fee5bc5c081fdba39bec4fdf6e5d..26ed0ef53c40ee52380322bcdf0f67237d880811 100644 (file)
--- 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);