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

[Juanma Barranquero]

Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.193 emacs/src/eval.c:1.194
*** emacs/src/eval.c:1.193      Sun Jul 14 20:00:36 2002
--- emacs/src/eval.c    Mon Jul 15 11:37:51 2002
***************
*** 710,725 ****
  }
  
  
! DEFUN ("defvaralias", Fdefvaralias, Sdefvaralias, 2, 2, 0,
         doc: /* Make SYMBOL a variable alias for symbol ALIASED.
  Setting the value of SYMBOL will subsequently set the value of ALIASED,
  and getting the value of SYMBOL will return the value ALIASED has.
! ALIASED nil means remove the alias; SYMBOL is unbound after that.  */)
!      (symbol, aliased)
!      Lisp_Object symbol, aliased;
  {
    struct Lisp_Symbol *sym;
!   
    CHECK_SYMBOL (symbol);
    CHECK_SYMBOL (aliased);
  
--- 710,726 ----
  }
  
  
! DEFUN ("defvaralias", Fdefvaralias, Sdefvaralias, 2, 3, 0,
         doc: /* Make SYMBOL a variable alias for symbol ALIASED.
  Setting the value of SYMBOL will subsequently set the value of ALIASED,
  and getting the value of SYMBOL will return the value ALIASED has.
! ALIASED nil means remove the alias; SYMBOL is unbound after that.
! Third arg DOCSTRING, if non-nil, is documentation for SYMBOL.  */)
!      (symbol, aliased, docstring)
!      Lisp_Object symbol, aliased, docstring;
  {
    struct Lisp_Symbol *sym;
! 
    CHECK_SYMBOL (symbol);
    CHECK_SYMBOL (aliased);
  
***************
*** 731,737 ****
    sym->value = aliased;
    sym->constant = SYMBOL_CONSTANT_P (aliased);
    LOADHIST_ATTACH (symbol);
!   
    return aliased;
  }
  
--- 732,740 ----
    sym->value = aliased;
    sym->constant = SYMBOL_CONSTANT_P (aliased);
    LOADHIST_ATTACH (symbol);
!   if (!NILP (docstring))
!     Fput (symbol, Qvariable_documentation, docstring);
! 
    return aliased;
  }