Mercurial > emacs

diff src/eval.c @ 63790:b5df2fc9aa4e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdefvar): Don't try to set constant symbols.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 27 Jun 2005 05:59:23 +0000
parents 60a9b2133cf1
children 9f9033650ce4
line wrap: on
line diff
--- a/src/eval.c	Mon Jun 27 00:17:06 2005 +0000
+++ b/src/eval.c	Mon Jun 27 05:59:23 2005 +0000
@@ -806,6 +806,10 @@
   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");