Commit 7c16c89c authored by Tino Calancha's avatar Tino Calancha

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
parent 2ad16e4b
......@@ -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 ()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment