Mercurial > emacs
diff src/data.c @ 55440:1ca30263e9d4
(Fquo): If any argument is float, do the computation in floating point.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Sat, 08 May 2004 14:55:36 +0000 |
parents | f406ef28e71a |
children | c1c4318a2189 |
line wrap: on
line diff
--- a/src/data.c Sat May 08 14:42:41 2004 +0000 +++ b/src/data.c Sat May 08 14:55:36 2004 +0000 @@ -2698,6 +2698,12 @@ 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); }