;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:07 2007 ;;; from file /home/cyd/emacs/lisp/sb-image.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 "`sb-image.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'ezimage) #@44 *Non-nil if speedbar should display icons. (custom-declare-variable 'speedbar-use-images 'ezimage-use-images '(#$ . -582) :group 'speedbar :version "21.1" :type 'boolean) (defalias 'defimage-speedbar 'defezimage) #@38 List of text and image associations. (defvar speedbar-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-mail) ("" . ezimage-document-tag) ("" . ezimage-info-tag) (" =>" . ezimage-tag) (" +>" . ezimage-tag-gt) (" ->" . ezimage-tag-v) (">" . ezimage-tag) ("@" . ezimage-tag-type) (" @" . ezimage-tag-type) ("*" . ezimage-checkout) ("#" . ezimage-object) ("!" . ezimage-object-out-of-date) ("//" . ezimage-label) ("%" . ezimage-lock)) (#$ . 801)) #@179 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. (defalias 'speedbar-insert-image-button-maybe #[(start length) "\205 \305 \f\")\207" [speedbar-use-images speedbar-expand-image-button-alist ezimage-expand-image-button-alist start length ezimage-insert-image-button-maybe] 3 (#$ . 1507)]) #@111 Dump out the current state of the Speedbar image alist. See `speedbar-expand-image-button-alist' for details. (defalias 'speedbar-image-dump #[nil "\304\220\212\304q\210db\210\305c\210`\306\307c\210`\310c\210\311 \312\313$\210*\n\211\205O` @@c\210\314c\210\315 @@G\"\210 @@\314\316\317 @A\"\310\261\210) A\211\204&\306*\221\207" [end start speedbar-expand-image-button-alist ia "*Speedbar Images*" "Speedbar image cache.\n\n" nil "Image Text Image Name" "\n" put-text-property face underline " " speedbar-insert-image-button-maybe format "%s"] 7 (#$ . 1935) nil]) (provide 'sb-image)