* 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

2 files changed, 7 insertions, 1 deletions

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