;ELC   
;;; Compiled by cyd@localhost on Mon Apr 23 22:20:53 2007
;;; from file /home/cyd/emacs/lisp/iimage.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 "`iimage.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\302\303\304\305\306\307\310\311&\210\312B\313\314!\210\315B\316\315!\204\" \317\315\304\"\210\301B\316\301!\2041 \317\301\304\"\210	\204> \320 \321	\322\323#\210\304\207" [current-load-list iimage-mode-map custom-declare-group iimage nil "Support for inline images." :version "22.1" :group image iimage-version (lambda (#1=#:defconst-tmp-var) (defconst iimage-version #1#)) "1.1" iimage-mode default-boundp set-default make-sparse-keymap define-key "\f" iimage-recenter] 8)
#@30 Re-draw images and recenter.
(defalias 'iimage-recenter #[(&optional arg) "\301\302!\210\301\303!\210\304!\207" [arg iimage-mode-buffer 0 1 recenter] 2 (#$ . 1054) "P"])
(byte-code "\302B\303\302!\204 \304\302\305\306\307\310	\"	\244\311\"P\"\210\302\207" [current-load-list image-file-name-extensions iimage-mode-image-filename-regex default-boundp set-default "[-+./_0-9a-zA-Z]+\\." regexp-opt mapcar upcase t] 7)
#@258 *Alist of filename REGEXP vs NUM.
Each element looks like (REGEXP . NUM).
NUM specifies which parenthesized expression in the regexp.

Examples of image filename regexps:
    file://foo.png
    `file://foo.png'
    \[\[foo.gif]]
    <foo.png>
     foo.JPG

(defvar iimage-mode-image-regex-alist (byte-code "\301\302\303\304\260\305BC\207" [iimage-mode-image-filename-regex "\\(`?file://\\|\\[\\[\\|<\\|`\\)?" "\\(" "\\)" "\\(\\]\\]\\|>\\|'\\)?" 2] 5) (#$ . -1481))
#@65 *List of directories to search for image files for iimage-mode.
(defvar iimage-mode-image-search-path nil (#$ . -1954))
#@38 Unconditionally turn on iimage mode.
(defalias 'turn-on-iimage-mode #[nil "\300\301!\207" [iimage-mode 1] 2 (#$ . 2080) nil])
#@39 Unconditionally turn off iimage mode.
(defalias 'turn-off-iimage-mode #[nil "\300\301!\207" [iimage-mode 0] 2 (#$ . 2212) nil])
(byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp locate-file defalias iimage-locate-file #[(filename path) "\302\303	#\207" [filename path locate-library t] 4]] 3)
#@96 Display/undisplay images.
With numeric ARG, display the images if and only if ARG is positive.
(defalias 'iimage-mode-buffer #[(arg) "\247\203 \306V\202\f 	\307p!\310\211\212eb\210\310\211\203q @\311@\310\312#\203h \313A!\211\203) \314B\"\211\203) \203] \315\306\224\306\225\316\317!D#\210\202) \320\306\224\306\225\321#\210\202) A\211\204$ +\322\f!,\207" [arg iimage-mode buffer-read-only file modp ing 0 buffer-modified-p nil re-search-forward t match-string iimage-locate-file add-text-properties display create-image remove-text-properties (display) set-buffer-modified-p iimage-mode-image-regex-alist pair #1=#:--cl-dolist-temp-- default-directory iimage-mode-image-search-path] 7 (#$ . 2550) nil])
#@91 Non-nil if Iimage mode is enabled.
Use the command `iimage-mode' to change this variable.
(defvar iimage-mode nil (#$ . 3294))
(make-variable-buffer-local 'iimage-mode)
#@33 Toggle inline image minor mode.
(defalias 'iimage-mode #[(&optional arg) "\302=\203 	?\202% \203 \303!\304V\202% 	\204 \305\202% \306\307\301\"\210\310\311\312!\210\313	!\210\311\312	\2038 \314\2029 \315\"\210\316 \203M \306\317	\203J \320\202K \321\"\210\322 \210	\207" [arg iimage-mode toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil run-hooks iimage-mode-hook iimage-mode-buffer iimage-mode-on-hook iimage-mode-off-hook called-interactively-p "Iimage mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 3469) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303#\210\304\305!\207" [iimage-mode-map add-minor-mode iimage-mode " iImg" provide iimage] 4)