ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/image-file.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 (#$ . 1876)])
#@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 \n\311U\203v \204v ` `
A@\\ \2052 eU\2052 dU \312\313\"! \314\315\316# \317\320\321\322\323\324\205V \325BBBBBBBB \326 #\210\203t \315 \316 .
)\207" [file visit beg end replace rval image-file-call-underlying insert-file-contents-literally insert-file-contents 0 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 iend visitingp data image props cursor-type truncate-lines] 9 (#$ . 2226)])
#@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 (#$ . 3099)])
(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 (#$ . 3573)])
#@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 (#$ . 3954)])
#@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 '(#$ . 4320) :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) "\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 (#$ . 4768) (list (or current-prefix-arg 'toggle))])
#@185 Hook run after entering or leaving `auto-image-file-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar auto-image-file-mode-hook nil (#$ . 5969))
(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)
Kontol Shell Bypass