mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Juanma Barranquero 2004-05-08 15:00:20 +00:00
parent c2bcfb19fb
commit 28712a2124
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ChangeLog
View File

@ -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

6
src/data.c
View File

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