| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/sb-image.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:30 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/sb-image.el
;;; in Emacs version 24.3.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 "\300\301!\210\302\303\304\305\306\307\310\311\312\313& \210\314\315\316\"\207" [require ezimage custom-declare-variable speedbar-use-images ezimage-use-images "Non-nil if speedbar should display icons." :group speedbar :version "21.1" :type boolean defalias defimage-speedbar defezimage] 10)
#@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) ("<M>" . ezimage-mail) ("<d>" . ezimage-document-tag) ("<i>" . 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)) (#$ . 855))
#@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 (#$ . 1561)])
#@111 Dump out the current state of the Speedbar image alist.
See `speedbar-expand-image-button-alist' for details.
(defalias 'speedbar-image-dump #[nil "r\306\307!q\210p\310 \210 \311\211\312\211\312 \313 \210\314\315!\210+\211 r\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 "*Speedbar Images*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook "Speedbar image cache.\n\n" "Image Text Image Name" "\n" put-text-property face underline " " speedbar-insert-image-button-maybe format "%s" internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output end start speedbar-expand-image-button-alist ia] 6 (#$ . 1989) nil])
(provide 'sb-image)