emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master b08b2e0 2/2: Rename to image--transform-smoothing in image-mode.e


From: Lars Ingebrigtsen
Subject: master b08b2e0 2/2: Rename to image--transform-smoothing in image-mode.el
Date: Thu, 11 Mar 2021 20:38:03 -0500 (EST)

branch: master
commit b08b2e03b255c0ad85bd026a8d786b21ee22eee8
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
---
 lisp/image-mode.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index e9a962f..2de16cb 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -95,7 +95,7 @@ Its value should be one of the following:
 (defvar-local image-transform-rotation 0.0
   "Rotation angle for the image in the current Image mode buffer.")
 
-(defvar-local image-transform-smoothing nil
+(defvar-local image--transform-smoothing nil
   "Whether to use transform smoothing.")
 
 (defvar image-transform-right-angle-fudge 0.0001
@@ -1481,9 +1481,9 @@ return value is suitable for appending to an image spec."
            (list :height (cdr resized)))
        ,@(unless (= 0.0 image-transform-rotation)
            (list :rotation image-transform-rotation))
-        ,@(when image-transform-smoothing
+        ,@(when image--transform-smoothing
             (list :transform-smoothing
-                  (string= image-transform-smoothing "smooth")))))))
+                  (string= image--transform-smoothing "smooth")))))))
 
 (defun image-transform-set-scale (scale)
   "Prompt for a number, and resize the current image by that amount."
@@ -1519,7 +1519,7 @@ ROTATION should be in degrees."
 (defun image-transform-set-smoothing (smoothing)
   (interactive (list (completing-read "Smoothing: "
                                       '("none" "smooth") nil t)))
-  (setq image-transform-smoothing smoothing)
+  (setq image--transform-smoothing smoothing)
   (image-toggle-display-image))
 
 (defun image-transform-original ()
@@ -1535,7 +1535,7 @@ ROTATION should be in degrees."
   (setq image-transform-resize image-auto-resize
        image-transform-rotation 0.0
        image-transform-scale 1
-        image-transform-smoothing nil)
+        image--transform-smoothing nil)
   (image-toggle-display-image))
 
 (provide 'image-mode)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]