Commit 28712a21 authored by Juanma Barranquero's avatar Juanma Barranquero

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

parent c2bcfb19
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
......
......@@ -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);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment