Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
28712a21
Commit
28712a21
authored
May 08, 2004
by
Juanma Barranquero
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fquo): If any argument is float, do the computation in floating point.
parent
c2bcfb19
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
0 deletions
+11
-0
src/ChangeLog
src/ChangeLog
+5
-0
src/data.c
src/data.c
+6
-0
No files found.
src/ChangeLog
View file @
28712a21
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
...
...
src/data.c
View file @
28712a21
...
...
@@ -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
);
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment