| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/image-file.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:23 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/image-file.el
;;; in Emacs version 24.3.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!\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 \303\304\305\306\"\244\307\"\310Q\n\203' \311\312 \203! \nB\202\" \n\313#\202( )\207" [image-file-name-extensions exts-regexp image-file-name-regexps "\\." regexp-opt mapcar upcase t "\\'" mapconcat identity "\\|"] 5 (#$ . 2019)])
#@160 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'.
(defalias 'insert-image-file #[(file &optional visit beg end replace) "\306\307\310 \n \f& \n\203 \311\n!\203z \204z ` `
\211 A@)\\ \2056 eU\2056 dU \312\313\"! \314\315\316# \317 \320\321\322 \323\324\205Z \325BBBBBBBB \326 #\210\203x \315 \316 .
)\207" [file visit beg end replace rval image-file-call-underlying insert-file-contents-literally insert-file-contents zerop string-make-unibyte buffer-substring-no-properties create-image nil t 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 x iend visitingp data image props cursor-type truncate-lines] 10 (#$ . 2369)])
#@52 Yank handler for inserting an image into a buffer.
(defalias 'image-file-yank-handler #[(string) "G\304\305\306#\307\305\n $\210 :\203/ \310\305\311\305\312#\206! G\306 @ AB\313\314\315BF$\210c*\207" [string image len yank-excluded-properties get-text-property 0 display remove-text-properties add-text-properties next-single-property-change image-counter yank-handler image-file-yank-handler (nil t)] 8 (#$ . 3256)])
(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 (#$ . 3730)])
#@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 (#$ . 4111)])
#@281 Non-nil if Auto-Image-File mode is enabled.
See the command `auto-image-file-mode' 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 '(#$ . 4477) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'image :type 'boolean)
#@365 Toggle visiting of image files as images (Auto Image File mode).
With a prefix argument ARG, enable Auto Image File mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
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) "\305 \306=\203 \n?\202 \307 !\310V\311\312 \"\211 \203\" \313\f \")\n\203. \314 \312B B\315\316\n\2038 \317\2029 \320\"\210\321\322!\203^ \323\302!\210\305 \203Q \305 \232\203^ \324\325\n\203[ \326\202\\ \327\"\210)\330 \210\n\207" [#1=#:last-message arg auto-image-file-mode file-name-handler-alist existing-entry current-message toggle 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" "en" "dis" force-mode-line-update] 4 (#$ . 4925) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306!\207" [auto-image-file-mode-map add-minor-mode auto-image-file-mode nil boundp provide image-file] 6)