emacs-diffs
[Top][All Lists]

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

 From: Eli Zaretskii Subject: [Emacs-diffs] Changes to emacs/src/floatfns.c Date: Tue, 19 Feb 2002 05:58:08 -0500

```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);
}

```