From 28712a21247d1a503e7620e47c128c0fc33b3bb3 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sat, 8 May 2004 15:00:20 +0000 Subject: [PATCH] (Fquo): If any argument is float, do the computation in floating point. --- src/ChangeLog | 5 +++++ src/data.c | 6 ++++++ 2 files changed, 11 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 673ebc5a1ed..54e9908ece4 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2004-05-08 Peter Whaite (tiny change) + + * data.c (Fquo): If any argument is float, do the computation in + floating point. + 2004-05-08 Juanma Barranquero * editfns.c (Finsert_buffer_substring): Make argument names match their diff --git a/src/data.c b/src/data.c index 6ce9a5d37aa..1a66e52632a 100644 --- 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); } -- 2.39.2