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

[Richard M . Stallman]

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))))