3240 |
{ |
{ |
3241 |
if (INTEGERP (to)) |
if (INTEGERP (to)) |
3242 |
/* relative X absolute => absolute */ |
/* relative X absolute => absolute */ |
3243 |
result = make_number (XFLOAT_DATA (from) * XINT (to)); |
result = make_number ((EMACS_INT)(XFLOAT_DATA (from) * XINT (to))); |
3244 |
else if (FLOATP (to)) |
else if (FLOATP (to)) |
3245 |
/* relative X relative => relative */ |
/* relative X relative => relative */ |
3246 |
result = make_float (XFLOAT_DATA (from) * XFLOAT_DATA (to)); |
result = make_float (XFLOAT_DATA (from) * XFLOAT_DATA (to)); |