summaryrefslogtreecommitdiff
path: root/lisp/image-mode.el
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen <larsi@gnus.org>2014-09-18 20:38:05 +0200
committerLars Magne Ingebrigtsen <larsi@gnus.org>2014-09-18 20:38:05 +0200
commitc59f47da5c9c651df0cd2b9d857c6bd50c45027a (patch)
tree6c9458bdeb2441f13186361948087e60f26176ee /lisp/image-mode.el
parent999c35f47271f099e178ad2e2ea015509acbe633 (diff)
downloademacs-c59f47da5c9c651df0cd2b9d857c6bd50c45027a.tar.gz
* image-mode.el: Move defvars earlier to avoid a byte-compilation warning.
Diffstat (limited to 'lisp/image-mode.el')
-rw-r--r--lisp/image-mode.el40
1 files changed, 20 insertions, 20 deletions
diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index ee5a1e7906e..b94162d413a 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -49,6 +49,26 @@
"Special hook run when image data is requested in a new window.
It is called with one argument, the initial WINPROPS.")
+;; FIXME this doesn't seem mature yet. Document in manual when it is.
+(defvar image-transform-resize nil
+ "The image resize operation.
+Its value should be one of the following:
+ - nil, meaning no resizing.
+ - `fit-height', meaning to fit the image to the window height.
+ - `fit-width', meaning to fit the image to the window width.
+ - A number, which is a scale factor (the default size is 1).")
+
+(defvar image-transform-scale 1.0
+ "The scale factor of the image being displayed.")
+
+(defvar image-transform-rotation 0.0
+ "Rotation angle for the image in the current Image mode buffer.")
+
+(defvar image-transform-right-angle-fudge 0.0001
+ "Snap distance to a multiple of a right angle.
+There's no deep theory behind the default value, it should just
+be somewhat larger than ImageMagick's MagickEpsilon.")
+
(defun image-mode-winprops (&optional window cleanup)
"Return winprops of WINDOW.
A winprops object has the shape (WINDOW . ALIST).
@@ -905,26 +925,6 @@ replacing the current Image mode buffer."
;; nil "image-transform" image-transform-minor-mode-map)
-;; FIXME this doesn't seem mature yet. Document in manual when it is.
-(defvar image-transform-resize nil
- "The image resize operation.
-Its value should be one of the following:
- - nil, meaning no resizing.
- - `fit-height', meaning to fit the image to the window height.
- - `fit-width', meaning to fit the image to the window width.
- - A number, which is a scale factor (the default size is 1).")
-
-(defvar image-transform-scale 1.0
- "The scale factor of the image being displayed.")
-
-(defvar image-transform-rotation 0.0
- "Rotation angle for the image in the current Image mode buffer.")
-
-(defvar image-transform-right-angle-fudge 0.0001
- "Snap distance to a multiple of a right angle.
-There's no deep theory behind the default value, it should just
-be somewhat larger than ImageMagick's MagickEpsilon.")
-
(defsubst image-transform-width (width height)
"Return the bounding box width of a rotated WIDTH x HEIGHT rectangle.
The rotation angle is the value of `image-transform-rotation' in degrees."