diff options
| author | Lars Ingebrigtsen | 2021-03-12 02:37:53 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-03-12 02:37:53 +0100 |
| commit | b08b2e03b255c0ad85bd026a8d786b21ee22eee8 (patch) | |
| tree | 6f25a3ee62bd3862d51f11fbfce73482818a3ee7 | |
| parent | 5dff53f5da4f17d74a0ad2cd7ec0a736aa5111f7 (diff) | |
| download | emacs-b08b2e03b255c0ad85bd026a8d786b21ee22eee8.tar.gz emacs-b08b2e03b255c0ad85bd026a8d786b21ee22eee8.zip | |
Rename to image--transform-smoothing in image-mode.el
* lisp/image-mode.el (image--transform-smoothing): Rename from
image-transform-smoothing.
(image-transform-properties, image-transform-reset): Adjust usage.
| -rw-r--r-- | lisp/image-mode.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/image-mode.el b/lisp/image-mode.el index e9a962ffe96..2de16cb6afd 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el | |||
| @@ -95,7 +95,7 @@ Its value should be one of the following: | |||
| 95 | (defvar-local image-transform-rotation 0.0 | 95 | (defvar-local image-transform-rotation 0.0 |
| 96 | "Rotation angle for the image in the current Image mode buffer.") | 96 | "Rotation angle for the image in the current Image mode buffer.") |
| 97 | 97 | ||
| 98 | (defvar-local image-transform-smoothing nil | 98 | (defvar-local image--transform-smoothing nil |
| 99 | "Whether to use transform smoothing.") | 99 | "Whether to use transform smoothing.") |
| 100 | 100 | ||
| 101 | (defvar image-transform-right-angle-fudge 0.0001 | 101 | (defvar image-transform-right-angle-fudge 0.0001 |
| @@ -1481,9 +1481,9 @@ return value is suitable for appending to an image spec." | |||
| 1481 | (list :height (cdr resized))) | 1481 | (list :height (cdr resized))) |
| 1482 | ,@(unless (= 0.0 image-transform-rotation) | 1482 | ,@(unless (= 0.0 image-transform-rotation) |
| 1483 | (list :rotation image-transform-rotation)) | 1483 | (list :rotation image-transform-rotation)) |
| 1484 | ,@(when image-transform-smoothing | 1484 | ,@(when image--transform-smoothing |
| 1485 | (list :transform-smoothing | 1485 | (list :transform-smoothing |
| 1486 | (string= image-transform-smoothing "smooth"))))))) | 1486 | (string= image--transform-smoothing "smooth"))))))) |
| 1487 | 1487 | ||
| 1488 | (defun image-transform-set-scale (scale) | 1488 | (defun image-transform-set-scale (scale) |
| 1489 | "Prompt for a number, and resize the current image by that amount." | 1489 | "Prompt for a number, and resize the current image by that amount." |
| @@ -1519,7 +1519,7 @@ ROTATION should be in degrees." | |||
| 1519 | (defun image-transform-set-smoothing (smoothing) | 1519 | (defun image-transform-set-smoothing (smoothing) |
| 1520 | (interactive (list (completing-read "Smoothing: " | 1520 | (interactive (list (completing-read "Smoothing: " |
| 1521 | '("none" "smooth") nil t))) | 1521 | '("none" "smooth") nil t))) |
| 1522 | (setq image-transform-smoothing smoothing) | 1522 | (setq image--transform-smoothing smoothing) |
| 1523 | (image-toggle-display-image)) | 1523 | (image-toggle-display-image)) |
| 1524 | 1524 | ||
| 1525 | (defun image-transform-original () | 1525 | (defun image-transform-original () |
| @@ -1535,7 +1535,7 @@ ROTATION should be in degrees." | |||
| 1535 | (setq image-transform-resize image-auto-resize | 1535 | (setq image-transform-resize image-auto-resize |
| 1536 | image-transform-rotation 0.0 | 1536 | image-transform-rotation 0.0 |
| 1537 | image-transform-scale 1 | 1537 | image-transform-scale 1 |
| 1538 | image-transform-smoothing nil) | 1538 | image--transform-smoothing nil) |
| 1539 | (image-toggle-display-image)) | 1539 | (image-toggle-display-image)) |
| 1540 | 1540 | ||
| 1541 | (provide 'image-mode) | 1541 | (provide 'image-mode) |