HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/ezimage.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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.

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


(byte-code "\3001\301\302!0\202\210\202\210\303\304\305\306\307\310\311\312\313\314&	\210\315\316\317\320B\"\207" [(error) require image custom-declare-variable ezimage-use-images (if (featurep 'xemacs) (and (fboundp 'make-image-specifier) window-system) (and (display-images-p) (image-type-available-p 'xpm))) "Non-nil means ezimage should display icons." :group ezimage :version "21.1" :type boolean defalias defezimage macro #[(variable imagespec docstring) "\303\304	\nF\305\306D\307BBE\207" [variable imagespec docstring progn defimage put quote ('ezimage t)] 5 "Define VARIABLE as an image if `defimage' is not available.\nIMAGESPEC is the image data, and DOCSTRING is documentation for the image."]] 10)
#@35 Image used for empty directories.
(defvar ezimage-directory (find-image '((:type xpm :file "ezimage/dir.xpm" :ascent center))) (#$ . 1127))
(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))) (#$ . 1309))
(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))) (#$ . 1526))
(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))) (#$ . 1744))
(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))) (#$ . 1946))
(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))) (#$ . 2149))
(put 'ezimage-page 'ezimage t)
#@22 Image used for tags.
(defvar ezimage-tag (find-image '((:type xpm :file "ezimage/tag.xpm" :ascent center))) (#$ . 2341))
(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))) (#$ . 2498))
(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))) (#$ . 2683))
(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))) (#$ . 2863))
(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))) (#$ . 3055))
(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))) (#$ . 3242))
(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))) (#$ . 3441))
(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))) (#$ . 3615))
(put 'ezimage-box-minus 'ezimage t)
#@23 Image of an envelope.
(defvar ezimage-mail (find-image '((:type xpm :file "ezimage/mail.xpm" :ascent center))) (#$ . 3791))
(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))) (#$ . 3952))
(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))) (#$ . 4168))
(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))) (#$ . 4353))
(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))) (#$ . 4595))
(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))) (#$ . 4766))
(put 'ezimage-lock 'ezimage t)
#@28 Image of an unlocked lock.
(defvar ezimage-unlock (find-image '((:type xpm :file "ezimage/unlock.xpm" :ascent center))) (#$ . 4955))
(put 'ezimage-unlock 'ezimage t)
#@17 Image of a key.
(defvar ezimage-key (find-image '((:type xpm :file "ezimage/key.xpm" :ascent center))) (#$ . 5127))
(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))) (#$ . 5279))
(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))) (#$ . 5481))
(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))) (#$ . 5687))
(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))) (#$ . 5894))
(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)) (#$ . 6092))
#@251 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.
(defalias 'ezimage-insert-image-button-maybe #[(start length &optional string) "\203%	\n	\\{\306\f\"\211\203$
AJ\203$\307
AJ	\211G\\#\210*\207" [ezimage-use-images start length bt ezimage-expand-image-button-alist a assoc ezimage-insert-over-text string] 6 (#$ . 6551)])
#@96 Insert over the text in STRING an image found in ALIST.
Return STRING with properties applied.
(defalias 'ezimage-image-over-string #[(string &optional alist) "\203\"\304	\n\"\211\203AJ\203\305AJ\306	G	$\202 	)\207	\207" [ezimage-use-images string alist a assoc ezimage-insert-over-text 0] 6 (#$ . 7088)])
#@180 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.
(defalias 'ezimage-insert-over-text #[(image start end &optional string) "\203\305	\n\306\307\306CF\f$\210\f\207" [ezimage-use-images start end image string add-text-properties display rear-nonsticky] 7 (#$ . 7411)])
#@109 Dump out the current state of the Ezimage image alist.
See `ezimage-expand-image-button-alist' for details.
(defalias 'ezimage-image-association-dump #[nil "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`\320c\210\321\322\323$\210*\211\205\202`@@c\210\324c\210\325@@G\"\210@@\324\326\327@A\"\320\261\210)A\211\204Q\311*\330!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks 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 inhibit-read-only #2=#:buf standard-output end start ezimage-expand-image-button-alist ia] 6 (#$ . 7818) nil])
#@109 Dump out the current state of the Ezimage image alist.
See `ezimage-expand-image-button-alist' for details.
(defalias 'ezimage-image-dump #[nil "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`\320c\210\321\322\323$\210*\324 \211 \205w`\325c\210\326 @J`#\210\327\330\331 @\"\320\261\210) A\211 \204Q\311*\332!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks 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 inhibit-read-only #2=#:buf standard-output end start ia] 6 (#$ . 8781) nil])
#@54 Return a list of all variables containing ez images.
(defalias 'ezimage-all-images #[nil "\301\302\303!\210\304\305\"\211)\207" [ans nil mapatoms #[(sym) "\302N\205	B\211\207" [sym ans ezimage] 2] sort #[(a b) "\302!\302	!\231\207" [a b symbol-name] 3]] 4 (#$ . 9692)])
(provide 'ezimage)