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.

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index e9a962ffe96985dd25e466dbc1c7b4f7071c87d2..2de16cb6afdd98aab4c61777e22ede5e76bed93b 100644 (file)
--- 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)