Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.248 emacs/src/eval.c:1.249
*** emacs/src/eval.c:1.248 Mon Jul 4 16:06:30 2005
--- emacs/src/eval.c Sat Jul 9 03:42:43 2005
***************
*** 807,814 ****
sym = Fcar (args);
if (SYMBOL_CONSTANT_P (sym))
! error ("Constant symbol `%s' specified in defvar",
! SDATA (SYMBOL_NAME (sym)));
tail = Fcdr (args);
if (!NILP (Fcdr (Fcdr (tail))))
--- 807,822 ----
sym = Fcar (args);
if (SYMBOL_CONSTANT_P (sym))
! {
! /* For updward compatibility, allow (defvar :foo (quote :foo)). */
! tem = Fcar (Fcdr (args));
! if (! (CONSP (tem)
! && EQ (XCAR (tem), Qquote)
! && CONSP (XCDR (tem))
! && EQ (XCAR (XCDR (tem)), sym)))
! error ("Constant symbol `%s' specified in defvar",
! SDATA (SYMBOL_NAME (sym)));
! }
tail = Fcdr (args);
if (!NILP (Fcdr (Fcdr (tail))))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
