From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 17 Jul 2012 02:56:00 +0000 (-0700)
Subject: * floatfns.c (Fabs): Do not wrap fabs inside IN_FLOAT.
X-Git-Tag: emacs-24.2.90~1180
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c26cf3ccd4ea49d42c2b3d21e59330143085f17;p=emacs.git

* floatfns.c (Fabs): Do not wrap fabs inside IN_FLOAT.

Unlike the other wrapped functions, fabs has an unspecified
effect on errno.

Fixes: debbugs:11913
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 6c994369610..9949c65ba71 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2012-07-17  Paul Eggert  <eggert@cs.ucla.edu>
+
+	* floatfns.c (Fabs): Do not wrap fabs inside IN_FLOAT (Bug#11913).
+	Unlike the other wrapped functions, fabs has an unspecified
+	effect on errno.
+
 2012-07-16  Jan Djärv  <jan.h.d@swipnet.se>
 
 	* nsterm.m (keyDown): Interpret flags without left/right bits
diff --git a/src/floatfns.c b/src/floatfns.c
index eaa1b32eb17..cad071f1e15 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -664,7 +664,7 @@ DEFUN ("abs", Fabs, Sabs, 1, 1, 0,
   CHECK_NUMBER_OR_FLOAT (arg);
 
   if (FLOATP (arg))
-    IN_FLOAT (arg = make_float (fabs (XFLOAT_DATA (arg))), "abs", arg);
+    arg = make_float (fabs (XFLOAT_DATA (arg)));
   else if (XINT (arg) < 0)
     XSETINT (arg, - XINT (arg));