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

[Eli Zaretskii]

Index: emacs/src/floatfns.c
diff -c emacs/src/floatfns.c:1.77 emacs/src/floatfns.c:1.78
*** emacs/src/floatfns.c:1.77   Fri Feb  8 08:03:27 2002
--- emacs/src/floatfns.c        Tue Feb 19 05:58:07 2002
***************
*** 255,267 ****
    return make_float (d);
  }
  
! DEFUN ("atan", Fatan, Satan, 1, 1, 0,
!        doc: /* Return the inverse tangent of ARG.  */)
!      (arg)
!      register Lisp_Object arg;
  {
!   double d = extract_float (arg);
!   IN_FLOAT (d = atan (d), "atan", arg);
    return make_float (d);
  }
  
--- 255,279 ----
    return make_float (d);
  }
  
! DEFUN ("atan", Fatan, Satan, 1, 2, 0,
!        doc: /* Return the inverse tangent of the arguments.
! If only one argument Y is given, return the inverse tangent of Y.
! If two arguments Y and X are given, return the inverse tangent of Y
! divided by X, i.e. the angle in radians between the vector (X, Y)
! and the x-axis.  */)
!      (y, x)
!      register Lisp_Object y, x;
  {
!   double d = extract_float (y);
! 
!   if (NILP (x))
!     IN_FLOAT (d = atan (d), "atan", y);
!   else
!     {
!       double d2 = extract_float (x);
! 
!       IN_FLOAT2 (d = atan2 (d, d2), "atan", y, x);
!     }
    return make_float (d);
  }