;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:51:26 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/image-file.el ;;; in Emacs version 23.4.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'image) #@405 A list of image-file filename extensions. Filenames having one of these extensions are considered image files, in addition to those matching `image-file-name-regexps'. See `auto-image-file-mode'; if `auto-image-file-mode' is enabled, setting this variable directly does not take effect unless `auto-image-file-mode' is re-enabled; this happens automatically when the variable is set using \[customize]. (custom-declare-variable 'image-file-name-extensions '(purecopy '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg")) '(#$ . 558) :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) #@433 List of regexps matching image-file filenames. Filenames matching one of these regexps are considered image files, in addition to those with an extension in `image-file-name-extensions'. See function `auto-image-file-mode'; if `auto-image-file-mode' is enabled, setting this variable directly does not take effect unless `auto-image-file-mode' is re-enabled; this happens automatically when the variable is set using \[customize]. (custom-declare-variable 'image-file-name-regexps 'nil '(#$ . 1308) :type '(repeat regexp) :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) #@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 (#$ . 1993)]) #@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`` \211A@)\\ \2056eU\2056dU\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 (#$ . 2343)]) #@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 (#$ . 3230)]) (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 (#$ . 3704)]) #@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 (#$ . 4085)]) #@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 '(#$ . 4451) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'image :type 'boolean) #@284 Toggle visiting of image files as images. With prefix argument ARG, turn on if positive, otherwise off. Returns non-nil if the new state is enabled. Image files are those 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( \203\307 !\310V\202(\n\204\"\311\202(\312\313\302\"\210\314\315\316 \"\211\2037\317\f \")\n\203C\320 \316B B\321\322\n\203M\323\202N\324\"\210\325\326!\203s\327\302!\210\305 \203f\305 \232\203s\312\330\n\203p\331\202q\332\"\210)\333 \210\n\207" [#1=#:last-message arg auto-image-file-mode file-name-handler-alist existing-entry current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 "Auto-Image-File mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 4900) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n#\210\305\306!\207" [auto-image-file-mode-map add-minor-mode auto-image-file-mode nil boundp provide image-file] 5)