[Emacs-diffs] Changes to emacs/src/eval.c

[Juanma Barranquero]

Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.244 emacs/src/eval.c:1.245
*** emacs/src/eval.c:1.244      Sat Jun 25 14:37:47 2005
--- emacs/src/eval.c    Mon Jun 27 05:59:23 2005
***************
*** 806,811 ****
--- 806,815 ----
    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");