diff options
| author | Tino Calancha | 2016-09-04 10:59:07 +0900 |
|---|---|---|
| committer | Tino Calancha | 2016-09-04 10:59:07 +0900 |
| commit | 7c16c89c5772a1777e4d73ebc5ea2a3ff8344c22 (patch) | |
| tree | 53d616c0b11495d22e276ab15841522bdcb264ee | |
| parent | 2ad16e4bf9b43c169bcfa1e6240584488fbc3d78 (diff) | |
| download | emacs-7c16c89c5772a1777e4d73ebc5ea2a3ff8344c22.tar.gz emacs-7c16c89c5772a1777e4d73ebc5ea2a3ff8344c22.zip | |
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
| -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 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 | |||
| 957 | default is 20%." | 957 | default is 20%." |
| 958 | (interactive "P") | 958 | (interactive "P") |
| 959 | (image--change-size (if n | 959 | (image--change-size (if n |
| 960 | (1+ (/ n 10)) | 960 | (1+ (/ n 10.0)) |
| 961 | 1.2))) | 961 | 1.2))) |
| 962 | 962 | ||
| 963 | (defun image-decrease-size (n) | 963 | (defun image-decrease-size (n) |
| @@ -966,7 +966,7 @@ If N is 3, then the image size will be decreased by 30%. The | |||
| 966 | default is 20%." | 966 | default is 20%." |
| 967 | (interactive "P") | 967 | (interactive "P") |
| 968 | (image--change-size (if n | 968 | (image--change-size (if n |
| 969 | (- 1 (/ n 10)) | 969 | (- 1 (/ n 10.0)) |
| 970 | 0.8))) | 970 | 0.8))) |
| 971 | 971 | ||
| 972 | (defun image--get-image () | 972 | (defun image--get-image () |