;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314\315\316\317\301&\210\303\320\305\306\321DD\322\311\323\313\324\315\316\317\301&\207" [require image image-converter custom-declare-variable image-file-name-extensions funcall function #[0 "\300\301!\207" [purecopy ("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg")] 2 #1=""] "A list of image-file filename extensions.\nFilenames having one of these extensions are considered image files,\nin addition to those matching `image-file-name-regexps'.\n\nSee `auto-image-file-mode'; if `auto-image-file-mode' is enabled,\nsetting this variable directly does not take effect unless\n`auto-image-file-mode' is re-enabled; this happens automatically when\nthe variable is set using \\[customize]." :type (repeat string) :set #[514 "\301\"\210\205\f\300\302!\207" [auto-image-file-mode set-default t] 5 "\n\n(fn SYM VAL)"] :initialize custom-initialize-default :group image-file-name-regexps #[0 "\300\207" [nil] 1 #1#] "List of regexps matching image-file filenames.\nFilenames matching one of these regexps are considered image files,\nin addition to those with an extension in `image-file-name-extensions'.\n\nSee function `auto-image-file-mode'; if `auto-image-file-mode' is\nenabled, setting this variable directly does not take effect unless\n`auto-image-file-mode' is re-enabled; this happens automatically when\nthe variable is set using \\[customize]." (repeat regexp) #[514 "\301\"\210\205\f\300\302!\207" [auto-image-file-mode set-default t] 5 "\n\n(fn SYM VAL)"]] 12)
#@60 Return a regular expression matching image-file filenames.
(defalias 'image-file-name-regexp #[0 "\205\304\305\306\307\310\"\307\310	\"	$\311\"\312Q\313\314\315\316\n\317\320\"@E\"\321#\207" [image-file-name-extensions image-converter-file-name-extensions image-file-name-regexps image-type-file-name-regexps "\\." regexp-opt append mapcar upcase t "\\'" mapconcat identity delq nil rassq imagemagick "\\|"] 10 (#$ . 1676)])
#@273 Insert the image file FILE into the current buffer.
Optional arguments VISIT, BEG, END, and REPLACE are interpreted
as for the command `insert-file-contents'.  Return list of
absolute file name and number of characters inserted.

(fn FILE &optional VISIT BEG END REPLACE)
(defalias 'insert-image-file #[1281 "\302\303\304&\203\305U\203a\204a``A@\\\2051
eU\2051\211dU\306\307\310\311$\312\311#\313
\314\315\316\317\320	\205I\321BBBBBBBB\322#\210\203_\312\311\266\207" [cursor-type truncate-lines image-file-call-underlying insert-file-contents-literally insert-file-contents 0 create-image encode-coding-region binary t nil display yank-handler (image-file-yank-handler nil t) intangible rear-nonsticky (display intangible) (read-only t front-sticky (read-only)) add-text-properties] 19 (#$ . 2115)])
#@65 Yank handler for inserting an image into a buffer.

(fn STRING)
(defalias 'image-file-yank-handler #[257 "\211G\301\302\303#\304=\203\305\302\306$\210\202 \307\302$\210\211:\203A\310\302\311\302\312#\2062G\303@AB\313\314\315BF$\210c\207" [yank-excluded-properties get-text-property 0 display t set-text-properties nil remove-list-of-text-properties add-text-properties next-single-property-change image-counter yank-handler image-file-yank-handler (nil t)] 11 (#$ . 2957)])
(put 'image-file-handler 'safe-magic t)
#@163 Filename handler for inserting image files.
OPERATION is the operation to perform, on ARGS.
See `file-name-handler-alist' for details.

(fn OPERATION &rest ARGS)
(defalias 'image-file-handler #[385 "
\301=\203\203\302\303\"\207\302\304\211$\207" [auto-image-file-mode insert-file-contents apply insert-image-file image-file-call-underlying] 7 (#$ . 3500)])
#@166 Call FUNCTION with `image-file-handler' and OPERATION inhibited.
Optional argument ARGS are the arguments to call FUNCTION with.

(fn FUNCTION OPERATION &rest ARGS)
(defalias 'image-file-call-underlying #[642 "\302=\205	B\303\"*\207" [inhibit-file-name-operation inhibit-file-name-handlers image-file-handler apply] 6 (#$ . 3872)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable auto-image-file-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Auto-Image-File mode is enabled.\nSee the `auto-image-file-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `auto-image-file-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group image] 12)
#@783 Toggle visiting of image files as images (Auto Image File mode).

This is a minor mode.  If called interactively, toggle the
`Auto-Image-File mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='auto-image-file-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

An image file is one whose name has an extension in
`image-file-name-extensions', or matches a regexp in
`image-file-name-regexps'.

(fn &optional ARG)
(defalias 'auto-image-file-mode #[256 "\303 \304\302\305=\203\306\302!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\302\"\306\302!\2038\302B\314\315	\"\211\203E\313
	\"\210\n\203Q\316 \315B	B\317\320\306\302!\203]\321\202^\322\"\210\323\324!\203\206\325\302!\210\303 \203v\211\303 \232\203\206\326\327\306\302!\203\202\330\202\203\331\332#\210\210\333 \210\306\302!\207" [global-minor-modes file-name-handler-alist auto-image-file-mode current-message set-default toggle default-value 1 nil t boundp delq rassq image-file-handler image-file-name-regexp run-hooks auto-image-file-mode-hook auto-image-file-mode-on-hook auto-image-file-mode-off-hook called-interactively-p any customize-mark-as-set message "Auto-Image-File mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 4772) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar auto-image-file-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315!\207" [auto-image-file-mode-map auto-image-file-mode-hook variable-documentation put "Hook run after entering or leaving `auto-image-file-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode auto-image-file-mode boundp provide image-file] 6)