Commit 69410484 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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

parent 007c55a4
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.
......
......@@ -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");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment