From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 27 Jun 2005 06:00:54 +0000 (+0000)
Subject: (Fdefvar): Don't try to set constant symbols.
X-Git-Tag: emacs-pretest-22.0.90~8621
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69410484f228767bdce802b93ef5b4dc73940023;p=emacs.git

(Fdefvar): Don't try to set constant symbols.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 046d1a321fe..dcc8d0f2bd5 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2005-06-27  Juanma Barranquero  <lekktu@gmail.com>
+
+	* eval.c (Fdefvar): Don't try to set constant symbols.
+
 2005-06-25  Richard M. Stallman  <rms@gnu.org>
 
 	* macfns.c (Fx_show_tip): Pass new arg to try_window.
diff --git a/src/eval.c b/src/eval.c
index c33021da7b7..589bf593f15 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -806,6 +806,10 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING)  */)
   register Lisp_Object sym, tem, tail;
 
   sym = Fcar (args);
+  if (SYMBOL_CONSTANT_P (sym))
+    error ("Cannot defvar a constant symbol: %s",
+           SDATA (SYMBOL_NAME (sym)));
+
   tail = Fcdr (args);
   if (!NILP (Fcdr (Fcdr (tail))))
     error ("Too many arguments");