Current File : //usr/local/share/emacs/27.2/lisp/image-file.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\302\303\304\305\306\307\310\311\312\313\314\301& \210\302\315\316\317\306\320\310\321\312\313\314\301& \207" [require image custom-declare-variable image-file-name-extensions (purecopy '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg")) "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 #[(sym val) "\303 \"\210\n\205\f \302\304!\207" [sym val auto-image-file-mode set-default t] 3] :initialize custom-initialize-default :group image-file-name-regexps nil "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) #[(sym val) "\303 \"\210\n\205\f \302\304!\207" [sym val auto-image-file-mode set-default t] 3]] 12)
#@60 Return a regular expression matching image-file filenames.
(defalias 'image-file-name-regexp #[nil "\205 \304\305\306\307\"\244\310\"\311Q\312\313\314\315 \n\316\317 \"@E\"\320#)\207" [image-file-name-extensions exts-regexp image-file-name-regexps image-type-file-name-regexps "\\." regexp-opt mapcar upcase t "\\'" mapconcat identity delq nil rassq imagemagick "\\|"] 9 (#$ . 1874)])
#@230 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.
(defalias 'insert-image-file #[(file &optional visit beg end replace) "\306\307\310 \n \f& \n\203 \n\311U\203q \204q ` `
A@\\ \2052 eU\2052 dU \312\313\314\315$\316\315# \317\320\321\322\323\324\205R \325BBBBBBBB \326#\210\203p \316 \315 -
)\207" [file visit beg end replace rval 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 ibeg iend visitingp image props cursor-type truncate-lines] 9 (#$ . 2271)])
#@52 Yank handler for inserting an image into a buffer.
(defalias 'image-file-yank-handler #[(string) "G\304\305\306# \307=\203 \310\305\n\311$\210\202 \312\305\n $\210 :\203? \313\305\314\305\315#\2061 G\306 @ AB\316\317\320BF$\210c*\207" [string image len 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)] 8 (#$ . 3183)])
(put 'image-file-handler 'safe-magic t)
#@136 Filename handler for inserting image files.
OPERATION is the operation to perform, on ARGS.
See `file-name-handler-alist' for details.
(defalias 'image-file-handler #[(operation &rest args) "\303=\203 \203 \304\305\n\"\207\304\306\211\n$\207" [operation auto-image-file-mode args insert-file-contents apply insert-image-file image-file-call-underlying] 5 (#$ . 3729)])
#@130 Call FUNCTION with `image-file-handler' and OPERATION inhibited.
Optional argument ARGS are the arguments to call FUNCTION with.
(defalias 'image-file-call-underlying #[(function operation &rest args) "\305 =\205 \nB \306 \f\"*\207" [inhibit-file-name-operation operation inhibit-file-name-handlers function args image-file-handler apply] 3 (#$ . 4110)])
#@281 Non-nil if Auto-Image-File mode is enabled.
See the `auto-image-file-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `auto-image-file-mode'.
(custom-declare-variable 'auto-image-file-mode nil '(#$ . 4476) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'image :type 'boolean)
#@447 Toggle visiting of image files as images (Auto Image File mode).
If called interactively, enable Auto-Image-File 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.
An image file is one whose name has an extension in
`image-file-name-extensions', or matches a regexp in
`image-file-name-regexps'.
(defalias 'auto-image-file-mode #[(&optional arg) "\306 \307\304 \310=\203 \311\304!?\202 \312 !\313V\"\210\314\315\n\"\211\203' \316 \n\")\f\2033 \317 \315B\nB\320\321\311\304!\203? \322\202@ \323\"\210\324\325!\203k \326\304!\210\306 \203X \306 \232\203k \327 \330\331\311\304!\203f \332\202g \333
#\210))\334 \210\311\304!\207" [#1=#:last-message arg file-name-handler-alist existing-entry auto-image-file-mode local current-message set-default toggle default-value prefix-numeric-value 0 rassq image-file-handler delq 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] 5 (#$ . 4924) (list (or current-prefix-arg 'toggle))])
(defvar auto-image-file-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312!\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.)" add-minor-mode auto-image-file-mode nil boundp provide image-file] 6)
Mini Shell