ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/image-mode.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 525))
#@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 (#$ . 705))
#@48 The scale factor of the image being displayed.
(defvar image-transform-scale 1.0 (#$ . 1045))
#@64 Rotation angle for the image in the current Image mode buffer.
(defvar image-transform-rotation 0.0 (#$ . 1145))
#@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 (#$ . 1265))
#@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 (#$ . 1497)])
(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\211@\301=\204 \302\301#\210\211B\303A\236A\"B\241\207" [image-mode-winprops t image-mode-window-put 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 "<\205+ \301\302\303\"\304\305\"\304\306\"\307 \205) \203 \310\311 \"\210\211\205) \312\311 \"\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] 6])
(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 (#$ . 3872)])
#@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 (#$ . 4950) "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 (#$ . 5393) "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 (#$ . 5630) "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 (#$ . 6043) "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 (#$ . 6255) "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 (#$ . 6938) "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 (#$ . 7621) "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 (#$ . 8015) "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 (#$ . 8520) nil])
#@71 Scroll to the bottom-right corner of the image in the current window.
(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 (#$ . 8720) 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 (#$ . 9067) (list nil t)])
#@51 The image type for the current Image mode buffer.
(defvar image-type nil (#$ . 10381))
(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 (#$ . 10515))
(make-variable-buffer-local 'image-multi-frame)
#@62 Internal variable to keep the previous non-image major mode.
(defvar image-mode-previous-major-mode nil (#$ . 10685))
#@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\311#\210\303\313\314#\210\303\315\316#\210\303\317\320#\210\303\321\322#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\344#\210\303\345\342#\210\303\346\344#\210\303\347\350#\210\303\351\352#\210\303\353\307#\210\303\354\311#\210\303\355\307#\210\303\356\311#\210\303\357\360#\210\303\361\362#\210\303\363\364#\210\303\365\366#\210\367\370!\210\371\372\373\374$\210\211\207" [special-mode-map make-sparse-keymap set-keymap-parent define-key "" image-toggle-display " " image-scroll-up [33554464] image-scroll-down "" "
" image-toggle-animation "F" image-goto-frame "f" image-next-frame "b" image-previous-frame "n" image-next-file "p" image-previous-file "a+" image-increase-speed "a-" image-decrease-speed "a0" image-reset-speed "ar" image-reverse-speed "k" image-kill-buffer [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 (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"] "--" ["Fit to Window Height" image-transform-fit-to-height :visible (eq image-type 'imagemagick) :help "Resize image to match the window height"] ["Fit to Window Width" image-transform-fit-to-width :visible (eq image-type 'imagemagick) :help "Resize image to match the window width"] ["Rotate Image..." image-transform-set-rotation :visible (eq image-type 'imagemagick) :help "Rotate the image"] ["Reset Transformations" image-transform-reset :visible (eq image-type 'imagemagick) :help "Reset all image transformations"] "--" ["Show Thumbnails" (lambda nil (interactive) (image-dired default-directory)) :active default-directory :help "Show thumbnails for all images in this directory"] ["Next Image" image-next-file :active buffer-file-name :help "Move to next image in this directory"] ["Previous Image" image-previous-file :active buffer-file-name :help "Move to previous image in this directory"] "--" ["Fit Frame to Image" image-mode-fit-frame :active t :help "Resize frame to match image"] "--" ["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"] ["Next Frame" image-next-frame :active image-multi-frame :help "Show the next frame of this image"] ["Previous Frame" image-previous-frame :active image-multi-frame :help "Show the previous frame of this image"] ["Goto Frame..." image-goto-frame :active image-multi-frame :help "Show a specific frame of this image"])] 6) (#$ . 10809))
#@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) (#$ . 14996))
(put 'image-mode 'mode-class 'special)
#@174 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.
Key bindings:
\{image-mode-map}
(defalias 'image-mode #[0 "\3061\251 \307 \204
\310\311!\210\312 \210\313\314 \204& \315 \210\314 \2041 \310\316!\210\2021 \317\320\321\314 A\322\" \203< \323\324 \"\202= \325\326
!\210\327\330!\210\331\332 \210\333\334\335\317\320$\210\333\336\337\317\320$\210\340\341!\210\314 \342\343!\317\204q \344\345\346P\"\202\245 \347!\211\262\203\237 \3207\350\351\352\353\323\354\355\356\357 DDD@F\360BBED8\344\345\361P\"\202\245 \344\345\362P\"\266\2030\207\363 \210\364\365!\203\266 \310\202\267 \344\366A\"\207" [major-mode cursor-type truncate-lines image-type mode-name image-mode-map (error) 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-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." image-mode-as-text called-interactively-p any "Cannot display image: %s" image-multi-frame mode-line-process] 13 (#$ . 15227) 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 (#$ . 17063))
(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!\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 (#$ . 17260) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@181 Hook run after entering or leaving `image-minor-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar image-minor-mode-hook nil (#$ . 18319))
(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)
#@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 " \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 (#$ . 18722) 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 "\302\211\303 \304ed\305#\210\306!\210\307\310!\205 \311\312!*\207" [buffer-undo-list inhibit-read-only t 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"] 7 (#$ . 20178)])
#@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\205C \313!\205C \314!?\205C \315 ?\205C \316\300!\205* ?\205C \316\301!\2055 ?\205C \316\317!\205B \320\317!??\211\203Q \321\322ed\"!\202R \n?\205\\ \323\324p!!\325\326!\203f \327\202k \330\331#\204x \332#\202\222 \332\333\3348@Z\335\336 8 A@Z&\337\211 \315 \331\340!\210\341\342!\"\262\343\344BB\262\331 \345ed#\210\346!\210)\3314\3375\347\3506!\351\"\203\320 \352\353!\210\337+\352\354!\210\331,7\307=\203\347 \355\356\"8\357 \210\360\361!\205\363 \362\363!*\207" [archive-superior-buffer tar-superior-buffer image-transform-resize inhibit-read-only buffer-undo-list buffer-file-truename 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 epa-file-encrypt-to local-variable-p string-make-unibyte buffer-substring-no-properties window-inside-pixel-edges get-buffer-window fboundp imagemagick-types imagemagick image-type nil create-image :max-width 2 :max-height 3 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" cursor-type truncate-lines buffer-file-coding-system major-mode mode-name] 15 (#$ . 20643)])
#@203 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'.
(defalias 'image-toggle-display #[0 "\300 \203 \301 \207\302 \207" [image-get-display-property image-mode-as-text image-mode] 1 (#$ . 22357) nil])
#@26 Kill the current buffer.
(defalias 'image-kill-buffer #[0 "\300p!\207" [kill-buffer] 2 (#$ . 22713) 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])
(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 (#$ . 23402) 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 (#$ . 23980)])
#@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 (#$ . 24645) 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 (#$ . 24815) nil])
#@45 Reverse the animation of the current image.
(defalias 'image-reverse-speed #[0 "\300\301\302\"\207" [image--set-speed -1 t] 3 (#$ . 24987) nil])
#@49 Reset the animation speed of the current image.
(defalias 'image-reset-speed #[0 "\300\301!\207" [image--set-speed reset] 2 (#$ . 25138) 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 (#$ . 25288) (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 (#$ . 25849) "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 (#$ . 26156) "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 "\301\302!\204\n \303\304!\210\204 \303\305!\210\306!\307!\310\3112> \211\205; \211@\211\230\2030 \312\311T\"\210T\262A\266\202\202 \2620\210\313\206F \314\\G\"\262\3158!\207" [buffer-file-name 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 find-alternate-file] 9 (#$ . 26465) "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 (#$ . 27266) "p"])
(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 "\n\n(fn FILE)"])
(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])
(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)"])
#@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 (#$ . 28264)])
(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 (#$ . 28663)])
#@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?\205j \302\301!\205j \303=\205j \304\305 \306\"\307=\203@ \211@\310\311 8\311 @ZU\204< \312\313\314@\310\311 8\311 @ZD\314$\210\314\202h \315=\205h \211A\316\311 8\311 A@ZU\204g \312\317\314A\316\311 8\311 A@ZD\314$\210\314\262\207" [image-transform-resize image-type boundp imagemagick image-display-size image-get-display-property t fit-width 2 window-inside-pixel-edges 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 (#$ . 30088)])
#@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 (#$ . 30978)])
#@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 (#$ . 31856) "nScale: "])
#@138 Fit the current image to the height of the current window.
This command has no effect unless Emacs is compiled with
ImageMagick support.
(defalias 'image-transform-fit-to-height #[0 "\301\302 \207" [image-transform-resize fit-height image-toggle-display-image] 1 (#$ . 32159) nil])
#@137 Fit the current image to the width of the current window.
This command has no effect unless Emacs is compiled with
ImageMagick support.
(defalias 'image-transform-fit-to-width #[0 "\301\302 \207" [image-transform-resize fit-width image-toggle-display-image] 1 (#$ . 32449) 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 (#$ . 32736) "nRotation angle (in degrees): "])
#@141 Display the current image with the default size and rotation.
This command has no effect unless Emacs is compiled with
ImageMagick support.
(defalias 'image-transform-reset #[0 "\303\304\305\306 \207" [image-transform-resize image-transform-rotation image-transform-scale nil 0.0 1 image-toggle-display-image] 1 (#$ . 33128) nil])
(provide 'image-mode)
Kontol Shell Bypass