| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/image-mode.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:23 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/image-mode.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'image)
(defvar image-mode-winprops-alist t nil)
(make-variable-buffer-local 'image-mode-winprops-alist)
#@118 Special hook run when image data is requested in a new window.
It is called with one argument, the initial WINPROPS.
(defvar image-mode-new-window-functions nil (#$ . 668))
#@262 Return winprops of WINDOW.
A winprops object has the shape (WINDOW . ALIST).
WINDOW defaults to `selected-window' if it displays the current buffer, and
otherwise it defaults to t, used for times when the buffer is not displayed.
(fn &optional WINDOW CLEANUP)
(defalias 'image-mode-winprops #[512 "\204 p\302 =\203 \303 \202 \304\262\202' \304=\204' \305!\204' \306\307\"\210\211\2033 \310\311\312\313\"\"\236\211\204K \314\211@A)!B\262\315\316\"\210\211\310\"B\211\207" [image-mode-winprops-alist x window-buffer selected-window t windowp error "Not a window: %s" delq nil mapcar #[257 "\211\242\300!\203 \301!\205 \207" [windowp window-live-p] 4 "\n\n(fn WINPROP)"] copy-alist run-hook-with-args image-mode-new-window-functions] 8 (#$ . 848)])
(defalias 'image-mode-window-get #[513 "\211:\204\n \300!\262A\236A\207" [image-mode-winprops] 4 "\n\n(fn PROP &optional WINPROPS)"])
(put 'image-mode-window-get 'gv-expander #[385 "\300\301\302$\207" [gv--defsetter image-mode-window-get #[770 "\300F\207" [image-mode-window-put] 7 "\n\n(fn VAL PROP &optional WINPROPS)"]] 7 "\n\n(fn DO &rest ARGS)"])
(defalias 'image-mode-window-put #[770 "\211:\204\n \300!\262\211B\301A\236A\"B\241\207" [image-mode-winprops delq] 8 "\n\n(fn PROP VAL &optional WINPROPS)"])
(defalias 'image-set-window-vscroll #[257 "\300\301\302#\210\303\304 \"\207" [image-mode-window-put vscroll nil set-window-vscroll selected-window] 5 "\n\n(fn VSCROLL)"])
(defalias 'image-set-window-hscroll #[257 "\300\301\302#\210\303\304 \"\207" [image-mode-window-put hscroll nil set-window-hscroll selected-window] 5 "\n\n(fn NCOL)"])
(defalias 'image-mode-reapply-winprops #[0 "\301 \205+ <\205+ \302\303\304\"\305\306\"\305\307\"\203 \310\311 \"\210\211\205) \312\311 \"\266\203\207" [image-mode-winprops-alist image-get-display-property image-mode-winprops nil t image-mode-window-get hscroll vscroll set-window-hscroll selected-window set-window-vscroll] 6 "\n\n(fn)"])
(defalias 'image-mode-setup-winprops #[0 "<\204 \301\302\303\304\301\305$\207" [image-mode-winprops-alist nil add-hook window-configuration-change-hook image-mode-reapply-winprops t] 5 "\n\n(fn)"])
(defalias 'image-get-display-property #[0 "\300e\301\302 p=\205\f \303 #\207" [get-char-property display window-buffer selected-window] 5 "\n\n(fn)"])
#@584 Wrapper around `image-size', handling slice display properties.
Like `image-size', the return value is (WIDTH . HEIGHT).
WIDTH and HEIGHT are in canonical character units if PIXELS is
nil, and in pixel units if PIXELS is non-nil.
If SPEC is an image display property, this function is equivalent
to `image-size'. If SPEC is a list of properties containing
`image' and `slice' properties, return the display size taking
the slice property into account. If the list contains `image'
but not `slice', return the `image-size' of the specified image.
(fn SPEC &optional PIXELS FRAME)
(defalias 'image-display-size #[769 "@\300=\203
\301#\207\302\300\"\302\303\"\203A \211\203A \203+ \3048\3058B\202R \306\3048!\307!\245\306\3058!\310!\245B\202R \203M \301#\202R \311\312\"\207" [image image-size assoc slice 3 4 float frame-char-width frame-char-height error "Invalid image specification: %s"] 9 (#$ . 3195)])
#@133 Scroll image in current window to the left by N character widths.
Stop if the right edge of the image is reached.
(fn &optional N)
(defalias 'image-forward-hscroll #[256 "\211\300U\203 \301\207\211\300W\203 \302\300\303 \\]!\207\304 \305 \3068@Z\307\310!@!\302\300Z]\303 \\^!\207" [0 nil image-set-window-hscroll window-hscroll image-get-display-property window-inside-edges 2 ceiling image-display-size] 9 (#$ . 4132) "p"])
#@133 Scroll image in current window to the right by N character widths.
Stop if the left edge of the image is reached.
(fn &optional N)
(defalias 'image-backward-hscroll #[256 "\300[!\207" [image-forward-hscroll] 3 (#$ . 4575) "p"])
#@108 Scroll image in current window upward by N lines.
Stop if the bottom edge of the image is reached.
(fn N)
(defalias 'image-next-line #[257 "\211\300U\203 \301\207\211\300W\203 \302\300\303 \\]!\207\304 \305 \3068A@Z\307\310!A!\302\300Z]\303 \\^!\207" [0 nil image-set-window-vscroll window-vscroll image-get-display-property window-inside-edges 3 ceiling image-display-size] 9 (#$ . 4812) "p"])
#@117 Scroll image in current window downward by N lines.
Stop if the top edge of the image is reached.
(fn &optional N)
(defalias 'image-previous-line #[256 "\300[!\207" [image-next-line] 3 (#$ . 5225) "p"])
#@426 Scroll image in current window upward by N lines.
Stop if the bottom edge of the image is reached.
If ARG is omitted or nil, scroll upward by a near full screen.
A near full screen is `next-screen-context-lines' less than a full screen.
Negative ARG means scroll downward.
If ARG is the atom `-', scroll downward by nearly full screen.
When calling from a program, supply as argument a number, nil, or `-'.
(fn &optional N)
(defalias 'image-scroll-up #[256 "\211\204 \301 \3028A@Z\303\304Z]!\207\211\305=\203, \301 \3028A@Z\303\304Z^!\207\303\306!!\207" [next-screen-context-lines window-inside-edges 3 image-next-line 0 - prefix-numeric-value] 7 (#$ . 5437) "P"])
#@423 Scroll image in current window downward by N lines.
Stop if the top edge of the image is reached.
If ARG is omitted or nil, scroll downward by a near full screen.
A near full screen is `next-screen-context-lines' less than a full screen.
Negative ARG means scroll upward.
If ARG is the atom `-', scroll upward by nearly full screen.
When calling from a program, supply as argument a number, nil, or `-'.
(fn &optional N)
(defalias 'image-scroll-down #[256 "\211\204 \301 \3028A@Z\303\304Z^!\207\211\305=\203, \301 \3028A@Z\303\304Z]!\207\303\306![!\207" [next-screen-context-lines window-inside-edges 3 image-next-line 0 - prefix-numeric-value] 7 (#$ . 6120) "P"])
#@210 Scroll horizontally to the left edge of the image in the current window.
With argument ARG not nil or 1, move forward ARG - 1 lines first,
stopping if the top or bottom edge of the image is reached.
(fn ARG)
(defalias 'image-bol #[257 "\211\203 \300!\211\262\301U\204 \302S!\210\303\304!\207" [prefix-numeric-value 1 image-next-line image-set-window-hscroll 0] 3 (#$ . 6803) "p"])
#@211 Scroll horizontally to the right edge of the image in the current window.
With argument ARG not nil or 1, move forward ARG - 1 lines first,
stopping if the top or bottom edge of the image is reached.
(fn ARG)
(defalias 'image-eol #[257 "\211\203 \300!\211\262\301U\204 \302S!\210\303 \304 \3058@Z\306\307!@!\310\311Z]!\207" [prefix-numeric-value 1 image-next-line image-get-display-property window-inside-edges 2 ceiling image-display-size image-set-window-hscroll 0] 9 (#$ . 7197) "p"])
#@73 Scroll to the top-left corner of the image in the current window.
(fn)
(defalias 'image-bob #[0 "\300\301!\210\302\301!\207" [image-set-window-hscroll 0 image-set-window-vscroll] 2 (#$ . 7702) nil])
#@77 Scroll to the bottom-right corner of the image in the current window.
(fn)
(defalias 'image-eob #[0 "\300 \301 \3028@Z\303\304!@!\3058A@Z\303\304!A!\306\307Z]!\210\310\307Z]!\207" [image-get-display-property window-inside-edges 2 ceiling image-display-size 3 image-set-window-hscroll 0 image-set-window-vscroll] 10 (#$ . 7908) nil])
#@122 Toggle whether to fit the frame to the current image.
This function assumes the current frame has only one window.
(fn)
(defalias 'image-mode-fit-frame #[0 "\301\302\303\"\304 \305!\2032 \211@@)\306 =\2032 \211@A)\307 =\2032 \310\302\303\302#\210A\262\202L \211\311@!\240\210\211\311A!\241\210\310\302\303\306 \307 BB#\210\312\313 @\"\210\314\313 A\"\207" [x frame-parameter nil image-mode-saved-size image-get-display-property image-display-size frame-width frame-height set-frame-parameter ceiling set-frame-width selected-frame set-frame-height] 10 (#$ . 8261) nil])
#@51 The image type for the current Image mode buffer.
(defvar image-type nil (#$ . 8851))
(make-variable-buffer-local 'image-type)
#@62 Internal variable to keep the previous non-image major mode.
(defvar image-mode-previous-major-mode nil (#$ . 8984))
#@31 Mode keymap for `image-mode'.
(defvar image-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\315#\210\303\321\317#\210\303\322\323#\210\303\324\325#\210\303\326\307#\210\303\327\311#\210\303\330\307#\210\303\331\311#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\211\207" [special-mode-map make-sparse-keymap set-keymap-parent define-key "" image-toggle-display " " image-scroll-up "" image-scroll-down "
" image-toggle-animation [remap forward-char] image-forward-hscroll [remap backward-char] image-backward-hscroll [remap right-char] [remap left-char] [remap previous-line] image-previous-line [remap next-line] image-next-line [remap scroll-up] [remap scroll-down] [remap scroll-up-command] [remap scroll-down-command] [remap move-beginning-of-line] image-bol [remap move-end-of-line] image-eol [remap beginning-of-buffer] image-bob [remap end-of-buffer] image-eob] 5) (#$ . 9107))
#@37 Mode keymap for `image-minor-mode'.
(defvar image-minor-mode-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key "" image-toggle-display] 5) (#$ . 10146))
(put 'image-mode 'mode-class 'special)
#@147 Major mode for image files.
You can use \<image-mode-map>\[image-toggle-display]
to toggle between display as an image and display as text.
(fn)
(defalias 'image-mode #[0 "\300\301\302D\303\301\304\300EDC\217\207" [#1=#:err funcall #[0 "\306 \204 \307\310!\210\311 \210\312\313 \204\" \314 \210\313 \204- \307\315!\210\202- \316\317\320\313 A\321\" \2038 \322\323 \"\2029 \324\325
!\210\326\327!\210\330\331 \210\332\333\334\316\317$\210\332\335\336\316\317$\210\337\340!\210\313 \341\342!\204l \343\344\345P\"\202\204 \346!\203~ \343\344\347\341\350!Q\"\202\204 \343\344\351P\"\207" [major-mode cursor-type truncate-lines image-type mode-name image-mode-map display-images-p error "Display does not support images" kill-all-local-variables image-mode image-get-display-property image-toggle-display-image "Invalid image" nil t plist-get :type format "Image[%s]" "Image" use-local-map make-local-variable bookmark-make-record-function image-bookmark-make-record image-mode-setup-winprops add-hook change-major-mode-hook image-toggle-display-text after-revert-hook image-after-revert-hook run-mode-hooks image-mode-hook substitute-command-keys "Type \\[image-toggle-display] to view the image as " message "%s" "an image." image-animated-p "text, or " "\\[image-toggle-animation] to animate." "text."] 8 "\n\n(fn)"] error #[257 "\300 \210\301\302!\203
\303\202 \304\305A\"\207" [image-mode-as-text called-interactively-p any error message "Cannot display image: %s"] 4 "\n\n(fn ERR)"]] 6 (#$ . 10377) nil])
#@101 Non-nil if Image minor mode is enabled.
Use the command `image-minor-mode' to change this variable.
(defvar image-minor-mode nil (#$ . 11907))
(make-variable-buffer-local 'image-minor-mode)
#@378 Toggle Image minor mode in this buffer.
With a prefix argument ARG, enable Image minor mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Image minor mode provides the key \<image-mode-map>\[image-toggle-display],
to switch back to `image-mode' and display an image file as the
actual image.
(fn &optional ARG)
(defalias 'image-minor-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\203 \305\306\307\310\311$\210\312\313\203( \314\202) \315\"\210\316\317!\203J \301 \203= \211\301 \232\203J \320\321\203G \322\202H \323\"\210\210\324 \210\207" [image-minor-mode current-message toggle prefix-numeric-value 0 add-hook change-major-mode-hook #[0 "\300\301!\207" [image-minor-mode -1] 2 "\n\n(fn)"] nil t run-hooks image-minor-mode-hook image-minor-mode-on-hook image-minor-mode-off-hook called-interactively-p any message "Image minor mode %sabled" "en" "dis" force-mode-line-update] 8 (#$ . 12104) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(byte-code "\301\302\303\304\211%\207" [image-minor-mode-map add-minor-mode image-minor-mode (:eval (if image-type (format " Image[%s]" image-type) " Image")) nil] 6)
#@539 Set a non-image mode as major mode in combination with image minor mode.
A non-image major mode found from `auto-mode-alist' or Fundamental mode
displays an image file as text. `image-minor-mode' provides the key
\<image-mode-map>\[image-toggle-display] to switch back to `image-mode'
to display an image file as the actual image.
You can use `image-mode-as-text' in `auto-mode-alist' when you want
to display an image file as text initially.
See commands `image-mode' and `image-minor-mode' for more information
on these modes.
(fn)
(defalias 'image-mode-as-text #[0 " \203 \210\202% \305\306\307\310\n\"\"\305\306\307\311 \"\"\312 \210\313\301!\210\f*\211\314\315!\210\316 \210\317\320\321\322!\323 \203< \324\202= \325\326Q\"\207" [image-type image-mode-previous-major-mode auto-mode-alist magic-fallback-mode-alist major-mode delq nil mapcar #[257 "\211A\242\206 \211A\300>?\205 \211\207" [(image-mode image-mode-maybe image-mode-as-text)] 3 "\n\n(fn ELT)"] #[257 "\211A\242\206 \211A\300>?\205 \211\207" [(image-mode image-mode-maybe image-mode-as-text)] 3 "\n\n(fn ELT)"] normal-mode make-local-variable image-minor-mode 1 image-toggle-display-text message "%s" substitute-command-keys "Type \\[image-toggle-display] to view the image as " image-get-display-property "text" "an image" "."] 7 (#$ . 13314) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias image-mode-maybe image-mode nil make-obsolete "23.2"] 4)
#@83 Show the image file as text.
Remove text properties that display the image.
(fn)
(defalias 'image-toggle-display-text #[0 "\302\211\303 \304\262\304\262\305ed\306#\210\307!\210\310\311!\205! \312\313!*\207" [buffer-undo-list inhibit-read-only t buffer-modified-p nil remove-list-of-text-properties (display read-nonsticky read-only front-sticky) set-buffer-modified-p called-interactively-p any message "Repeat this command to go back to displaying the image"] 7 (#$ . 14776)])
#@121 Show the image of the image file.
Turn the image data into a real image, but only if the whole file
was inserted.
(fn)
(defalias 'image-toggle-display-image #[0 "\306\307!\204\n \310\311!\210\312 \211\2056 \313!\2056 \314!?\2056 \315 ?\2056 \316\300!\205* ?\2056 \316\301!\2055 ??\211\203D \317\320ed\"!\202E \321\322#\323#\324\211\315 \322\325!\210\326\327!\"\262\330\331BB\262\322 \332ed#\210\333!\210)\322\324)\334\335*!\336\"\203\214 \337\340!\210\324 \337\341!\210\322!+\307=\203\243 \342\343\",\344 \210\345\346!\205\257 \347\350!*\207" [archive-superior-buffer tar-superior-buffer inhibit-read-only buffer-undo-list buffer-file-truename cursor-type derived-mode-p image-mode error "The buffer is not in Image mode" buffer-file-name file-readable-p file-remote-p buffer-modified-p boundp string-make-unibyte buffer-substring-no-properties image-type nil create-image t image-flush append image-transform-properties display (rear-nonsticky (display) read-only t front-sticky (read-only)) add-text-properties restore-buffer-modified-p coding-system-equal coding-system-base no-conversion make-local-variable find-file-literally auto-hscroll-mode format "Image[%s]" image-transform-check-size called-interactively-p any message "Repeat this command to go back to displaying the file as text" truncate-lines buffer-file-coding-system major-mode mode-name] 12 (#$ . 15269)])
#@209 Toggle between image and text display.
If the current buffer is displaying an image file as an image,
call `image-mode-as-text' to switch to text. Otherwise, display
the image by calling `image-mode'.
(fn)
(defalias 'image-toggle-display #[0 "\300 \203 \301 \207\302 \207" [image-get-display-property image-mode-as-text image-mode] 1 (#$ . 16684) nil])
(defalias 'image-after-revert-hook #[0 "\300 \205 \301 \210\302\303\304p\305\306#\"\210\307 \207" [image-get-display-property image-toggle-display-text mapc #[257 "\300\301!!\207" [redraw-frame window-frame] 4 "\n\n(fn WINDOW)"] get-buffer-window-list nomini visible image-toggle-display-image] 6 "\n\n(fn)"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable image-animate-loop funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Non-nil means animated images loop forever, rather than playing once." :type boolean :version "24.1" :group image] 10)
#@148 Start or stop animating the current image.
If `image-animate-loop' is non-nil, animation loops forever.
Otherwise it plays once, then stops.
(fn)
(defalias 'image-toggle-animation #[0 "\301 \302\204
\303\304!\202J \305!\211\262\204 \306\307!\202J \310!\211\203) \311!\202H \312A\313\"\211\203= \211@SY\203= \302\262\314\205E \315#\262\262\207" [image-animate-loop image-get-display-property nil error "No image is present" image-animated-p message "No image animation." image-animate-timer cancel-timer plist-get :index image-animate t] 8 (#$ . 17645) nil])
(defalias 'image-bookmark-make-record #[0 "\301\302\303\304\305#\300B\306B\"\207" [image-type append bookmark-make-record-default nil no-context 0 ((handler . image-bookmark-jump))] 5 "\n\n(fn)"])
(defalias 'image-bookmark-jump #[257 "\301!\302\300\"\230\204 \303 \210\207" [image-type bookmark-default-handler bookmark-prop-get image-toggle-display] 6 "\n\n(fn BMK)"])
#@288 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-resize nil (#$ . 18601))
#@48 The scale factor of the image being displayed.
(defvar image-transform-scale 1.0 (#$ . 18943))
#@64 Rotation angle for the image in the current Image mode buffer.
(defvar image-transform-rotation 0.0 (#$ . 19044))
#@164 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.
(defvar image-transform-right-angle-fudge 0.0001 (#$ . 19165))
#@163 Return the bounding box width of a rotated WIDTH x HEIGHT rectangle.
The rotation angle is the value of `image-transform-rotation' in degrees.
(fn WIDTH HEIGHT)
(defalias 'image-transform-width #[514 "\301_\302\303!!_\302\304!!_\\\207" [image-transform-rotation 0.017453292519943295 abs cos sin] 8 (#$ . 19398)])
(put 'image-transform-width 'byte-optimizer 'byte-compile-inline-expand)
#@619 Return (w . h) so that a rotated w x h image has exactly width LENGTH.
The rotation angle is the value of `image-transform-rotation'.
Write W for WIDTH and H for HEIGHT. Then the w x h rectangle is
an "approximately uniformly" scaled W x H rectangle, which
currently means that w is one of floor(s W) + {0, 1, -1} and h is
floor(s H), where s can be recovered as the value of `image-transform-scale'.
The value of `image-transform-rotation' may be replaced by
a slightly different angle. Currently this is done for values
close to a multiple of 90, see `image-transform-right-angle-fudge'.
(fn WIDTH HEIGHT LENGTH)
(defalias 'image-transform-fit-width #[771 "\303\304\305\\\306\"\305Z! W\203/ \307!\203 \310\311\312\307!D\"\210\313\314!!\313!\245\211\315B\207\303\304\316\\\305\"\316Z! W\203] \307!\203M \310\311\317\307!D\"\210\313\314!!\313!\245\315B\207\307!\203y \307!\203y \310\311\320\307!\205v \307!D\"\210\313S!\321_\303\322!!_\303\323!!_\\\266\203\245\324\n_!\324\n_!\304\325\"\304\325\"U\203\257 \202\323 T\321_\303\322!!_\303\323!!_\\\266\203SX\203\321 T\202\323 SB\207" [image-transform-rotation image-transform-right-angle-fudge image-transform-scale abs mod 90 180 zerop signal cl-assertion-failed (not (zerop width)) float round nil 45 (not (zerop height)) (not (and (zerop width) (zerop height))) 0.017453292519943295 cos sin floor 2] 13 (#$ . 19797)])
#@224 Check that the image exactly fits the width/height of the window.
Do this for an image of type `imagemagick' to make sure that the
elisp code matches the way ImageMagick computes the bounding box
of a rotated image.
(fn)
(defalias 'image-transform-check-size #[0 "\247?\205h \302\301!\205h \303=\205h \304\305 \306\"\307=\203? \211@\310\311 8\311 @ZU\204; \312\313\314@\310\311 8\311 @ZE\"\210\315\202f \316=\205f \211A\317\311 8\311 A@ZU\204e \312\313\320A\317\311 8\311 A@ZE\"\210\315\262\207" [image-transform-resize image-type boundp imagemagick image-display-size image-get-display-property t fit-width 2 window-inside-pixel-edges signal cl-assertion-failed (= (car size) (- (nth 2 (window-inside-pixel-edges)) (nth 0 (window-inside-pixel-edges)))) nil fit-height 3 (= (cdr size) (- (nth 3 (window-inside-pixel-edges)) (nth 1 (window-inside-pixel-edges))))] 7 (#$ . 21225)])
#@343 Return rescaling/rotation properties for image SPEC.
These properties are determined by the Image mode variables
`image-transform-resize' and `image-transform-rotation'. The
return value is suitable for appending to an image spec.
Rescaling and rotation properties only take effect if Emacs is
compiled with ImageMagick support.
(fn SPEC)
(defalias 'image-transform-properties #[257 "\303 \204
\n\304U?\205} \305\306\" \247\203* \307U?\205] \310\311 A_!B\202] \312=\203A \313@A\314\315 8\315 @Z#\202] \316=\205] \313A@\317\315 8\315 A@Z#\211A@B\262\320@\205g \321@DA\205p \322AD\n\323U?\205z \324\nD#\266\202\207" [image-transform-scale image-transform-resize image-transform-rotation 1.0 0.0 image-size t 1 nil floor fit-width image-transform-fit-width 2 window-inside-pixel-edges fit-height 3 append :width :height 0.0 :rotation] 8 (#$ . 22121)])
#@157 Prompt for a number, and resize the current image by that amount.
This command has no effect unless Emacs is compiled with
ImageMagick support.
(fn SCALE)
(defalias 'image-transform-set-scale #[257 "\211\301 \207" [image-transform-resize image-toggle-display-image] 2 (#$ . 22999) "nScale: "])
#@144 Fit the current image to the height of the current window.
This command has no effect unless Emacs is compiled with
ImageMagick support.
(fn)
(defalias 'image-transform-fit-to-height #[0 "\301\302 \207" [image-transform-resize fit-height image-toggle-display-image] 1 (#$ . 23302) nil])
#@143 Fit the current image to the width of the current window.
This command has no effect unless Emacs is compiled with
ImageMagick support.
(fn)
(defalias 'image-transform-fit-to-width #[0 "\301\302 \207" [image-transform-resize fit-width image-toggle-display-image] 1 (#$ . 23598) nil])
#@193 Prompt for an angle ROTATION, and rotate the image by that amount.
ROTATION should be in degrees. This command has no effect unless
Emacs is compiled with ImageMagick support.
(fn ROTATION)
(defalias 'image-transform-set-rotation #[257 "\301\302\303\"!\304 \207" [image-transform-rotation float mod 360 image-toggle-display-image] 5 (#$ . 23891) "nRotation angle (in degrees): "])
(provide 'image-mode)