;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315&	\207" [require image custom-declare-variable ezimage-use-images funcall function #[0 "\300 \205\301\302!\207" [display-images-p image-type-available-p xpm] 2 ""] "Non-nil means ezimage should display icons." :group ezimage :version "21.1" :type boolean] 10)
#@171 Define VARIABLE as an image if `defimage' is not available.
IMAGESPEC is the image data, and DOCSTRING is documentation for the image.

(fn VARIABLE IMAGESPEC DOCSTRING)
(defalias 'defezimage '(macro . #[771 "\300\301F\302\303D\304BBE\207" [progn defimage put quote ('ezimage t)] 8 (#$ . 422)]))
#@35 Image used for empty directories.
(defvar ezimage-directory (find-image '((:type xpm :file "ezimage/dir.xpm" :ascent center))) (#$ . 729))
(put 'ezimage-directory 'ezimage t)
#@55 Image used for closed directories with stuff in them.
(defvar ezimage-directory-plus (find-image '((:type xpm :file "ezimage/dir-plus.xpm" :ascent center))) (#$ . 910))
(put 'ezimage-directory-plus 'ezimage t)
#@53 Image used for open directories with stuff in them.
(defvar ezimage-directory-minus (find-image '((:type xpm :file "ezimage/dir-minus.xpm" :ascent center))) (#$ . 1126))
(put 'ezimage-directory-minus 'ezimage t)
#@49 Image used for closed files with stuff in them.
(defvar ezimage-page-plus (find-image '((:type xpm :file "ezimage/page-plus.xpm" :ascent center))) (#$ . 1344))
(put 'ezimage-page-plus 'ezimage t)
#@47 Image used for open files with stuff in them.
(defvar ezimage-page-minus (find-image '((:type xpm :file "ezimage/page-minus.xpm" :ascent center))) (#$ . 1546))
(put 'ezimage-page-minus 'ezimage t)
#@54 Image used for files with nothing interesting in it.
(defvar ezimage-page (find-image '((:type xpm :file "ezimage/page.xpm" :ascent center))) (#$ . 1749))
(put 'ezimage-page 'ezimage t)
#@22 Image used for tags.
(defvar ezimage-tag (find-image '((:type xpm :file "ezimage/tag.xpm" :ascent center))) (#$ . 1941))
(put 'ezimage-tag 'ezimage t)
#@35 Image used for closed tag groups.
(defvar ezimage-tag-plus (find-image '((:type xpm :file "ezimage/tag-plus.xpm" :ascent center))) (#$ . 2098))
(put 'ezimage-tag-plus 'ezimage t)
#@27 Image used for open tags.
(defvar ezimage-tag-minus (find-image '((:type xpm :file "ezimage/tag-minus.xpm" :ascent center))) (#$ . 2283))
(put 'ezimage-tag-minus 'ezimage t)
#@48 Image used for closed tags (with twist arrow).
(defvar ezimage-tag-gt (find-image '((:type xpm :file "ezimage/tag-gt.xpm" :ascent center))) (#$ . 2463))
(put 'ezimage-tag-gt 'ezimage t)
#@46 Image used for open tags (with twist arrow).
(defvar ezimage-tag-v (find-image '((:type xpm :file "ezimage/tag-v.xpm" :ascent center))) (#$ . 2655))
(put 'ezimage-tag-v 'ezimage t)
#@49 Image used for tags that represent a data type.
(defvar ezimage-tag-type (find-image '((:type xpm :file "ezimage/tag-type.xpm" :ascent center))) (#$ . 2842))
(put 'ezimage-tag-type 'ezimage t)
#@24 Image of a closed box.
(defvar ezimage-box-plus (find-image '((:type xpm :file "ezimage/box-plus.xpm" :ascent center))) (#$ . 3041))
(put 'ezimage-box-plus 'ezimage t)
#@23 Image of an open box.
(defvar ezimage-box-minus (find-image '((:type xpm :file "ezimage/box-minus.xpm" :ascent center))) (#$ . 3215))
(put 'ezimage-box-minus 'ezimage t)
#@23 Image of an envelope.
(defvar ezimage-mail (find-image '((:type xpm :file "ezimage/mail.xpm" :ascent center))) (#$ . 3391))
(put 'ezimage-mail 'ezimage t)
#@65 Image representing a checkmark.  For files checked out of a VC.
(defvar ezimage-checkout (find-image '((:type xpm :file "ezimage/checkmark.xpm" :ascent center))) (#$ . 3552))
(put 'ezimage-checkout 'ezimage t)
#@43 Image representing bits (an object file.)
(defvar ezimage-object (find-image '((:type xpm :file "ezimage/bits.xpm" :ascent center))) (#$ . 3768))
(put 'ezimage-object 'ezimage t)
#@72 Image representing bits with a ! in it.  (An out of data object file.)
(defvar ezimage-object-out-of-date (find-image '((:type xpm :file "ezimage/bitsbang.xpm" :ascent center))) (#$ . 3953))
(put 'ezimage-object-out-of-date 'ezimage t)
#@30 Image used for label prefix.
(defvar ezimage-label (find-image '((:type xpm :file "ezimage/label.xpm" :ascent center))) (#$ . 4195))
(put 'ezimage-label 'ezimage t)
#@51 Image of a lock.  Used for Read Only, or private.
(defvar ezimage-lock (find-image '((:type xpm :file "ezimage/lock.xpm" :ascent center))) (#$ . 4366))
(put 'ezimage-lock 'ezimage t)
#@28 Image of an unlocked lock.
(defvar ezimage-unlock (find-image '((:type xpm :file "ezimage/unlock.xpm" :ascent center))) (#$ . 4555))
(put 'ezimage-unlock 'ezimage t)
#@17 Image of a key.
(defvar ezimage-key (find-image '((:type xpm :file "ezimage/key.xpm" :ascent center))) (#$ . 4727))
(put 'ezimage-key 'ezimage t)
#@49 Image used to indicate documentation available.
(defvar ezimage-document-tag (find-image '((:type xpm :file "ezimage/doc.xpm" :ascent center))) (#$ . 4879))
(put 'ezimage-document-tag 'ezimage t)
#@46 Image used to indicate closed documentation.
(defvar ezimage-document-plus (find-image '((:type xpm :file "ezimage/doc-plus.xpm" :ascent center))) (#$ . 5081))
(put 'ezimage-document-plus 'ezimage t)
#@44 Image used to indicate open documentation.
(defvar ezimage-document-minus (find-image '((:type xpm :file "ezimage/doc-minus.xpm" :ascent center))) (#$ . 5287))
(put 'ezimage-document-minus 'ezimage t)
#@52 Image used to indicate more information available.
(defvar ezimage-info-tag (find-image '((:type xpm :file "ezimage/info.xpm" :ascent center))) (#$ . 5494))
(put 'ezimage-info-tag 'ezimage t)
#@38 List of text and image associations.
(defvar ezimage-expand-image-button-alist '(("<+>" . ezimage-directory-plus) ("<->" . ezimage-directory-minus) ("< >" . ezimage-directory) ("[+]" . ezimage-page-plus) ("[-]" . ezimage-page-minus) ("[?]" . ezimage-page) ("[ ]" . ezimage-page) ("{+}" . ezimage-box-plus) ("{-}" . ezimage-box-minus) ("*" . ezimage-checkout) ("#" . ezimage-object) ("!" . ezimage-object-out-of-date) ("%" . ezimage-lock)) (#$ . 5692))
#@287 Insert an image button based on text starting at START for LENGTH chars.
If buttontext is unknown, just insert that text.
If we have an image associated with it, use that image.
Optional argument STRING is a string upon which to add text properties.

(fn START LENGTH &optional STRING)
(defalias 'ezimage-insert-image-button-maybe #[770 "\203%\\{\302
	\"\211\203#\211AJ\203#\303
AJ\211G\\#\210\266\207" [ezimage-use-images ezimage-expand-image-button-alist assoc ezimage-insert-over-text] 10 (#$ . 6151)])
#@125 Insert over the text in STRING an image found in ALIST.
Return STRING with properties applied.

(fn STRING &optional ALIST)
(defalias 'ezimage-image-over-string #[513 "\203\301\"\211\203\211AJ\203\302
AJ\303G$\207\207
\207" [ezimage-use-images assoc ezimage-insert-over-text 0] 8 (#$ . 6675)])
#@219 Place IMAGE over the text between START and END.
Assumes the image is part of a GUI and can be clicked on.
Optional argument STRING is a string upon which to add text properties.

(fn IMAGE START END &optional STRING)
(defalias 'ezimage-insert-over-text #[1027 "\203\301\302\303\302CF$\210\207" [ezimage-use-images add-text-properties display rear-nonsticky] 11 (#$ . 6989)])
#@109 Dump out the current state of the Ezimage image alist.
See `ezimage-expand-image-button-alist' for details.
(defalias 'ezimage-image-association-dump #[0 "r\306\307!q\210p\310 \210
\311\211\312\211\312\313 \210\314\315!\210+\211r\307q\210db\210\316c\210`\311\317c\210`\262
\320c\210\321\322\323$\266\211\205l`
@@c\210\324c\210\325
@@G\"\210
@@\324\326\327@A\"\320\261\266\211A\262
\202A\262
)\330!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*Ezimage Images*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook "Ezimage image cache.\n\n" "Image	Text	Image Name" "\n" put-text-property face underline "	" ezimage-insert-image-button-maybe format "%s" internal-temp-output-buffer-show standard-output ezimage-expand-image-button-alist] 10 (#$ . 7380) nil])
#@109 Dump out the current state of the Ezimage image alist.
See `ezimage-expand-image-button-alist' for details.
(defalias 'ezimage-image-dump #[0 "r\306\307!q\210p\310 \210
\311\211\312\211\312\313 \210\314\315!\210+\211r\307q\210db\210\316c\210`\311\317c\210`\262
\320c\210\321\322\323$\266\324 \211\205c`\325c\210\326@J`#\210\327\330\331@\"\320\261\266\211A\262
\202A\262
)\332!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*Ezimage Images*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook "Ezimage image cache.\n\n" "Image	Image Name" "\n" put-text-property face underline ezimage-all-images "cm" ezimage-insert-over-text "	" format "%s" internal-temp-output-buffer-show standard-output] 10 (#$ . 8289) nil])
#@54 Return a list of all variables containing ez images.
(defalias 'ezimage-all-images #[0 "\300C\301\302\303\"!\210\211\304\242\305\"\240\210\211\242\207" [nil mapatoms make-closure #[257 "\211\301N\205\f\300
\300\242B\240\207" [V0 ezimage] 4 "\n\n(fn SYM)"] sort #[514 "\300!\300!\231\207" [symbol-name] 5 "\n\n(fn A B)"]] 5 (#$ . 9151)])
(provide 'ezimage)