diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2016-09-04 10:59:07 +0900 |
|---|---|---|
| committer | Tino Calancha <tino.calancha@gmail.com> | 2016-09-04 10:59:07 +0900 |
| commit | 7c16c89c5772a1777e4d73ebc5ea2a3ff8344c22 (patch) | |
| tree | 53d616c0b11495d22e276ab15841522bdcb264ee /lisp | |
| parent | 2ad16e4bf9b43c169bcfa1e6240584488fbc3d78 (diff) | |
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
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/image.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/image.el b/lisp/image.el index 272cee53e4..791a902a1b 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 () |