Current File : //usr/local/share/emacs/27.2/lisp/image-mode.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require image exif] 2)
#@111 Alist of windows to window properties.
Each element has the form (WINDOW . ALIST).
See `image-mode-winprops'.
(defvar image-mode-winprops-alist t (#$ . 473))
(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 (#$ . 694))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\313& \207" [custom-declare-variable image-auto-resize funcall function #[0 "\300\207" [t] 1] "Non-nil to resize the image upon first display.\nIts value should be one of the following:\n - nil, meaning no resizing.\n - t, meaning to fit the image to the window height and width.\n - `fit-height', meaning to fit the image to the window height.\n - `fit-width', meaning to fit the image to the window width.\n - A number, which is a scale factor (the default size is 1)." :type (choice (const :tag "No resizing" nil) (other :tag "Fit height and width" t) (const :tag "Fit height" fit-height) (const :tag "Fit width" fit-width) (number :tag "Scale factor" 1)) :version "27.1" :group image image-auto-resize-on-window-resize #[0 "\300\207" [1] 1] "Non-nil to resize the image whenever the window's dimensions change.\nThis will always keep the image fit to the window.\nWhen non-nil, the value should be a number of seconds to wait before\nresizing according to the value specified in `image-auto-resize'." (choice (const :tag "No auto-resize on window size change" nil) (integer :tag "Wait for number of seconds before resize" 1))] 10)
#@351 The image resize operation.
Its value should be one of the following:
- nil, meaning no resizing.
- t, meaning to fit the image to the window height and width.
- `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 (#$ . 2123))
(make-variable-buffer-local 'image-transform-resize)
#@48 The scale factor of the image being displayed.
(defvar image-transform-scale 1.0 (#$ . 2580))
(make-variable-buffer-local 'image-transform-scale)
#@64 Rotation angle for the image in the current Image mode buffer.
(defvar image-transform-rotation 0.0 (#$ . 2732))
(make-variable-buffer-local 'image-transform-rotation)
#@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 (#$ . 2907))
#@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\301 =\203 \302 \202 \303\262\202' \303=\204' \304!\204' \305\306\"\210\211\2033 \307\310\311\312\"\"\236\211\203D \211\307\"B\202V \313@A!B\262\211B\314\315\"\210\211\207" [image-mode-winprops-alist 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] 7 (#$ . 3139)])
#@32
(fn PROP &optional WINPROPS)
(defalias 'image-mode-window-get #[513 "\211:\204\n \300!\262A\236A\207" [image-mode-winprops] 4 (#$ . 3923)])
(byte-code "\300\301\302\303#\300\207" [function-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)"]] 4)
#@36
(fn PROP VAL &optional WINPROPS)
(defalias 'image-mode-window-put #[770 "\211:\204\n \300!\262\211@\301=\204 \302\301#\210\211B\303A\236A\"B\241\207" [image-mode-winprops t image-mode-window-put delq] 8 (#$ . 4347)])
#@16
(fn VSCROLL)
(defalias 'image-set-window-vscroll #[257 "\300\301\302#\210\303\304 \305#\207" [image-mode-window-put vscroll nil set-window-vscroll selected-window t] 5 (#$ . 4582)])
#@13
(fn NCOL)
(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 (#$ . 4774)])
(defalias 'image-mode-reapply-winprops #[0 "<\205, \301\302\303\"\304\305\"\304\306\"\307 \205* \203 \310\311 \"\210\211\205* \312\311 \303#\266\203\207" [image-mode-winprops-alist image-mode-winprops nil t image-mode-window-get hscroll vscroll image-get-display-property set-window-hscroll selected-window set-window-vscroll] 7])
(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])
(defalias 'image-get-display-property #[0 "\300e\301\302 p=\205\f \303 #\207" [get-char-property display window-buffer selected-window] 5])
#@647 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 represents an xwidget object, defer to `xwidget-info'.
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\302e!!\211\303H\304HB\207@\305=\203! \306#\207\307\305\"\307\310\"\203U \211\203U \203? \3048\3118B\202f \312\3048!\313!\245\312\3118!\314!\245B\202f \203a \306#\202f \315\316\"\207" [xwidget xwidget-info xwidget-at 2 3 image image-size assoc slice 4 float frame-char-width frame-char-height error "Invalid image specification: %s"] 9 (#$ . 5627)])
#@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 (#$ . 6705) "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 (#$ . 7148) "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\300 _\262\211\301U\203 \302\207\211\301W\203 \303\301\304\302\305\"\\]!\207\306 \307\302\305\211#\3108A@Z\311\312\305\"A!\303\301Z]\304\302\305\"\\^!\207" [frame-char-height 0 nil image-set-window-vscroll window-vscroll t image-get-display-property window-edges 3 ceiling image-display-size] 11 (#$ . 7385) "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 (#$ . 7862) "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 (#$ . 8074) "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 (#$ . 8757) "P"])
#@424 Scroll image in current window leftward by N character widths.
Stop if the right edge of the image is reached.
If ARG is omitted or nil, scroll leftward by a near full screen.
A near full screen is 2 columns less than a full screen.
Negative ARG means scroll rightward.
If ARG is the atom `-', scroll rightward by nearly full screen.
When calling from a program, supply as argument a number, nil, or `-'.
(fn &optional N)
(defalias 'image-scroll-left #[256 "\211\204 \300 \3018@Z\302\303\301Z]!\207\211\304=\203* \300 \3018@Z\302\303\301Z^!\207\302\305!!\207" [window-inside-edges 2 image-forward-hscroll 0 - prefix-numeric-value] 7 (#$ . 9440) "P"])
#@414 Scroll image in current window rightward by N character widths.
Stop if the left edge of the image is reached.
If ARG is omitted or nil, scroll downward by a near full screen.
A near full screen is 2 less than a full screen.
Negative ARG means scroll leftward.
If ARG is the atom `-', scroll leftward by nearly full screen.
When calling from a program, supply as argument a number, nil, or `-'.
(fn &optional N)
(defalias 'image-scroll-right #[256 "\211\204 \300 \3018@Z\302\303\301Z^!\207\211\304=\203* \300 \3018@Z\302\303\301Z]!\207\302\305![!\207" [window-inside-edges 2 image-forward-hscroll 0 - prefix-numeric-value] 7 (#$ . 10107) "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 (#$ . 10767) "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 (#$ . 11162) "p"])
#@67 Scroll to the top-left corner of the image in the current window.
(defalias 'image-bob #[0 "\300\301!\210\302\301!\207" [image-set-window-hscroll 0 image-set-window-vscroll] 2 (#$ . 11668) nil])
#@71 Scroll to the bottom-right corner of the image in the current window.
(defalias 'image-eob #[0 "\300 \301 \302\303\304\211#\3058@Z\306\307!@!\3108A@Z\306\307\304\"A!\311\312Z]!\210\313\312Z]!\207" [image-get-display-property window-inside-edges window-edges nil t 2 ceiling image-display-size 3 image-set-window-hscroll 0 image-set-window-vscroll] 11 (#$ . 11869) nil])
#@365 Fit FRAME to the current image.
If FRAME is omitted or nil, it defaults to the selected frame.
All other windows on the frame are deleted.
If called interactively, or if TOGGLE is non-nil, toggle between
fitting FRAME to the current image and restoring the size and
window configuration prior to the last `image-mode-fit-frame'
call.
(fn &optional FRAME TOGGLE)
(defalias 'image-mode-fit-frame #[512 "p\300 \301!\302\303\"\304!\305!\306!\307 p\310\311\312\313\314\"\315\"\316$\216\317 \2060 \307 \320\"\210 \203p \203p @@U\203p @AU\203p \321 A@@\"\210\322 A@A\"\210\323\3248!\210\325 \303\326#\202\276 \327 \210\330 \331\211#\210\332 \3248@Z\3168A@Z\321\333\334
@!\n[#\"\210\322\333\334
A! [#\"\210\325\303\305 \306 B\n\nB\fE#\266\203)\266\202\207" [image-get-display-property image-display-size frame-parameter image-mode-saved-params current-window-configuration frame-width frame-height selected-frame make-byte-code 0 "\302\300!\203 \303\300\304\"\210\305\301!\205 \301q\207" vconcat vector [frame-live-p select-frame norecord buffer-live-p] 3 select-frame norecord set-frame-width set-frame-height set-window-configuration 2 set-frame-parameter nil delete-other-windows switch-to-buffer t window-inside-edges + ceiling] 20 (#$ . 12258) (list nil t)])
#@51 The image type for the current Image mode buffer.
(defvar image-type nil (#$ . 13573))
(make-variable-buffer-local 'image-type)
#@73 Non-nil if image for the current Image mode buffer has multiple frames.
(defvar image-multi-frame nil (#$ . 13707))
(make-variable-buffer-local 'image-multi-frame)
#@31 Mode keymap for `image-mode'.
(defvar image-mode-map (byte-code "\302 \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\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\353#\210\303\354\355#\210\303\356\357#\210\303\360\361#\210\303\362\363#\210\303\364\365#\210\303\366\365#\210\303\367\370#\210\303\371\372#\210\303\373\370#\210\303\374\372#\210\303\375\376#\210\303\377\201@ #\210\303\201A \363#\210\303\201B \365#\210\303\201C \363#\210\303\201D \365#\210\303\201E \201F #\210\303\201G \201H #\210\303\201I \201J #\210\303\201K \201L #\210\303\201M \201N #\210\303\201O \201P #\210\201Q \201R !\210\201S \201T \201U \201V $\210\201W D \"\207" [image-map special-mode-map make-sparse-keymap define-key "" image-toggle-display "" image-toggle-hex-display "sf" image-mode-fit-frame "sh" image-transform-fit-to-height "sw" image-transform-fit-to-width "sb" image-transform-fit-both "ss" image-transform-set-scale "sr" image-transform-set-rotation "so" image-transform-original "s0" image-transform-reset "
" image-toggle-animation "F" image-goto-frame "f" image-next-frame "b" image-previous-frame "a+" image-increase-speed "a-" image-decrease-speed "a0" image-reset-speed "ar" image-reverse-speed "n" image-next-file "p" image-previous-file "w" image-mode-copy-file-name-as-kill "m" image-mode-mark-file "u" image-mode-unmark-file " " image-scroll-up [33554464] image-scroll-down "" [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 scroll-left] image-scroll-left [remap scroll-right] image-scroll-right [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 (lambda (#1=#:def-tmp-var) (defvar image-mode-menu #1# #2="Menu for Image mode.")) nil easy-menu-do-define image-mode-menu #2# ("Image" ["Show as Text" image-toggle-display :active t :help "Show image as text"] ["Show as Hex" image-toggle-hex-display :active t :help "Show image as hex"] "--" ["Fit Frame to Image" image-mode-fit-frame :active t :help "Resize frame to match image"] ["Fit Image to Window (Best Fit)" image-transform-fit-both :help "Resize image to match the window height and width"] ["Fit to Window Height" image-transform-fit-to-height :help "Resize image to match the window height"] ["Fit to Window Width" image-transform-fit-to-width :help "Resize image to match the window width"] ["Zoom In" image-increase-size :help "Enlarge the image"] ["Zoom Out" image-decrease-size :help "Shrink the image"] ["Set Scale..." image-transform-set-scale :help "Resize image by specified scale factor"] ["Rotate Clockwise" image-rotate :help "Rotate the image"] ["Set Rotation..." image-transform-set-rotation :help "Set rotation angle of the image"] ["Original Size" image-transform-original :help "Reset image to actual size"] ["Reset to Default Size" image-transform-reset :help "Reset all image transformations to initial size"] "--" ["Show Thumbnails" (lambda nil (interactive) (image-dired default-directory)) :active default-directory :help "Show thumbnails for all images in this directory"] ["Previous Image" image-previous-file :active buffer-file-name :help "Move to previous image in this directory"] ["Next Image" image-next-file :active buffer-file-name :help "Move to next image in this directory"] ["Copy File Name" image-mode-copy-file-name-as-kill :active buffer-file-name :help "Copy the current file name to the kill ring"] "--" ["Animate Image" image-toggle-animation :style toggle :selected (let ((image (image-get-display-property))) (and image (image-animate-timer image))) :active image-multi-frame :help "Toggle image animation"] ["Loop Animation" (lambda nil (interactive) (setq image-animate-loop (not image-animate-loop)) (when (let ((image (image-get-display-property))) (and image (image-animate-timer image))) (image-toggle-animation) (image-toggle-animation))) :style toggle :selected image-animate-loop :active image-multi-frame :help "Animate images once, or forever?"] ["Reverse Animation" image-reverse-speed :style toggle :selected (let ((image (image-get-display-property))) (and image (< (image-animate-get-speed image) 0))) :active image-multi-frame :help "Reverse direction of this image's animation?"] ["Speed Up Animation" image-increase-speed :active image-multi-frame :help "Speed up this image's animation"] ["Slow Down Animation" image-decrease-speed :active image-multi-frame :help "Slow down this image's animation"] ["Reset Animation Speed" image-reset-speed :active image-multi-frame :help "Reset the speed of this image's animation"] ["Previous Frame" image-previous-frame :active image-multi-frame :help "Show the previous frame of this image"] ["Next Frame" image-next-frame :active image-multi-frame :help "Show the next frame of this image"] ["Goto Frame..." image-goto-frame :active image-multi-frame :help "Show a specific frame of this image"]) make-composed-keymap] 6) (#$ . 13877))
#@37 Mode keymap for `image-minor-mode'.
(defvar image-minor-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\207" [make-sparse-keymap define-key "" image-toggle-display "" image-toggle-hex-display] 5) (#$ . 19318))
(put 'image-mode 'mode-class 'special)
#@229 Major mode for image files.
You can use \<image-mode-map>\[image-toggle-display] or \<image-mode-map>\[image-toggle-hex-display]
to toggle between display as an image and display as text or hex.
Key bindings:
\{image-mode-map}
(defalias 'image-mode #[0 "\306 \204 \307\310!\210\311 \210\312 \313 \204c \3141> \3151& \316 \210\31700\202T 0\320 \210\321\322!\2034 \307\2025 \323\324!\210\325\262\202T \320 \210\321\322!\203K \307\202L \323\326A\"\210\325\262\205p \313 \204` \307\327!\210\330 \207\325\317\331\313 A\332\"\330 \207" [major-mode image-auto-resize image-transform-resize cursor-type truncate-lines image-type display-images-p error "Display does not support images" major-mode-suspend image-mode image-get-display-property (error) (unknown-image-type) image-toggle-display-image t image-mode-as-text called-interactively-p any message "Unknown image type; consider switching `image-use-external-converter' on" nil "Cannot display image: %s" "Invalid image" image-mode--setup-mode plist-get :type] 4 (#$ . 19597) nil])
(defalias 'image-mode--setup-mode #[0 "\203 \306\307\"\202\f \310\311\n!\210\312\303!\210\313\314 \210\315\316\317\320\321$\210\315\322\323\320\321$\210\f\2033 \315\324\325\320\321$\210\326\327!\210\330 \331\332!\320\204J \333\334\335P\"\202} \336!\211\262\203w \321\337\340\341\342\306\343\344\345\346 DDD@F\347BBED*\333\334\350P\"\202} \333\334\351P\"\207" [image-type mode-name image-mode-map bookmark-make-record-function image-auto-resize-on-window-resize image-multi-frame format "Image[%s]" "Image" use-local-map make-local-variable image-bookmark-make-record image-mode-setup-winprops add-hook change-major-mode-hook image-toggle-display-text nil t after-revert-hook image-after-revert-hook window-state-change-functions image--window-state-change run-mode-hooks image-mode-hook image-get-display-property substitute-command-keys "Type \\[image-toggle-display] or \\[image-toggle-hex-display] to view the image as " message "%s" "an image." image-multi-frame-p :eval concat " " propertize "[%s/%s]" 1+ image-current-frame quote ('help-echo "Frames\nmouse-1: Next frame\nmouse-3: Previous frame" 'mouse-face 'mode-line-highlight 'local-map '(keymap (mode-line keymap (down-mouse-1 . image-next-frame) (down-mouse-3 . image-previous-frame)))) "text. This image has multiple frames." "text or hex." mode-line-process] 13])
#@101 Non-nil if Image minor mode is enabled.
Use the command `image-minor-mode' to change this variable.
(defvar image-minor-mode nil (#$ . 21989))
(make-variable-buffer-local 'image-minor-mode)
#@460 Toggle Image minor mode in this buffer.
If called interactively, enable Image minor mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
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!\203M \301 \203= \211\301 \232\203M \320\321\322\203H \323\202I \324#\266\210\325 \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] nil t run-hooks image-minor-mode-hook image-minor-mode-on-hook image-minor-mode-off-hook called-interactively-p any " in current buffer" message "Image minor mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 22186) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar image-minor-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\207" [image-minor-mode-map image-minor-mode-hook variable-documentation put "Hook run after entering or leaving `image-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode image-minor-mode (:eval (if image-type (format " Image[%s]" image-type) " Image")) nil] 6)
#@177 Set a non-image mode as major mode in combination with image minor mode.
A non-mage major mode found from `auto-mode-alist' or fundamental mode
displays an image file as text.
(defalias 'image-mode-to-text #[0 "\301\302!\210\211\303\304!\210\305 \207" [image-type major-mode-restore (image-mode image-mode-maybe image-mode-as-text) image-minor-mode 1 image-toggle-display-text] 3 (#$ . 23800)])
#@533 Set a non-image mode as major mode in combination with image minor mode.
A non-mage major mode found from `auto-mode-alist' or fundamental mode
displays an image file as hex. `image-minor-mode' provides the key
\<image-mode-map>\[image-toggle-hex-display] to switch back to `image-mode'
to display an image file as the actual image.
You can use `image-mode-as-hex' in `auto-mode-alist' when you want to
display an image file as hex initially.
See commands `image-mode' and `image-minor-mode' for more information
on these modes.
(defalias 'image-mode-as-hex #[0 "\300 \210\301 \210\302\303\304\305!\306 \203 \307\202 \310\311Q\"\207" [image-mode-to-text hexl-mode message "%s" substitute-command-keys "Type \\[image-toggle-hex-display] or \\[image-toggle-display] to view the image as " image-get-display-property "hex" "an image or text" "."] 5 (#$ . 24204) nil])
#@533 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.
(defalias 'image-mode-as-text #[0 "\300 \210\301\302\303\304!\305 \203 \306\202 \307\310Q\"\207" [image-mode-to-text message "%s" substitute-command-keys "Type \\[image-toggle-display] or \\[image-toggle-hex-display] to view the image as " image-get-display-property "text" "an image or hex" "."] 5 (#$ . 25081) 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)
#@77 Show the image file as text.
Remove text properties that display the image.
(defalias 'image-toggle-display-text #[0 "\303\211\304\305 \306ed\307#\210\310!\210\311\312!\205 \313\314!+\207" [create-lockfiles buffer-undo-list inhibit-read-only t nil buffer-modified-p 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"] 8 (#$ . 26062)])
#@115 Show the image of the image file.
Turn the image data into a real image, but only if the whole file
was inserted.
(defalias 'image-toggle-display-image #[0 "\306\307!\204\n \310\311!\210\312 \211\205H \313!\205H \314!?\205H \315 ?\205H \316\300!\205* ?\205H \316\301!\2055 ?\205H \317\302!\205@ \n?\205H \317\320!??\211\203b \321ed\" \203\\ \322\f\"\202] \211\262\202c
\323=\205m \324\325 !\211\205w \3268@Z\205\202 \3278A@Z\330!\203\215 \331\202\223 \332\333#\323\211 = >\315 \333\211?\334U\203\272 \335\3361\261 \212\337 )0\202\263 \210\333!\206\270 \340?\203\322 \341?\342\\\343\"\334U\203\322 \262\262\204\343 \344 \345\346%\202\363 \344 \345\346\347\f\350
& \262\351!\210\352\353!\"\262\354\355BB\262\333 @\356ed#\210\357!\210)\333A\323B\360\361\f!\362\"\203,\363\364!\210\3234\363\365!\210\3335C\307=\203C\366\367\"D\370 \210\371\372!\205O\373\374!*\207" [archive-superior-buffer tar-superior-buffer jka-compr-really-do-compress enable-multibyte-characters buffer-file-coding-system image-transform-resize 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 local-variable-p epa-file-encrypt-to buffer-substring-no-properties encode-coding-string t window-inside-pixel-edges get-buffer-window 2 3 image--imagemagick-wanted-p imagemagick image-type nil 0 exif-orientation (exif-error) exif-parse-buffer 0.0 mod 90 180 create-image :scale 1 :max-width :max-height 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" inhibit-read-only buffer-undo-list image-transform-rotation create-lockfiles cursor-type truncate-lines major-mode mode-name] 21 (#$ . 26554)])
#@17
(fn FILENAME)
(defalias 'image--imagemagick-wanted-p #[257 "\302\303!\205! \304=?\205! \211\205 \305!\205 \306\305!\226 \">?\207" [imagemagick-types-inhibit obarray fboundp imagemagick-types t file-name-extension intern] 4 (#$ . 28640)])
#@39 Toggle between image and hex display.
(defalias 'image-toggle-hex-display #[0 "\301 \203 \302 \207\303=\203 \302 \207\304 \207" [major-mode image-get-display-property image-mode-as-hex fundamental-mode image-mode] 2 (#$ . 28892) nil])
#@218 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 or hex display.
Otherwise, display the image by calling `image-mode'.
(defalias 'image-toggle-display #[0 "\301 \203 \302 \207\303=\203 \302 \207\304 \207" [major-mode image-get-display-property image-mode-as-text hexl-mode image-mode] 2 (#$ . 29137) nil])
#@26 Kill the current buffer.
(defalias 'image-kill-buffer #[0 "\300p!\207" [kill-buffer] 2 (#$ . 29550) nil])
(defalias 'image-after-revert-hook #[0 "\300 \204 \301 \210\300 \205 \302 \210\303\304\305p\306\307#\"\210\301 \207" [image-get-display-property image-toggle-display-image image-toggle-display-text mapc #[257 "\300\301!!\207" [redraw-frame window-frame] 4 "\n\n(fn WINDOW)"] get-buffer-window-list nomini visible] 6])
#@15
(fn WINDOW)
(defalias 'image--window-state-change #[257 "\247\205 \301\302\303$\207" [image-auto-resize-on-window-resize run-with-idle-timer nil image-fit-to-window] 6 (#$ . 29983)])
#@79 Adjust size of image to display it exactly in WINDOW boundaries.
(fn WINDOW)
(defalias 'image-fit-to-window #[257 "\300!\205Q r\301!q\210\302\303!\205P \304 \211\242\305=\205N \306A\307\"\306A\310\"\311!\3128@Z\3138A@Z\205L \205L U\203J U?\205L \314 \266\205\262)\207" [window-live-p window-buffer derived-mode-p image-mode image-get-display-property image plist-get :max-width :max-height window-inside-pixel-edges 2 3 image-toggle-display-image] 9 (#$ . 30178)])
(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] "Non-nil means animated images loop forever, rather than playing once." :type boolean :version "24.1" :group image] 10)
#@142 Start or stop animating the current image.
If `image-animate-loop' is non-nil, animation loops forever.
Otherwise it plays once, then stops.
(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-multi-frame-p message "No image animation." image-animate-timer cancel-timer plist-get :index image-animate t] 8 (#$ . 30942) nil])
#@197 Set speed of an animated image to SPEED.
If MULTIPLY is non-nil, treat SPEED as a multiplication factor.
If SPEED is `reset', reset the magnitude of the speed to 1.
(fn SPEED &optional MULTIPLY)
(defalias 'image--set-speed #[513 "\301 \211\204\f \302\303!\202F \204 \304\305!\202F \306=\203. \307!\310W\203( \311\202) \312\262\313\262\314#\210\315!\203@ \316 \210\316 \210\304\317\307!\"\207" [image-multi-frame image-get-display-property error "No image is present" message "No image animation." reset image-animate-get-speed 0 -1 1 nil image-animate-set-speed image-animate-timer image-toggle-animation "Image speed is now %s"] 7 (#$ . 31520)])
#@64 Increase the speed of current animated image by a factor of 2.
(defalias 'image-increase-speed #[0 "\300\301\302\"\207" [image--set-speed 2 t] 3 (#$ . 32185) nil])
#@64 Decrease the speed of current animated image by a factor of 2.
(defalias 'image-decrease-speed #[0 "\300\301\302\"\207" [image--set-speed 0.5 t] 3 (#$ . 32355) nil])
#@45 Reverse the animation of the current image.
(defalias 'image-reverse-speed #[0 "\300\301\302\"\207" [image--set-speed -1 t] 3 (#$ . 32527) nil])
#@49 Reset the animation speed of the current image.
(defalias 'image-reset-speed #[0 "\300\301!\207" [image--set-speed reset] 2 (#$ . 32678) nil])
#@178 Show frame N of a multi-frame image.
Optional argument OFFSET non-nil means interpret N as relative to the
current frame. Frames are indexed from 1.
(fn N &optional RELATIVE)
(defalias 'image-goto-frame #[513 "\301 \211\204\f \302\303!\202' \204 \304\305!\202' \306\203$ \307!\\\202& S\"\207" [image-multi-frame image-get-display-property error "No image is present" message "No image animation." image-show-frame image-current-frame] 8 (#$ . 32828) (byte-code "\206 \301\302!C\207" [current-prefix-arg read-number "Show frame number: "] 2)])
#@207 Switch to the next frame of a multi-frame image.
With optional argument N, switch to the Nth frame after the current one.
If N is negative, switch to the Nth frame before the current one.
(fn &optional N)
(defalias 'image-next-frame #[256 "\300\301\"\207" [image-goto-frame t] 4 (#$ . 33389) "p"])
#@211 Switch to the previous frame of a multi-frame image.
With optional argument N, switch to the Nth frame before the current one.
If N is negative, switch to the Nth frame after the current one.
(fn &optional N)
(defalias 'image-previous-frame #[256 "\300[!\207" [image-next-frame] 3 (#$ . 33696) "p"])
#@301 Visit the next image in the same directory as the current image file.
With optional argument N, visit the Nth image file after the
current one, in cyclic alphabetical order.
This command visits the specified file via `find-alternate-file',
replacing the current Image mode buffer.
(fn &optional N)
(defalias 'image-next-file #[256 "\302\303!\204\n \304\305!\210\204 \304\306!\210\307!\310!\311\3122> \211\205; \211@\211\230\2030 \313\312T\"\210T\262A\266\202\202 \2620\210\314\206F \315\\G\"\262\2118\316!\317!\210\320 \211\205\231 \211@r\211q\210\302\321!\203\221 \322!\322 !\232\203\221 \323 \324\311\325\326\327!\330\"\331$\216\332p\333\211#\210\334\335\"!\210)\210)A\266\202\202X \262\266\202\207" [buffer-file-name default-directory derived-mode-p image-mode error "The buffer is not in Image mode" "The current image is not associated with a file" file-name-nondirectory image-mode--images-in-directory 0 image-visit-next-file throw mod 1 file-name-directory find-alternate-file buffer-list dired-mode file-truename current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] 2 switch-to-buffer t dired-goto-file expand-file-name] 15 (#$ . 34005) "p"])
#@304 Visit the preceding image in the same directory as the current file.
With optional argument N, visit the Nth image file preceding the
current one, in cyclic alphabetical order.
This command visits the specified file via `find-alternate-file',
replacing the current Image mode buffer.
(fn &optional N)
(defalias 'image-previous-file #[256 "\300[!\207" [image-next-file] 3 (#$ . 35242) "p"])
#@58 Push the currently visited file name onto the kill ring.
(defalias 'image-mode-copy-file-name-as-kill #[0 "\204 \301\302!\210\303!\210\304\305\"\207" [buffer-file-name error "The current buffer doesn't visit a file" kill-new message "Copied %s"] 3 (#$ . 35641) nil])
#@228 Mark the current file in the appropriate dired buffer(s).
Any dired buffer that's opened to the current file's directory
will have the line where the image appears (if any) marked.
If no such buffer exists, it will be opened.
(defalias 'image-mode-mark-file #[0 "\204 \301\302!\210\303\304\305#\207" [buffer-file-name error "The current buffer doesn't visit a file." image-mode--mark-file dired-mark "marked"] 4 (#$ . 35919) nil])
#@239 Unmark the current file in the appropriate dired buffer(s).
Any dired buffer that's opened to the current file's directory
will remove the mark from the line where the image appears (if
any).
If no such buffer exists, it will be opened.
(defalias 'image-mode-unmark-file #[0 "\204 \301\302!\210\303\304\305#\207" [buffer-file-name error "The current buffer doesn't visit a file." image-mode--mark-file dired-unmark "unmarked"] 4 (#$ . 36361) nil])
#@30
(fn FILE FUNCTION MESSAGE)
(defalias 'image-mode--mark-file #[771 "\302\303!\210\304!\305 \306\211:\2035 @\262rq\210\307=\205% \310!\310 !\232)\203. B\262A\262\202 \211\237\266\203\306\204F \212\311!C\262)\211\203\200 \211@r\211q\210\312!\204f \313\314\315!\"B\262\202x \316!\210\313\317\315!#B\262)A\266\202\202G \210\320\321\322#\323\324\325\326\327\316#!\326\316\"#\262\207" [major-mode default-directory require dired file-name-directory buffer-list nil dired-mode file-truename find-file-noselect dired-goto-file format "couldn't find in %s" directory-file-name 1 "%s in %s" mapconcat identity "; " message "%s%s" capitalize substring 0] 14 (#$ . 36819)])
#@13
(fn FILE)
(defalias 'image-mode--images-in-directory #[257 "\301!\302\303\304 \305$\235\204 B\262\306\307\"\207" [buffer-file-name file-name-directory directory-files nil image-file-name-regexp t sort string-lessp] 7 (#$ . 37524)])
(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])
#@12
(fn BMK)
(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 (#$ . 37960)])
#@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 (#$ . 38153)])
(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/ \307U\203 \310\311\312\307UC\312$\210\313\314!!\313!\245\211\312B\207\303\304\315\\\305\"\315Z! W\203^ \307U\203N \310\316\312\307UC\312$\210\313\314!!\313!\245\312B\207\307U\203z \307U\203z \310\317\312\307U\205v \307UC\312$\210\313S!\320_\303\321!!_\303\322!!_\\\266\203\245\323\n_!\323\n_!\304\324\"\304\324\"U\203\260 \202\324 T\320_\303\321!!_\303\322!!_\\\266\203SX\203\322 T\202\324 SB\207" [image-transform-rotation image-transform-right-angle-fudge image-transform-scale abs mod 90 180 0 cl--assertion-failed (not (zerop width)) nil float round 45 (not (zerop height)) (not (and (zerop width) (zerop height))) 0.017453292519943295 cos sin floor 2] 13 (#$ . 38552)])
#@218 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.
(defalias 'image-transform-check-size #[0 "\247?\205b \301\302!\205b \303\304 \305\"\306\267\202_ \211@\307\310 8\310 @ZU\2046 \311\312\313@\307\310 8\310 @ZD\313$\210\313\202` \211A\314\310 8\310 A@ZU\204[ \311\315\313A\314\310 8\310 A@ZD\313$\210\313\202` \313\262\207" [image-transform-resize boundp image-type image-display-size image-get-display-property t #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (fit-width 23 fit-height 58)) 2 window-inside-pixel-edges cl--assertion-failed (= (car size) (- (nth 2 (window-inside-pixel-edges)) (nth 0 (window-inside-pixel-edges)))) nil 3 (= (cdr size) (- (nth 3 (window-inside-pixel-edges)) (nth 1 (window-inside-pixel-edges))))] 7 (#$ . 39977)])
#@244 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.
(fn SPEC)
(defalias 'image-transform-properties #[257 "\303 \304>\203 \n\305U?\205\222 \306\307\"\310\311 ! \247\2030 \312U?\205r \313\314 A_!B\202r \315\267\202\\ \316@A\3178@Z#\202r \316A@\3208A@Z#\211A@B\262\202r \247\205r \312U?\205r \313\314 A_!B\321@\205| \322@DA\205\205 \323AD\n\324U?\205\217 \325\nD#\266\203\207" [image-transform-scale image-transform-resize image-transform-rotation 1.0 (nil t) 0.0 image-size t window-inside-pixel-edges get-buffer-window 1 nil floor #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (fit-width 54 fit-height 69)) image-transform-fit-width 2 3 append :width :height 0.0 :rotation] 9 (#$ . 40938)])
#@79 Prompt for a number, and resize the current image by that amount.
(fn SCALE)
(defalias 'image-transform-set-scale #[257 "\211\301 \207" [image-transform-resize image-toggle-display-image] 2 (#$ . 41882) "nScale: "])
#@60 Fit the current image to the height of the current window.
(defalias 'image-transform-fit-to-height #[0 "\301\302 \207" [image-transform-resize fit-height image-toggle-display-image] 1 (#$ . 42106) nil])
#@59 Fit the current image to the width of the current window.
(defalias 'image-transform-fit-to-width #[0 "\301\302 \207" [image-transform-resize fit-width image-toggle-display-image] 1 (#$ . 42317) nil])
#@75 Fit the current image both to the height and width of the current window.
(defalias 'image-transform-fit-both #[0 "\301\302 \207" [image-transform-resize t image-toggle-display-image] 1 (#$ . 42525) nil])
#@114 Prompt for an angle ROTATION, and rotate the image by that amount.
ROTATION should be in degrees.
(fn ROTATION)
(defalias 'image-transform-set-rotation #[257 "\301\302\303\"!\304 \207" [image-transform-rotation float mod 360 image-toggle-display-image] 5 (#$ . 42738) "nRotation angle (in degrees): "])
#@73 Display the current image with the original (actual) size and rotation.
(defalias 'image-transform-original #[0 "\302\303\304 \207" [image-transform-resize image-transform-scale nil 1 image-toggle-display-image] 1 (#$ . 43050) nil])
#@73 Display the current image with the default (initial) size and rotation.
(defalias 'image-transform-reset #[0 "\304\305\306 \207" [image-auto-resize image-transform-resize image-transform-rotation image-transform-scale 0.0 1 image-toggle-display-image] 1 (#$ . 43291) nil])
(provide 'image-mode)
Mini Shell