(Fquo): If any argument is float, do the computation in floating point.

diff --git a/src/ChangeLog b/src/ChangeLog
index 673ebc5a1edcc55f2fbe00fb43dc385beefc041f..54e9908ece4688bee3c51845c099a074b4fe60e4 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-08  Peter Whaite  <emacs@whaite.ca>  (tiny change)
+
+       * data.c (Fquo): If any argument is float, do the computation in
+       floating point.
+
 2004-05-08  Juanma Barranquero  <lektu@terra.es>
 
        * editfns.c (Finsert_buffer_substring): Make argument names match their

diff --git a/src/data.c b/src/data.c
index 6ce9a5d37aa9359f790995dd2cdd9a0f954876e8..1a66e52632af0fbf99b5e8ce01fe2d9e5ee0003a 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -2698,6 +2698,12 @@ usage: (/ DIVIDEND DIVISOR &rest DIVISORS)  */)
      int nargs;
      Lisp_Object *args;
 {
+  int argnum;
+  if (nargs == 2)
+    return arith_driver (Adiv, nargs, args);
+  for (argnum = 0; argnum < nargs; argnum++)
+    if (FLOATP (args[argnum]))
+      return float_arith_driver (0, 0, Adiv, nargs, args);
   return arith_driver (Adiv, nargs, args);
 }