From: Tino Calancha <tino.calancha@gmail.com>
Date: Sun, 4 Sep 2016 01:59:07 +0000 (+0900)
Subject: image-increase-size: Fix non-interactive calls
X-Git-Tag: emacs-26.0.90~1652
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c16c89c5772a1777e4d73ebc5ea2a3ff8344c22;p=emacs.git

image-increase-size: Fix non-interactive calls

* lisp/image.el (image-increase-size, image-decrease-size):
Compute a floating point division.
Problem reported in:
https://lists.gnu.org/archive/html/emacs-devel/2016-09/msg00067.html
---

diff --git a/lisp/image.el b/lisp/image.el
index 272cee53e4f..791a902a1b9 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -957,7 +957,7 @@ If N is 3, then the image size will be increased by 30%.  The
 default is 20%."
   (interactive "P")
   (image--change-size (if n
-                          (1+ (/ n 10))
+                          (1+ (/ n 10.0))
                         1.2)))
 
 (defun image-decrease-size (n)
@@ -966,7 +966,7 @@ If N is 3, then the image size will be decreased by 30%.  The
 default is 20%."
   (interactive "P")
   (image--change-size (if n
-                          (- 1 (/ n 10))
+                          (- 1 (/ n 10.0))
                         0.8)))
 
 (defun image--get-image ()