;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:53 2007 ;;; from file /home/cyd/emacs/lisp/image-file.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`image-file.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'image) #@406 *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 ''("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm") '(#$ . -585) :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) #@434 *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 '(#$ . -1320) :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 (#$ . 2007)]) #@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 (#$ . 2357)]) #@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 (#$ . 3244)]) (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 (#$ . 3718)]) #@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 (#$ . 4099)]) #@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 '(#$ . 4465) :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) "\304=\203 ?\202%\203\305!\306V\202% \204\307\202%\310\311\301\"\210\312\313\314\n\"\211\2034\315 \n\") \203@\316 \314B\nB\317\320 \203J\321\202K\322\"\210\323 \203c\324\301!\210\310\325 \203`\326\202a\327\"\210\330 \210 \207" [arg auto-image-file-mode file-name-handler-alist existing-entry 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 customize-mark-as-set "Auto-Image-File mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 4914) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\210\305\306!\207" [add-minor-mode auto-image-file-mode nil boundp auto-image-file-mode-map provide image-file] 5)