;ELC
;;; Compiled
;;; in Emacs version 26.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305%\210\306\307\310\"\207" [custom-declare-group image nil "Image support." :group multimedia defalias image-refresh image-flush] 6)
#@400 Alist of (REGEXP . IMAGE-TYPE) pairs used to auto-detect image types.
When the first bytes of an image file match REGEXP, it is assumed to
be of image type IMAGE-TYPE if IMAGE-TYPE is a symbol. If not a symbol,
IMAGE-TYPE must be a pair (PREDICATE . TYPE). PREDICATE is called
with one argument, a string containing the image data. If PREDICATE returns
a non-nil value, TYPE is the image's type.
(defconst image-type-header-regexps (byte-code "\300\301\302\303\304\305\306\307\310\311\312Q\313\314\315\316\317\260\266\202\320B\257 \207" [("\\`/[ \n
]*\\*.*XPM.\\*/" . xpm) ("\\`P[1-6]\\(?:\\(?:\\(?:#[^
\n]*[
\n]\\)*[[:space:]]\\)+\\(?:\\(?:#[^
\n]*[
\n]\\)*[0-9]\\)+\\)\\{2\\}" . pbm) ("\\`GIF8[79]a" . gif) ("\\`\211PNG
\n\n" . png) ("\\`[ \n
]*#define \\([a-z0-9_]+\\)_width [0-9]+\n#define \\1_height [0-9]+\n\\(#define \\1_x_hot [0-9]+\n#define \\1_y_hot [0-9]+\n\\)?static \\(unsigned \\)?char \\1_bits" . xbm) ("\\`\\(?:MM \\*\\|II\\* \\)" . tiff) ("\\`[ \n
]*%!PS" . postscript) ("\\`\377\330" . jpeg) "\\(?:[^-]\\|-[^-]\\)" "\\(?:!--" "*-->[
\n]*<\\)" "\\(?:<\\?xml[
\n]+[^>]*>\\)?[
\n]*<" "*" "\\(?:!DOCTYPE[
\n]+[^>]*>[
\n]*<[
\n]*" "*\\)?" "[Ss][Vv][Gg]" svg] 17) (#$ . 576))
#@159 Alist of (REGEXP . IMAGE-TYPE) pairs used to identify image files.
When the name of an image file match REGEXP, it is assumed to
be of image type IMAGE-TYPE.
(defvar image-type-file-name-regexps '(("\\.png\\'" . png) ("\\.gif\\'" . gif) ("\\.jpe?g\\'" . jpeg) ("\\.bmp\\'" . bmp) ("\\.xpm\\'" . xpm) ("\\.pbm\\'" . pbm) ("\\.xbm\\'" . xbm) ("\\.ps\\'" . postscript) ("\\.tiff?\\'" . tiff) ("\\.svgz?\\'" . svg)) (#$ . 1794))
#@284 Alist of (IMAGE-TYPE . AUTODETECT) pairs used to auto-detect image files.
(See `image-type-auto-detected-p').
AUTODETECT can be
- t always auto-detect.
- nil never auto-detect.
- maybe auto-detect only if the image type is available
(see `image-type-available-p').
(defvar image-type-auto-detectable '((pbm . t) (xbm) (bmp . maybe) (gif . maybe) (png . maybe) (xpm) (jpeg . maybe) (tiff . maybe) (svg . maybe) (postscript)) (#$ . 2226))
#@456 An alist associating image types with file name suffixes.
This is used as a hint by the ImageMagick library when detecting
the type of image data (that does not have an associated file name).
Each element has the form (MIME-CONTENT-TYPE EXTENSION).
If `create-image' is called with a :format attribute whose value
equals a content-type found in this list, the ImageMagick library is
told that the data would have the associated suffix if saved to a file.
(defvar image-format-suffixes '((image/x-rgb "rgb") (image/x-icon "ico")) (#$ . 2688))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\316\317&\207" [custom-declare-variable image-load-path funcall function #[0 "\301\302\303\"!\300\304E\207" [data-directory file-name-as-directory expand-file-name "images" load-path] 4] "List of locations in which to search for image files.\nThe images for icons shown in the tool bar are also looked up\nin these locations.\n\nIf an element is a string, it defines a directory to search.\nIf an element is a variable symbol whose value is a string, that\nvalue defines a directory to search.\nIf an element is a variable symbol whose value is a list, the\nvalue is used as a list of directories to search.\n\nSubdirectories are not automatically included in the search." :type (repeat (choice directory variable)) :initialize custom-initialize-delay image-scaling-factor #[0 "\300\207" [auto] 1] "When displaying images, apply this scaling factor before displaying.\nThis is not supported for all image types, and is mostly useful\nwhen you have a high-resolution monitor.\nThe value is either a floating point number (where numbers higher\nthan 1 means to increase the size and lower means to shrink the\nsize), or the symbol `auto', which will compute a scaling factor\nbased on the font pixel size." (choice number (const :tag "Automatically compute" auto)) :version "26.1"] 8)
(defvar image-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\211\207" [make-sparse-keymap define-key "-" image-decrease-size "+" image-increase-size "r" image-rotate "o" image-save] 5))
#@1244 Return a suitable search path for images used by LIBRARY.
It searches for IMAGE in `image-load-path' (excluding
"`data-directory'/images") and `load-path', followed by a path
suitable for LIBRARY, which includes "../../etc/images" and
"../etc/images" relative to the library file itself, and then
in "`data-directory'/images".
Then this function returns a list of directories which contains
first the directory in which IMAGE was found, followed by the
value of `load-path'. If PATH is given, it is used instead of
`load-path'.
If NO-ERROR is non-nil and a suitable path can't be found, don't
signal an error. Instead, return a list of directories as before,
except that nil appears in place of the image directory.
Here is an example that uses a common idiom to provide
compatibility with versions of Emacs that lack the variable
`image-load-path':
;; Shush compiler.
(defvar image-load-path)
(let* ((load-path (image-load-path-for-library "mh-e" "mh-logo.xpm"))
(image-load-path (cons (car load-path)
(when (boundp \='image-load-path)
image-load-path))))
(mh-tool-bar-folder-buttons-init))
(fn LIBRARY IMAGE &optional PATH NO-ERROR)
(defalias 'image-load-path-for-library #[1026 "\204 \302\303!\210\204 \302\304!\210\305\211\306!\206 \307!\305\203? \310!\262\310!\211\262\203? \311!\262\312\313\"\262\202( \266\204\211\203W \211\314\312\315\"!\232\204W \211\262\202\302 \305\211\211\307 !\262\204j \302\316\n\"\210\314\312\310!\317P!!\262\314\312\310!\320P!!\262\321\312 \"!\203\216 \211\202\231 \321\312 \"!\205\231 \211\262\266\203\204\302 \211\203\253 \211\262\202\302 \203\272 \322\323#\210\202\302 \302\323#\210C\324\325\206\315 !\"\244\207" [data-directory load-path error "No library specified" "No image specified" nil image-search-load-path locate-library file-name-directory directory-file-name expand-file-name "../" file-name-as-directory "images" "Cannot find library %s in load-path" "../../etc/images" "../etc/images" file-exists-p message "Could not find image %s for library %s" delete copy-sequence] 13 (#$ . 4850)])
#@133 Value is non-nil if DATA, a string, consists of JFIF image data.
We accept the tag Exif because that is the same format.
(fn DATA)
(defalias 'image-jpeg-p #[257 "\3011 \302!0\202
\210\303\262\211\205\223 \304\303\305\306#)\266\203\205\223 \3072\223 \211G\310\211W\205\220 H\311U\204= \312\307\303\"\210\211T\262\211\310\\Y\203N \312\307\303\"\210\313TH\314\"\310\\H\\H\211\315Y\203\206 \211\316X\203\206 \312\307\317\211\\ ^O\303\305\306#)\266\203\"\210\320\321#\266\203\202* \266\2020\207" [inhibit-changing-match-data (error) string-to-unibyte nil "\\`\377\330" t string-match jfif 2 255 throw lsh 8 224 239 "JFIF\\|Exif" + 1] 14 (#$ . 7053)])
#@140 Determine the image type from image data DATA.
Value is a symbol specifying the image type or nil if type cannot
be determined.
(fn DATA)
(defalias 'image-type-from-data #[257 "\302\203G @@@A\2119\203! \302\303\304#)\266\203\2045 \211:\203> \211@!\203> \211A\211\262\203> \211\262\302\262\202B A\262\266\202 \207" [image-type-header-regexps inhibit-changing-match-data nil t string-match] 12 (#$ . 7740)])
#@140 Determine the image type from data in the current buffer.
Value is a symbol specifying the image type or nil if type cannot
be determined.
(defalias 'image-type-from-buffer #[0 "\303`eb\210\203U @@@A\3039\203\" \304\305!)\262\204C :\203L @\2067 ede\306\\^{\211\262!\203L A\211\262\203L \262\303\262\202P A\262\266\202 \211b\210\205i \307\302!\205i \n>\205i \207" [image-type-header-regexps inhibit-changing-match-data image-types nil t looking-at 256 boundp] 11 (#$ . 8172)])
#@158 Determine the type of image file FILE from its first few bytes.
Value is a symbol specifying the image type, or nil if type cannot
be determined.
(fn FILE)
(defalias 'image-type-from-file-header #[257 "\300!\204 \301!\204 \302!\262\211\205> \300!\205> \303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315!\210\316\315\306\317$\210\320 *\262\207" [file-readable-p file-name-absolute-p image-search-load-path generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte nil insert-file-contents-literally 256 image-type-from-buffer] 8 (#$ . 8680)])
#@147 Determine the type of image file FILE from its name.
Value is a symbol specifying the image type, or nil if type cannot
be determined.
(fn FILE)
(defalias 'image-type-from-file-name #[257 "\303\211\304\3052D \211\203@ \211@\211@\303\304\306#)\266\203\2039 \307A\211\262!\2032 \310\305\"\210\2029 \2049 \262A\266\202\202 \2620)\207" [case-fold-search image-type-file-name-regexps inhibit-changing-match-data nil t found string-match image-type-available-p throw] 12 (#$ . 9337)])
#@426 Determine and return image type.
SOURCE is an image file name or image data.
Optional TYPE is a symbol describing the image type. If TYPE is omitted
or nil, try to determine the image type from its first few bytes
of image data. If that doesn't work, and SOURCE is a file name,
use its file extension as image type.
Optional DATA-P non-nil means SOURCE is a string containing image data.
(fn SOURCE &optional TYPE DATA-P)
(defalias 'image-type #[769 "\211\204 ;\204 \301\302\"\210\204/ \211\203 \303!\202% \304!\206% \305!\262\204/ \301\306!\210\307\300!\2057 >\204@ \301\310\"\210\207" [image-types error "Invalid image file name `%s'" image-type-from-data image-type-from-file-header image-type-from-file-name "Cannot determine image type" boundp "Invalid image type `%s'"] 6 (#$ . 9841)])
(byte-code "\300\301!\203 \302\303\301\304#\210\305\303\301\306#\210\307\310\311\304#\210\312\211\203: \211@\310N\2033 \311N\2043 \313\311\310N#\210A\266\202\202 \210\314\310\311\306#\207" [fboundp image-metadata defalias image-extension-data nil make-obsolete "24.1" defvaralias image-library-alist dynamic-library-alist (saved-value saved-variable-comment) put make-obsolete-variable] 7)
#@106 Return non-nil if image type TYPE is available.
Image types are symbols like `xbm' or `jpeg'.
(fn TYPE)
(defalias 'image-type-available-p #[257 "\300\301!\205 \301!\207" [fboundp init-image-library] 3 (#$ . 11055)])
#@433 Return t if the current buffer contains an auto-detectable image.
This function is intended to be used from `magic-fallback-mode-alist'.
The buffer is considered to contain an auto-detectable image if
its beginning matches an image type in `image-type-header-regexps',
and that image type is present in `image-type-auto-detectable' with a
non-nil value. If that value is non-nil, but not t, then the image type
must be available.
(defalias 'image-type-auto-detected-p #[0 "\301 \211\205\n \211\236A\211\205 \211\302=\206 \303!\207" [image-type-auto-detectable image-type-from-buffer t image-type-available-p] 4 (#$ . 11281)])
#@833 Create an image.
FILE-OR-DATA is an image file name or image data.
Optional TYPE is a symbol describing the image type. If TYPE is omitted
or nil, try to determine the image type from its first few bytes
of image data. If that doesn't work, and FILE-OR-DATA is a file name,
use its file extension as image type.
Optional DATA-P non-nil means FILE-OR-DATA is a string containing image data.
Optional PROPS are additional image attributes to assign to the image,
like, e.g. `:mask MASK'.
Value is the image created, or nil if images of type TYPE are not supported.
Images should not be larger than specified by `max-image-size'.
Image file names that are not absolute are searched for in the
"images" sub-directory of `data-directory' and
`x-bitmap-file-path' (in that order).
(fn FILE-OR-DATA &optional TYPE DATA-P &rest PROPS)
(defalias 'create-image #[897 "\301#\262\302!\205- \303\304\305\203 \306\202 \307\257\310\311\"?\205+ \311\312!D#\207" [image-scaling-factor image-type image-type-available-p append image :type :data :file plist-get :scale image-compute-scaling-factor] 10 (#$ . 11920)])
#@79 Set PROPERTY in IMAGE to VALUE.
Internal use only.
(fn IMAGE PROPERTY VALUE)
(defalias 'image--set-property #[771 "\211\204\" A\203) A@=\203 \211AA\241\210\202 AA\262\202 \300A#\210\207" [plist-put] 7 (#$ . 13044)])
#@185 Return the value of PROPERTY in IMAGE.
Properties can be set with
(setf (image-property IMAGE PROPERTY) VALUE)
If VALUE is nil, PROPERTY is removed from IMAGE.
(fn IMAGE PROPERTY)
(defalias 'image-property #[514 "\300A\"\207" [plist-get] 5 (#$ . 13280)])
(byte-code "\300\301\302\303#\300\207" [function-put image-property gv-expander #[385 "\300\301\302$\207" [gv--defsetter image-property #[385 "\300\301C\"B\207" [image--set-property append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4)
#@16
(fn SCALING)
(defalias 'image-compute-scaling-factor #[257 "\211\247\203 \207\211\300=\203% \301\302\303\304\"!\302 \245\211\305W\203 \306\202$ \301!\305\245\207\307\310\"\207" [auto float window-width nil t 10 1 error "Invalid scaling factor %s"] 5 (#$ . 13803)])
#@678 Put image IMAGE in front of POS in the current buffer.
IMAGE must be an image created with `create-image' or `defimage'.
IMAGE is displayed by putting an overlay into the current buffer with a
`before-string' STRING that has a `display' property whose value is the
image. STRING is defaulted if you omit it.
The overlay created will have the `put-image' property set to t.
POS may be an integer or marker.
AREA is where to display the image. AREA nil or omitted means
display it in the text area, a value of `left-margin' means
display it in the left marginal area, a value of `right-margin'
means display it in the right marginal area.
(fn IMAGE POS &optional STRING AREA)
(defalias 'put-image #[1026 "\204 \301\262p\242\302=\204 \303\304\"\210\203$ \305>\204$ \303\306\"\210\307!\262\310\211#\2046 \202< \311DD\312\313G\314 %\210\315\316\317#\210\315\320#\210\315\321#\210\266\202\207" [image-map "x" image error "Not an image: %s" (left-margin right-margin) "Invalid area %s" copy-sequence make-overlay margin put-text-property 0 display overlay-put put-image t before-string map] 13 (#$ . 14081)])
#@806 Insert IMAGE into current buffer at point.
IMAGE is displayed by inserting STRING into the current buffer
with a `display' property whose value is the image. STRING
defaults to a single space if you omit it.
AREA is where to display the image. AREA nil or omitted means
display it in the text area, a value of `left-margin' means
display it in the left marginal area, a value of `right-margin'
means display it in the right marginal area.
SLICE specifies slice of IMAGE to insert. SLICE nil or omitted
means insert whole image. SLICE is a list (X Y WIDTH HEIGHT)
specifying the X and Y positions and WIDTH and HEIGHT of image area
to insert. A float value 0.0 - 1.0 means relative to the width or
height of the image; integer values are taken as pixel values.
(fn IMAGE &optional STRING AREA SLICE)
(defalias 'insert-image #[1025 "\204 \301\262\242\302=\204 \303\304\"\210\203\" \305>\204\" \303\306\"\210\2030 \307DD\262\2026 \302AB\262`c\210\310`\311\203L \312B D\202N \313\314\315\257#\207" [image-map " " image error "Not an image: %s" (left-margin right-margin) "Invalid area %s" margin add-text-properties display slice rear-nonsticky (display) keymap] 14 (#$ . 15223)])
#@532 Insert IMAGE into current buffer at point.
IMAGE is displayed by inserting STRING into the current buffer
with a `display' property whose value is the image. The default
STRING is a single space.
AREA is where to display the image. AREA nil or omitted means
display it in the text area, a value of `left-margin' means
display it in the left marginal area, a value of `right-margin'
means display it in the right marginal area.
The image is automatically split into ROWS x COLS slices.
(fn IMAGE &optional STRING AREA ROWS COLS)
(defalias 'insert-sliced-image #[1281 "\204 \301\262\242\302=\204 \303\304\"\210\203# \305>\204# \303\306\"\210\2031 \307DD\262\2027 \302AB\262\310\311\206> \312\245\313\314\206F \312\245\315W\205\215 \316W\203{ `c\210\317`\320\321 \n \257D\322\323\324\257#\210\\\262\210\202M \325\262\\\262\326\327\330\331#c\210\202G \207" [image-map " " image error "Not an image: %s" (left-margin right-margin) "Invalid area %s" margin 0.0 1.0001 1 0.0 1.0001 1.0 1.0 add-text-properties display slice rear-nonsticky (display) keymap 0.0 propertize "\n" line-height t] 19 (#$ . 16438)])
#@203 Remove images between START and END in BUFFER.
Remove only images that were put in BUFFER with calls to `put-image'.
BUFFER nil or omitted means use the current buffer.
(fn START END &optional BUFFER)
(defalias 'remove-images #[770 "\211\204 p\262\300\"\211\205$ \211@\301\302\"\203 \303!\210\210\211A\262\202 \207" [overlays-in overlay-get put-image delete-overlay] 8 (#$ . 17590)])
#@28
(fn FILE &optional PATH)
(defalias 'image-search-load-path #[513 "\211\204 \262\301\211\211\204g :\203g @\262;\203+ \302\303\"\211\262!\262\202` 9\203` \304!\203` J\262;\203N \302\303\"\211\262!\262\202` :\203` \305\"\211\262\203` \306\262A\262\202\n \205l \211\207" [image-load-path nil file-readable-p expand-file-name boundp image-search-load-path t] 9 (#$ . 17990)])
#@786 Find an image, choosing one of a list of image specifications.
SPECS is a list of image specifications.
Each image specification in SPECS is a property list. The contents of
a specification are image type dependent. All specifications must at
least contain the properties `:type TYPE' and either `:file FILE' or
`:data DATA', where TYPE is a symbol specifying the image type,
e.g. `xbm', FILE is the file to load the image from, and DATA is a
string containing the actual image data. The specification whose TYPE
is supported, and FILE exists, is used to construct the image
specification to be returned. Return nil if no specification is
satisfied.
The image is looked for in `image-load-path'.
Image files should not be larger than specified by `max-image-size'.
(fn SPECS)
(defalias 'find-image #[257 "\300\203N \211\204N @\301\302\"\301\303\"\301\304\"\300\305!\203D ;\203; \306!\211\262\203D \307\310\311!\304#B\262\202D \203D \307B\262A\262\266\202 \211\207" [nil plist-get :type :data :file image-type-available-p image-search-load-path image plist-put copy-sequence] 12 (#$ . 18401)])
#@773 Define SYMBOL as an image, and return SYMBOL.
SPECS is a list of image specifications. DOC is an optional
documentation string.
Each image specification in SPECS is a property list. The contents of
a specification are image type dependent. All specifications must at
least contain the properties `:type TYPE' and either `:file FILE' or
`:data DATA', where TYPE is a symbol specifying the image type,
e.g. `xbm', FILE is the file to load the image from, and DATA is a
string containing the actual image data. The first image
specification whose TYPE is supported, and FILE exists, is used to
define SYMBOL.
Example:
(defimage test-image ((:type xpm :file "~/test1.xpm")
(:type xbm :file "~/test1.xbm")))
(fn SYMBOL SPECS &optional DOC)
(defalias 'defimage '(macro . #[770 "\300\301\302DDF\207" [defvar find-image quote] 8 (#$ . 19531)]))
(byte-code "\300\301\302\303#\300\207" [function-put defimage doc-string-elt 3] 4)
#@117 Default interval in seconds between frames of a multi-frame image.
Only used if the image does not specify a value.
(defvar image-default-frame-delay 0.1 (#$ . 20498))
#@350 Return non-nil if IMAGE contains more than one frame.
The actual return value is a cons (NIMAGES . DELAY), where NIMAGES is
the number of frames (or sub-images) in the image and DELAY is the delay
in seconds that the image specifies between each frame. DELAY may be nil,
in which case you might want to use `image-default-frame-delay'.
(fn IMAGE)
(defalias 'image-multi-frame-p #[257 "\301\302!\2052 \302!\303\304\"\303\305\"\2050 \306V\2050 \211\203- \211\247\203* \211\307W\203- \262B\266\203\207" [image-default-frame-delay fboundp image-metadata plist-get count delay 1 0] 6 (#$ . 20673)])
#@83 Like `image-multi-frame-p', but returns nil if no delay is specified.
(fn IMAGE)
(defalias 'image-animated-p #[257 "\300!\211A\205 \211\207" [image-multi-frame-p] 3 (#$ . 21284)])
(make-obsolete 'image-animated-p 'image-multi-frame-p "24.4")
#@370 Start animating IMAGE.
Animation occurs by destructively altering the IMAGE spec list.
With optional INDEX, begin animating from that animation frame.
LIMIT specifies how long to animate the image. If omitted or
nil, play the animation until the end. If t, loop forever. If a
number, play until that number of seconds has elapsed.
(fn IMAGE &optional INDEX LIMIT)
(defalias 'image-animate #[769 "\300!\301\2054 \302!\211\262\203 \303!\210\304A\305p#\210\306\307\301\310\206( \311@\311\n\312 \313\\& \207" [image-multi-frame-p nil image-animate-timer cancel-timer plist-put :animate-buffer run-with-timer 0.2 image-animate-timeout 0 float-time 0.2] 16 (#$ . 21536)])
#@57 Return the animation timer for image IMAGE.
(fn IMAGE)
(defalias 'image-animate-timer #[257 "\301\203+ @\262A\262\211\302H\303=\203% \211\304H\242=\203% \301\262\202 \301\262\202 \207" [timer-list nil 5 image-animate-timeout 6] 5 (#$ . 22227)])
#@66 Minimum interval in seconds between frames of an animated image.
(defconst image-minimum-frame-delay 0.01 (#$ . 22490))
#@64 The current frame number of IMAGE, indexed from 0.
(fn IMAGE)
(defalias 'image-current-frame #[257 "\300A\301\"\206 \302\207" [plist-get :index 0] 4 (#$ . 22616)])
#@191 Show frame N of IMAGE.
Frames are indexed from 0. Optional argument NOCHECK non-nil means
do not check N is within the range of frames present in the image.
(fn IMAGE N &optional NOCHECK)
(defalias 'image-show-frame #[770 "\211\204 \300W\203 \300\262\202 \301!@S^\262\302A\303#\210\304 \207" [0 image-multi-frame-p plist-put :index force-window-update] 7 (#$ . 22790)])
#@58 Return the speed factor for animating IMAGE.
(fn IMAGE)
(defalias 'image-animate-get-speed #[257 "\300A\301\"\206 \302\207" [plist-get :speed 1] 4 (#$ . 23178)])
#@192 Set the speed factor for animating IMAGE to VALUE.
With optional argument MULTIPLY non-nil, treat VALUE as a
multiplication factor for the current value.
(fn IMAGE VALUE &optional MULTIPLY)
(defalias 'image-animate-set-speed #[770 "\300A\301\203 \302!_\202 #\207" [plist-put :speed image-animate-get-speed] 9 (#$ . 23350)])
#@652 Display animation frame N of IMAGE.
N=0 refers to the initial animation frame.
COUNT is the total number of frames in the animation.
TIME-ELAPSED is the total time that has elapsed since
`image-animate-start' was called.
LIMIT determines when to stop. If t, loop forever. If nil, stop
after displaying the last animation frame. Otherwise, stop
after LIMIT seconds have elapsed.
The minimum delay between successive frames is `image-minimum-frame-delay'.
If the image has a non-nil :speed property, it acts as a multiplier
for the animation speed. A negative value means to animate in reverse.
(fn IMAGE N COUNT TIME-ELAPSED LIMIT TARGET-TIME)
(defalias 'image-animate-timeout #[1542 "\302\303A\304\"!\205\266 \305 Z\306X\204 \307\310!\210\311\207\312\313#\210\314!\305 \315!\316A\2063 \317\320!\245_\305 [# ]\311\321W\203N S\202Q T\262\n\203u Y\203f \321\262\n\202\207 \321W\203\207 S\262\n\202\207 Y\204\204 \321W\203\207 \313\262\\\262\247\203\232 Y\262\211?\205\264 \322\311\323\305 \\& \266\205\207" [image-default-frame-delay image-minimum-frame-delay buffer-live-p plist-get :animate-buffer float-time 2 message "Stopping animation; animation possibly too big" nil image-show-frame t image-animate-get-speed image-multi-frame-p + 1.0 abs 0 run-with-timer image-animate-timeout] 22 (#$ . 23690)])
#@225 Return a list of the ImageMagick types to be treated as images, or nil.
This is the result of `imagemagick-types', including only elements
that match `imagemagick-enabled-types' and do not match
`imagemagick-types-inhibit'.
(defalias 'imagemagick-filter-types #[0 "\302\303!\205 \204\f \304\207 \305=\203 \304\207\306\304\307\310\303 \"\"\207" [imagemagick-enabled-types imagemagick-types-inhibit fboundp imagemagick-types nil t delq mapcar #[257 "\211>?\205B \302=\203 \207\3032B \211\203> \211@\2119\203$ \211=\202/ \211;\2037 \304\305!\"\2037 \306\303\"\210A\266\202\202 \307\2620\207" [imagemagick-types-inhibit imagemagick-enabled-types t found string-match symbol-name throw nil] 7 "\n\n(fn TYPE)"]] 5 (#$ . 25070)])
#@177 File extension regexp for ImageMagick files, if any.
This is the extension installed into `auto-mode-alist' and
`image-type-file-name-regexps' by `imagemagick-register-types'.
(defvar imagemagick--file-regexp nil (#$ . 25814))
#@513 Register file types that can be handled by ImageMagick.
This function is called at startup, after loading the init file.
It registers the ImageMagick types returned by `imagemagick-filter-types'.
Registered image types are added to `auto-mode-alist', so that
Emacs visits them in Image mode. They are also added to
`image-type-file-name-regexps', so that the `image-type' function
recognizes these files as having image type `imagemagick'.
If Emacs is compiled without ImageMagick support, this does nothing.
(defalias 'imagemagick-register-types #[0 "\303\304!\205[ \305\306\307 \"\211\205 \310\311!\312Q\313B \235@\314B\n\235@\2042 \315 \"\315\n\"\202V \203= \240\210\202C \313B B\211\203N \211\240\210\202V \316\302\314B\317#\210\211\266\204\207" [imagemagick--file-regexp auto-mode-alist image-type-file-name-regexps fboundp imagemagick-types mapcar #[257 "\300!\227\207" [symbol-name] 3 "\n\n(fn TYPE)"] imagemagick-filter-types "\\." regexp-opt "\\'" image-mode imagemagick delete add-to-list t] 8 (#$ . 26048)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \210\300\316\302\303\317DD\320\306\321\310\311\312\322\314\315& \210\323 \207" [custom-declare-variable imagemagick-types-inhibit funcall function #[0 "\300\207" [(C HTML HTM INFO M TXT PDF)] 1] "List of ImageMagick types that should never be treated as images.\nThis should be a list of symbols, each of which should be one of\nthe ImageMagick types listed by `imagemagick-types'. The listed\nimage types are not registered by `imagemagick-register-types'.\n\nIf the value is t, inhibit the use of ImageMagick for images.\n\nIf you change this without using customize, you must call\n`imagemagick-register-types' afterwards.\n\nIf Emacs is compiled without ImageMagick support, this variable\nhas no effect." :type (choice (const :tag "Support all ImageMagick types" nil) (const :tag "Disable all ImageMagick types" t) (repeat symbol)) :initialize custom-initialize-default :set #[514 "\300\"\210\301 \207" [set-default imagemagick-register-types] 5 "\n\n(fn SYMBOL VALUE)"] :version "24.3" imagemagick-enabled-types #[0 "\300\207" [(3FR ART ARW AVS BMP BMP2 BMP3 CAL CALS CMYK CMYKA CR2 CRW CUR CUT DCM DCR DCX DDS DJVU DNG DPX EXR FAX FITS GBR GIF GIF87 GRB HRZ ICB ICO ICON J2C JNG JP2 JPC JPEG JPG JPX K25 KDC MIFF MNG MRW MSL MSVG MTV NEF ORF OTB PBM PCD PCDS PCL PCT PCX PDB PEF PGM PICT PIX PJPEG PNG PNG24 PNG32 PNG8 PNM PPM PSD PTIF PWP RAF RAS RBG RGB RGBA RGBO RLA RLE SCR SCT SFW SGI SR2 SRF SUN SVG SVGZ TGA TIFF TIFF64 TILE TIM TTF UYVY VDA VICAR VID VIFF VST WBMP WPG X3F XBM XC XCF XPM XV XWD YCbCr YCbCrA YUV)] 1] "List of ImageMagick types to treat as images.\nEach list element should be a string or symbol, representing one\nof the image types returned by `imagemagick-types'. If the\nelement is a string, it is handled as a regexp that enables all\nmatching types.\n\nThe value of `imagemagick-enabled-types' may also be t, meaning\nto enable all types that ImageMagick supports.\n\nThe variable `imagemagick-types-inhibit' overrides this variable.\n\nIf you change this without using customize, you must call\n`imagemagick-register-types' afterwards.\n\nIf Emacs is compiled without ImageMagick support, this variable\nhas no effect." (choice (const :tag "Support all ImageMagick types" t) (const :tag "Disable all ImageMagick types" nil) (repeat :tag "List of types" (choice (symbol :tag "type") (regexp :tag "regexp")))) #[514 "\300\"\210\301 \207" [set-default imagemagick-register-types] 5 "\n\n(fn SYMBOL VALUE)"] imagemagick-register-types] 12)
#@129 Increase the image size by a factor of N.
If N is 3, then the image size will be increased by 30%. The
default is 20%.
(fn N)
(defalias 'image-increase-size #[257 "\300\203\f \301\245T\202
\302!\207" [image--change-size 10.0 1.2] 4 (#$ . 29648) "P"])
#@129 Decrease the image size by a factor of N.
If N is 3, then the image size will be decreased by 30%. The
default is 20%.
(fn N)
(defalias 'image-decrease-size #[257 "\300\203
\301\302\245Z\202 \303!\207" [image--change-size 1 10.0 0.8] 5 (#$ . 29911) "P"])
(defalias 'image--get-image #[0 "\300`\301\"\211\242\302=\204 \303\304!\210\211\207" [get-text-property display image error "No image under point"] 3])
(defalias 'image--get-imagemagick-and-warn #[0 "\300\301!\204\n \302\303!\210\304 \305!\210\306A\307\310#\210\211\207" [fboundp imagemagick-types error "Cannot rescale images without ImageMagick support" image--get-image image-flush plist-put :type imagemagick] 5])
#@15
(fn FACTOR)
(defalias 'image--change-size #[257 "\300 \301!\302\"A\241\210\303A\304_#\207" [image--get-imagemagick-and-warn image--image-without-parameters image--current-scaling plist-put :scale] 9 (#$ . 30599)])
#@14
(fn IMAGE)
(defalias 'image--image-without-parameters #[257 "\211A\262\242\300\203) \211A\262\242\211A\262\242\301>\204$ D\244\262\266\202 \211\262B\207" [nil (:scale :width :height :max-width :max-height)] 8 (#$ . 30830)])
#@24
(fn IMAGE NEW-IMAGE)
(defalias 'image--current-scaling #[514 "\300\301\"@\300\301\"@\302!\245\207" [image-size t float] 6 (#$ . 31077)])
#@55 Rotate the image under point by 90 degrees clockwise.
(defalias 'image-rotate #[0 "\300 \301A\302\303\304\305A\302\"\206 \306\307\\\310\"!#\207" [image--get-imagemagick-and-warn plist-put :rotation float mod plist-get 0 90 360] 9 (#$ . 31226) nil])
#@29 Save the image under point.
(defalias 'image-save #[0 "\300`\301\"\211:\203 \211@\302=\204 \303\304!\210\305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316A\317\"\211\203E \320!\204> \303\321\"\210\202L \322!\210\202L \316A\323\"c\210\210\324ed\325\326!#*\262\207" [get-text-property display image error "No image under point" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 plist-get :file file-exists-p "File %s no longer exists" insert-file-contents-literally :data write-region read-file-name "Write image to file: "] 8 (#$ . 31485) nil])
(provide 'image)
|