;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:29 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/image-file.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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) #@401 *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 the variable is set using \[customize]. (custom-declare-variable 'image-file-name-extensions ''("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm") '(#$ . -640) :type '(repeat string) :set (lambda (sym val) (set-default sym val) (when auto-image-file-mode (auto-image-file-mode t))) :initialize 'custom-initialize-default :group 'image) #@429 *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 the variable is set using \[customize]. (custom-declare-variable 'image-file-name-regexps 'nil '(#$ . -1361) :type '(repeat regexp) :set (lambda (sym val) (set-default sym val) (when auto-image-file-mode (auto-image-file-mode t))) :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 (#$ . 2040)]) #@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!\203v \204v`` \211A@)\\ \2056eU\2056dU\312\313\"!\314\315\316#\317\320\321\322\205X\323BBBBBB\324#\210\203t\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 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] 9 (#$ . 2390)]) #@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 (#$ . 3222)]) #@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 (#$ . 3603)]) #@239 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; use either \[customize] or the function `auto-image-file-mode'. (custom-declare-variable 'auto-image-file-mode 'nil '(#$ . 3969) :set (lambda (symbol value) (funcall symbol (or value 0))) :initialize 'custom-initialize-default :group 'image :type 'boolean :require 'image-file) #@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) "\203\f\304!\305V\202 ?\306\307\n\"\211\203\310 \n\") \203)\311 \307B\nB\312\313 \2033\314\2024\315\"\210t\203G\316\317 \203D\320\202E\321\"\210\322 \210 \207" [arg auto-image-file-mode file-name-handler-alist existing-entry 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 message "Auto-Image-File mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 4428) nil]) #@57 Hook run at the end of function `auto-image-file-mode'. (custom-declare-variable 'auto-image-file-mode-hook 'nil '(#$ . 5274) :group 'image :type 'hook) (byte-code "\303\301\304\305\306!\205 \306J#\210\203 \203\n\204\307\310\"\210\311\312!\207" [load-file-name auto-image-file-mode purify-flag add-minor-mode nil boundp auto-image-file-mode-map eval-after-load (auto-image-file-mode 1) provide image-file] 5)