| 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/speedbar.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:31 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/speedbar.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@34 The current version of speedbar.
(defvar speedbar-version "1.0" (#$ . 551))
#@184 This version of speedbar is incompatible with this version.
Due to massive API changes (removing the use of the word PATH)
this version is not backward compatible to 0.14 or earlier.
(defvar speedbar-incompatible-version "0.14beta4" (#$ . 634))
(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\310\312\310\313& \210\304\314\306\315\316\317\310\305\310\320& \210\304\321\306\322\316\317\310\305&\207" [require easymenu dframe sb-image custom-declare-group speedbar nil "File and tag browser frame." :group etags tools convenience speedbar-faces "Faces used in speedbar." :prefix "speedbar-" faces speedbar-vc "Version control display in speedbar."] 10)
#@776 List of named expansion elements for filling the speedbar frame.
These expansion lists are only valid for regular files. Special modes
still get to override this list on a mode-by-mode basis. This list of
lists is of the form (NAME MENU KEYMAP FN1 FN2 ...). NAME is a string
representing the types of things to be displayed. MENU is an easymenu
structure used when in this mode. KEYMAP is a local keymap to install
over the regular speedbar keymap. FN1 ... are functions that will be
called in order. These functions will always get the default
directory to use passed in as the first parameter, and a 0 as the
second parameter. The 0 indicates the uppermost indentation level.
They must assume that the cursor is at the position where they start
inserting buttons.
(defvar speedbar-initial-expansion-mode-alist '(("buffers" speedbar-buffer-easymenu-definition speedbar-buffers-key-map speedbar-buffer-buttons) ("quick buffers" speedbar-buffer-easymenu-definition speedbar-buffers-key-map speedbar-buffer-buttons-temp) ("files" speedbar-easymenu-definition-special speedbar-file-key-map speedbar-directory-buttons speedbar-default-directory-list)) (#$ . 1321))
#@190 A symbol name representing the expansion list to use.
The expansion list `speedbar-initial-expansion-mode-alist' contains
the names and associated functions to use for buttons in speedbar.
(defvar speedbar-initial-expansion-list-name "files" (#$ . 2498))
#@156 Save the last expansion list method.
This is used for returning to a previous expansion list method when
the user is done with the current expansion list.
(defvar speedbar-previously-used-expansion-list-name "files" (#$ . 2760))
#@574 List of functions to periodically call stealthily.
This list is of the form:
'( ("NAME" FUNCTION ...)
...)
where NAME is the name of the major display mode these functions are
for, and the remaining elements FUNCTION are functions to call in order.
Each function must return nil if interrupted, or t if completed.
Stealthy functions which have a single operation should always return t.
Functions which take a long time should maintain a state (where they
are in their speedbar related calculations) and permit interruption.
See `speedbar-check-vc' as a good example.
(defvar speedbar-stealthy-function-list '(("files" speedbar-update-current-file speedbar-check-read-only speedbar-check-vc speedbar-check-objects)) (#$ . 2996))
#@647 List of function tables to use for different major display modes.
It is not necessary to define any functions for a specialized mode.
This just provides a simple way of adding lots of customizations.
Each sublist is of the form:
("NAME" (FUNCTIONSYMBOL . REPLACEMENTFUNCTION) ...)
Where NAME is the name of the specialized mode. The rest of the list
is a set of dotted pairs of the form FUNCTIONSYMBOL, which is the name
of a function you would like to replace, and REPLACEMENTFUNCTION,
which is a function you can call instead. Not all functions can be
replaced this way. Replaceable functions must provide that
functionality individually.
(defvar speedbar-mode-functions-list '(("files" (speedbar-item-info . speedbar-files-item-info) (speedbar-line-directory . speedbar-files-line-directory)) ("buffers" (speedbar-item-info . speedbar-buffers-item-info) (speedbar-line-directory . speedbar-buffers-line-directory)) ("quick buffers" (speedbar-item-info . speedbar-buffers-item-info) (speedbar-line-directory . speedbar-buffers-line-directory))) (#$ . 3737))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\207" [custom-declare-variable speedbar-mode-specific-contents-flag t "Non-nil means speedbar will show special mode contents.\nThis permits some modes to create customized contents for the speedbar\nframe." :group speedbar :type boolean speedbar-query-confirmation-method 'all "Query control for file operations.\nThe 'always flag means to always query before file operations.\nThe 'none-but-delete flag means to not query before any file\noperations, except before a file deletion." (radio (const :tag "Always Query before some file operations." all) (const :tag "Never Query before file operations, except for deletions." none-but-delete))] 8)
#@284 Default function list for creating specialized button lists.
This list is set by modes that wish to have special speedbar displays.
The list is of function names. Each function is called with one
parameter BUFFER, the originating buffer. The current buffer is the
speedbar buffer.
(defvar speedbar-special-mode-expansion-list nil (#$ . 5540))
#@180 Default keymap used when identifying a specialized display mode.
This keymap is local to each buffer that wants to define special keybindings
effective when its display is shown.
(defvar speedbar-special-mode-key-map nil (#$ . 5892))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\210\300\316\317\320\304\305\306\307\321\322& \210\300\323\311\324\304\305\306\307&\210\300\325\311\326\304\305\306\307&\210\300\327\311\330\304\305\306\331&\207" [custom-declare-variable speedbar-before-visiting-file-hook '(push-mark) "Hooks run before speedbar visits a file in the selected frame.\nThe default buffer is the buffer in the selected window in the attached frame." :group speedbar :type hook speedbar-visiting-file-hook nil "Hooks run when speedbar visits a file in the selected frame." speedbar-before-visiting-tag-hook '(push-mark) "Hooks run before speedbar visits a tag in the selected frame.\nThe default buffer is the buffer in the selected window in the attached frame." speedbar-visiting-tag-hook '(speedbar-highlight-one-tag-line) "Hooks run when speedbar visits a tag in the selected frame." :options (speedbar-highlight-one-tag-line speedbar-recenter-to-top speedbar-recenter) speedbar-load-hook "Hooks run when speedbar is loaded." speedbar-reconfigure-keymaps-hook "Hooks run when the keymaps are regenerated." speedbar-show-unknown-files "Non-nil show files we can't expand with a ? in the expand button.\nA nil value means don't show the file in the list." boolean] 10)
(defvar speedbar-update-speed dframe-update-speed)
(make-obsolete-variable 'speedbar-update-speed 'dframe-update-speed "speedbar 1.0pre3 (Emacs 23.1)")
(defvar speedbar-navigating-speed dframe-update-speed)
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313&\210\304\314\315\316\310\311\312\317&\210\304\320\321\322\323\324\310\311\312\325& \207" [make-obsolete-variable speedbar-navigating-speed dframe-update-speed "speedbar 1.0pre3 (Emacs 23.1)" custom-declare-variable speedbar-frame-parameters '((minibuffer) (width . 20) (border-width . 0) (menu-bar-lines . 0) (tool-bar-lines . 0) (unsplittable . t) (left-fringe . 0)) "Parameters to use when creating the speedbar frame in Emacs.\nAny parameter supported by a frame may be added. The parameter `height'\nwill be initialized to the height of the frame speedbar is\nattached to and added to this list before the new frame is initialized." :group speedbar :type (repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value"))) speedbar-frame-plist '(minibuffer nil width 20 border-width 0 internal-border-width 0 unsplittable t default-toolbar-visible-p nil has-modeline-p nil menubar-visible-p nil default-gutter-visible-p nil) "Parameters to use when creating the speedbar frame in XEmacs.\nParameters not listed here which will be added automatically are\n`height' which will be initialized to the height of the frame speedbar\nis attached to." (repeat (group :inline t (symbol :tag "Property") (sexp :tag "Value"))) speedbar-use-imenu-flag (fboundp 'imenu) "Non-nil means use imenu for file parsing, nil to use etags.\nXEmacs prior to 20.4 doesn't support imenu, therefore the default is to\nuse etags instead. Etags support is not as robust as imenu support." :tag "Use Imenu for tags" boolean] 10)
#@516 Set to a list of functions which will return and insert a list of tags.
Each element is of the form ( FETCH . INSERT ) where FETCH
is a function which takes one parameter (the file to tag) and returns a
list of tags. The tag list can be of any form as long as the
corresponding insert method can handle it. If it returns t, then an
error occurred, and the next fetch routine is tried.
INSERT is a function which takes an INDENTation level, and a LIST of
tags to insert. It will then create the speedbar buttons.
(defvar speedbar-dynamic-tags-function-list '((speedbar-fetch-dynamic-imenu . speedbar-insert-imenu-list) (speedbar-fetch-dynamic-etags . speedbar-insert-etags-list)) (#$ . 9247))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\316&\210\300\317\320\321\304\305\306\307&\210\300\322\323\324\304\305\306\325\326\327& \210\300\330\331\332\304\305\306\333&\210\300\334\335\336\304\305\306\333&\210\300\337\340\341\304\305\306\333&\210\300\342\343\344\304\305\306\345&\210\300\346\347\350\304\305\306\307&\210\300\351\352\353\304\305\306\333&\210\300\354\320\355\304\305\306\307&\210\300\356\320\357\304\305\306\325&\210\300\360\361\362\304\305\306\325&\210\300\363\320\364\304\305\306\325&\210\300\365\320\366\304\305\306\325&\210\300\367\320\370\304\305\306\325&\210\300\371\352\372\304\305\306\333&\207" [custom-declare-variable speedbar-use-tool-tips-flag (fboundp 'tooltip-mode) "Non-nil means to use tool tips if they are available.\nWhen tooltips are not available, mouse-tracking and minibuffer\ndisplay is used instead." :group speedbar :type boolean speedbar-track-mouse-flag (not speedbar-use-tool-tips-flag) "Non-nil means to display info about the line under the mouse." speedbar-default-position 'left-right "Default position of the speedbar frame.\nPossible values are 'left, 'right or 'left-right.\nIf value is 'left-right, the most suitable location is\ndetermined automatically." (radio (const :tag "Automatic" left-right) (const :tag "Left" left) (const :tag "Right" right)) speedbar-sort-tags nil "If non-nil, sort tags in the speedbar display. *Obsolete*.\nUse `semantic-tag-hierarchy-method' instead." speedbar-tag-hierarchy-method '(speedbar-prefix-group-tag-hierarchy speedbar-trim-words-tag-hierarchy) "List of hooks which speedbar will use to organize tags into groups.\nGroups are defined as expandable meta-tags. Imenu supports\nsuch things in some languages, such as separating variables from\nfunctions. Each hook takes one argument LST, and may destructively\ncreate a new list of the same form. LST is a list of elements of the\nform:\n (ELT1 ELT2 ... ELTn)\nwhere each ELT is of the form\n (TAG-NAME-STRING . NUMBER-OR-MARKER)\nor\n (GROUP-NAME-STRING ELT1 ELT2... ELTn)" hook :options (speedbar-prefix-group-tag-hierarchy speedbar-trim-words-tag-hierarchy speedbar-simple-group-tag-hierarchy speedbar-sort-tag-hierarchy) speedbar-tag-group-name-minimum-length 4 "The minimum length of a prefix group name before expanding.\nThus, if the `speedbar-tag-hierarchy-method' includes `prefix-group'\nand one such groups common characters is less than this number of\ncharacters, then the group name will be changed to the form of:\n worda to wordb\ninstead of just\n word\nThis way we won't get silly looking listings." integer speedbar-tag-split-minimum-length 20 "Minimum length before we stop trying to create sub-lists in tags.\nThis is used by all tag-hierarchy methods that break large lists into\nsub-lists." speedbar-tag-regroup-maximum-length 10 "Maximum length of submenus that are regrouped.\nIf the regrouping option is used, then if two or more short subgroups\nare next to each other, then they are combined until this number of\nitems is reached." speedbar-directory-button-trim-method 'span "Indicates how the directory button will be displayed.\nPossible values are:\n 'span - span large directories over multiple lines.\n 'trim - trim large directories to only show the last few.\n nil - no trimming." (radio (const :tag "Span large directories over multiple lines." span) (const :tag "Trim large directories to only show the last few." trim) (const :tag "No trimming." nil)) speedbar-smart-directory-expand-flag t "Non-nil means speedbar should use smart expansion.\nSmart expansion only affects when speedbar wants to display a\ndirectory for a file in the attached frame. When smart expansion is\nenabled, new directories which are children of a displayed directory\nare expanded in the current framework. If nil, then the current\nhierarchy would be replaced with the new directory." speedbar-indentation-width 1 "When sub-nodes are expanded, the number of spaces used for indentation." speedbar-hide-button-brackets-flag "Non-nil means speedbar will hide the brackets around the + or -." speedbar-before-popup-hook "Hooks called before popping up the speedbar frame." speedbar-after-create-hook '(speedbar-frame-reposition-smartly) "Hooks called after popping up the speedbar frame." speedbar-before-delete-hook "Hooks called before deleting the speedbar frame." speedbar-mode-hook "Hook run after creating a speedbar buffer." speedbar-timer-hook "Hooks called after running the speedbar timer function." speedbar-verbosity-level "Verbosity level of the speedbar.\n0 means say nothing.\n1 means medium level verbosity.\n2 and higher are higher levels of verbosity."] 10)
#@56 String separating file text from indicator characters.
(defvar speedbar-indicator-separator " " (#$ . 14682))
#@136 Non-nil check all files in speedbar to see if they have been checked out.
Any file checked out is marked with `speedbar-vc-indicator'.
(custom-declare-variable 'speedbar-vc-do-check t '(#$ . 14799) :group 'speedbar-vc :type 'boolean)
#@198 Text used to mark files which are currently checked out.
Other version control systems can be added by examining the function
`speedbar-vc-directory-enable-hook' and `speedbar-vc-in-control-hook'.
(defvar speedbar-vc-indicator "*" (#$ . 15040))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\305\306\307&\207" [custom-declare-variable speedbar-vc-directory-enable-hook nil "Return non-nil if the current directory should be checked for Version Control.\nFunctions in this hook must accept one parameter which is the directory\nbeing checked." :group speedbar-vc :type hook speedbar-vc-in-control-hook "Return non-nil if the specified file is under Version Control.\nFunctions in this hook must accept two parameters. The DIRECTORY of the\ncurrent file, and the FILENAME of the file being checked."] 8)
#@72 Local variable maintaining the current version control check position.
(defvar speedbar-vc-to-do-point nil (#$ . 15874))
#@184 Non-nil check all files in speedbar to see if they have an object file.
Any file checked out is marked with `speedbar-obj-indicator', and the
marking is based on `speedbar-obj-alist'
(custom-declare-variable 'speedbar-obj-do-check t '(#$ . 16002) :group 'speedbar-vc :type 'boolean)
#@72 Local variable maintaining the current version control check position.
(defvar speedbar-obj-to-do-point nil (#$ . 16291))
#@208 Text used to mark files that have a corresponding hidden object file.
The car is for an up-to-date object. The cdr is for an out of date object.
The expression `speedbar-obj-alist' defines who gets tagged.
(defvar speedbar-obj-indicator '("#" . "!") (#$ . 16420))
#@69 Alist of file extensions, and their corresponding object file type.
(defvar speedbar-obj-alist '(("\\.\\([cpC]\\|cpp\\|cc\\|cxx\\)$" . ".o") ("\\.el$" . ".elc") ("\\.java$" . ".class") ("\\.f\\(or\\|90\\|77\\)?$" . ".o") ("\\.tex$" . ".dvi") ("\\.texi$" . ".info")) (#$ . 16691))
#@66 Local variable maintaining the current read only check position.
(defvar speedbar-ro-to-do-point nil (#$ . 16977))
#@60 Indicator to append onto a line if that item is Read Only.
(defvar speedbar-object-read-only-indicator "%" (#$ . 17098))
#@104 Regular expression used when identifying files.
Permits stripping of indicator characters from a line.
(defvar speedbar-indicator-regex (byte-code "\304!\305\304 !\306\304\n@!\306\304\nA!\306\304 !\307\260\n\207" [speedbar-indicator-separator speedbar-vc-indicator speedbar-obj-indicator speedbar-object-read-only-indicator regexp-quote "\\(" "\\|" "\\)*"] 10) (#$ . 17226))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\207" [custom-declare-variable speedbar-scanner-reset-hook nil "Hook called whenever generic scanners are reset.\nSet this to implement your own scanning / rescan safe functions with\nstate data." :group speedbar :type hook speedbar-ignored-modes '(fundamental-mode) "List of major modes which speedbar will not switch directories for." (choice (const nil) (repeat :tag "List of modes" (symbol :tag "Major mode")))] 8)
#@201 Takes EXTLIST, a list of extensions and transforms it into regexp.
All the preceding `.' are stripped for an optimized expression starting
with `.' followed by extensions, followed by full-filenames.
(defalias 'speedbar-extension-list-to-regex #[(extlist) "\303\211\n\203: \304\n@!\305U\203% \211\203 \306\202 \307\n@\310\303OQ\2023 \211\203. \306\202/ \307\n@Q\nA\211\204 \311 \203F \312 \313Q\202G \307 \203S \203S \306\202T \307\203_ \311\314Q\202` \307\315\260*\207" [regex2 regex1 extlist nil string-to-char 46 "\\|" "" 1 "\\(" "\\(\\.\\(" "\\)\\)" "\\)" "\\)$"] 7 (#$ . 18112)])
#@363 Regular expression matching directories speedbar will not switch to.
Created from `speedbar-ignored-directory-expressions' with the function
`speedbar-extension-list-to-regex' (a misnamed function in this case.)
Use the function `speedbar-add-ignored-directory-regexp', or customize the
variable `speedbar-ignored-directory-expressions' to modify this variable.
(defvar speedbar-ignored-directory-regexp nil (#$ . 18718))
(byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\210\312\304\313\314\315\316\317\320\321\322& \210\312\323\324\325\315\316\317\326&\210\312\327\330\331\315\316\317\326&\207" [prop --dolist-tail-- defvaralias speedbar-ignored-path-expressions speedbar-ignored-directory-expressions nil (saved-value saved-variable-comment) put make-obsolete-variable "22.1" custom-declare-variable '("[/\\]logs?[/\\]\\'") "List of regular expressions matching directories speedbar will ignore.\nThey should included directories which are notoriously very large\nand take a long time to load in. Use the function\n`speedbar-add-ignored-directory-regexp' to add new items to this list after\nspeedbar is loaded. You may place anything you like in this list\nbefore speedbar has been loaded." :group speedbar :type (repeat (regexp :tag "Directory Regexp")) :set #[(_sym val) "\303!\211\207" [val speedbar-ignored-directory-expressions speedbar-ignored-directory-regexp speedbar-extension-list-to-regex] 2] speedbar-directory-unshown-regexp "^\\(\\..*\\)\\'" "Regular expression matching directories not to show in speedbar.\nThey should include commonly existing directories which are not\nuseful. It is no longer necessary to include version-control\ndirectories here; see `vc-directory-exclusion-list'." string speedbar-file-unshown-regexp (let ((nstr #1="") (noext completion-ignored-extensions)) (while noext (setq nstr (concat nstr (regexp-quote (car noext)) "\\'" (if (cdr noext) "\\|" #1#)) noext (cdr noext))) (concat nstr "\\|#[^#]+#$\\|\\.\\.?\\'\\|\\.#")) "Regexp matching files we don't want displayed in a speedbar buffer.\nIt is generated from the variable `completion-ignored-extensions'."] 11)
#@168 Regular expression matching files we know how to expand.
Created from `speedbar-supported-extension-expressions' with the
function `speedbar-extension-list-to-regex'.
(defvar speedbar-file-regexp nil (#$ . 20928))
(byte-code "\302\300\303\304\305\306\307\310\311\312& \210\313!\302\207" [speedbar-supported-extension-expressions speedbar-file-regexp custom-declare-variable (append '(".[ch]\\(\\+\\+\\|pp\\|c\\|h\\|xx\\)?" ".tex\\(i\\(nfo\\)?\\)?" ".el" ".emacs" ".l" ".lsp" ".p" ".java" ".js" ".f\\(90\\|77\\|or\\)?") (if speedbar-use-imenu-flag '(".ad[abs]" ".p[lm]" ".tcl" ".m" ".scm" ".pm" ".py" ".g" ".s?html" ".ma?k" "[Mm]akefile\\(\\.in\\)?"))) "List of regular expressions which will match files supported by tagging.\nDo not prefix the `.' char with a double \\ to quote it, as the period\nwill be stripped by a simplified optimizer when compiled into a\nsingular expression. This variable will be turned into\n`speedbar-file-regexp' for use with speedbar. You should use the\nfunction `speedbar-add-supported-extension' to add a new extension at\nruntime, or use the configuration dialog to set it in your init file.\nIf you add an extension to this list, and it does not appear, you may\nneed to also modify `completion-ignored-extension' which will also help\nfile completion." :group speedbar :type (repeat (regexp :tag "Extension Regexp")) :set #[(_sym val) "\303!\211\207" [val speedbar-supported-extension-expressions speedbar-file-regexp speedbar-extension-list-to-regex] 2] speedbar-extension-list-to-regex] 10)
#@286 Add EXTENSION as a new supported extension for speedbar tagging.
This should start with a `.' if it is not a complete file name, and
the dot should NOT be quoted in with \. Other regular expression
matchers are allowed however. EXTENSION may be a single string or a
list of strings.
(defalias 'speedbar-add-supported-extension #[(extension) "<\204 C\203 @ \235\204 @ BA\211\204\f \303 !\211\207" [extension speedbar-supported-extension-expressions speedbar-file-regexp speedbar-extension-list-to-regex] 3 (#$ . 22473) "sExtension: "])
#@212 Add DIRECTORY-EXPRESSION as a new ignored directory for speedbar tracking.
This function will modify `speedbar-ignored-directory-regexp' and add
DIRECTORY-EXPRESSION to `speedbar-ignored-directory-expressions'.
(defalias 'speedbar-add-ignored-directory-regexp #[(directory-expression) "<\204 C\203 @ \235\204 @ BA\211\204\f \303 !\211\207" [directory-expression speedbar-ignored-directory-expressions speedbar-ignored-directory-regexp speedbar-extension-list-to-regex] 3 (#$ . 23030) "sDirectory regex: "])
(byte-code "\304\305!\204 \306!\306\n!\305\307\310\311\312\313\314\315\316\317\320\321& \207" [speedbar-supported-extension-expressions speedbar-file-regexp speedbar-ignored-directory-expressions speedbar-ignored-directory-regexp fboundp custom-declare-variable speedbar-extension-list-to-regex speedbar-update-flag dframe-have-timer-flag "Non-nil means to automatically update the display.\nWhen this is nil then speedbar will not follow the attached frame's directory.\nIf you want to change this while speedbar is active, either use\n\\[customize] or call \\<speedbar-mode-map> `\\[speedbar-toggle-updates]'." :group speedbar :initialize custom-initialize-default :set #[(sym val) " L\210\302 \207" [sym val speedbar-toggle-updates] 2] :type boolean] 12)
#@50 Permanently disable changing of the update flag.
(defvar speedbar-update-flag-disable nil (#$ . 24319))
(byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\207" [prop --dolist-tail-- defvaralias speedbar-syntax-table speedbar-mode-syntax-table nil (saved-value saved-variable-comment) put make-obsolete-variable "24.1"] 6)
#@36 Syntax-table used on the speedbar.
(defvar speedbar-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\304#\210\302\310\304#\210\302\311\304#\210\302\312\304#\210\302\313\304#\210)\207" [st make-syntax-table modify-syntax-entry 39 " " 34 40 41 123 125 91 93] 4) (#$ . 24728))
(byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\207" [prop --dolist-tail-- defvaralias speedbar-key-map speedbar-mode-map nil (saved-value saved-variable-comment) put make-obsolete-variable "24.1"] 6)
#@33 Keymap used in speedbar buffer.
(defvar speedbar-mode-map (byte-code "\301 \302\303\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210\304\331\332#\210\333!\210)\207" [map make-keymap suppress-keymap t define-key "t" speedbar-toggle-updates "g" speedbar-refresh "n" speedbar-next "p" speedbar-prev "\356" speedbar-restricted-next "\360" speedbar-restricted-prev "\216" speedbar-forward-list "\220" speedbar-backward-list "r" #[nil "\301!\207" [speedbar-previously-used-expansion-list-name speedbar-change-initial-expansion-list] 2 nil nil] "b" #[nil "\300\301!\207" [speedbar-change-initial-expansion-list "quick buffers"] 2 nil nil] "f" #[nil "\300\301!\207" [speedbar-change-initial-expansion-list "files"] 2 nil nil] dframe-update-keymap] 4) (#$ . 25349))
#@155 Create a keymap for use with a speedbar major or minor display mode.
This basically creates a sparse keymap, and makes its parent be
`speedbar-mode-map'.
(defalias 'speedbar-make-specialized-keymap #[nil "\302 \303 \"\210)\207" [k speedbar-mode-map make-sparse-keymap set-keymap-parent] 3 (#$ . 26256)])
#@59 Keymap used in speedbar buffer while files are displayed.
(defvar speedbar-file-key-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\307#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210)\207" [map speedbar-make-specialized-keymap define-key "e" speedbar-edit-line "
" "+" speedbar-expand-line "=" "-" speedbar-contract-line "[" speedbar-expand-line-descendants "]" speedbar-contract-line-descendants " " speedbar-toggle-line-expansion "U" speedbar-up-directory "I" speedbar-item-info "B" speedbar-item-byte-compile "L" speedbar-item-load "C" speedbar-item-copy "D" speedbar-item-delete "O" speedbar-item-object-delete "R" speedbar-item-rename "M" speedbar-create-directory] 4) (#$ . 26569))
#@33 Base part of the speedbar menu.
(defvar speedbar-easymenu-definition-base (byte-code "\301\302\303\304!\204 \303\305!\205 \303\306!\203 \306 \202 \205 \307C\"\207" [window-system append ("Speedbar" ["Update" speedbar-refresh t] ["Auto Update" speedbar-toggle-updates :active (not speedbar-update-flag-disable) :style toggle :selected speedbar-update-flag]) fboundp defimage make-image-specifier display-graphic-p ["Use Images" speedbar-toggle-images :style toggle :selected speedbar-use-images]] 4) (#$ . 27494))
#@43 Additional menu items while in file-mode.
(defvar speedbar-easymenu-definition-special '(["Edit Item On Line" speedbar-edit-line t] ["Show All Files" speedbar-toggle-show-all-files :style toggle :selected speedbar-show-unknown-files] ["Expand File Tags" speedbar-expand-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.\\+. "))] ["Flush Cache & Expand" speedbar-flush-expand-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.\\+. "))] ["Expand All Descendants" speedbar-expand-line-descendants (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.\\+. "))] ["Contract File Tags" speedbar-contract-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.-. "))] "----" ["File/Tag Information" speedbar-item-info t] ["Load Lisp File" speedbar-item-load (save-excursion (beginning-of-line) (looking-at "[0-9]+: *\\[[+-]\\] .+\\(\\.el\\)\\( \\|$\\)"))] ["Byte Compile File" speedbar-item-byte-compile (save-excursion (beginning-of-line) (looking-at "[0-9]+: *\\[[+-]\\] .+\\(\\.el\\)\\( \\|$\\)"))] ["Copy File" speedbar-item-copy (save-excursion (beginning-of-line) (looking-at "[0-9]+: *\\["))] ["Rename File" speedbar-item-rename (save-excursion (beginning-of-line) (looking-at "[0-9]+: *[[<]"))] ["Create Directory" speedbar-create-directory (save-excursion (beginning-of-line) (looking-at "[0-9]+: *[[<]"))] ["Delete File" speedbar-item-delete (save-excursion (beginning-of-line) (looking-at "[0-9]+: *[[<]"))] ["Delete Object" speedbar-item-object-delete (save-excursion (beginning-of-line) (looking-at "[0-9]+: *\\[[+-]\\] [^ \n]+ \\*?[!#]$"))]) (#$ . 28019))
#@55 Menu items appearing at the end of the speedbar menu.
(defvar speedbar-easymenu-definition-trailer (byte-code "\300\301\302!\205 \303\304!\205 \305C\306\307D\"\207" [append featurep custom fboundp custom-declare-variable ["Customize..." speedbar-customize t] ["Close" dframe-close-frame t] ["Quit" delete-frame t]] 4) (#$ . 29631))
#@113 Non-nil when speedbar is showing buttons specific to a special mode.
In this case it is the originating buffer.
(defvar speedbar-desired-buffer nil (#$ . 29972))
#@37 The buffer displaying the speedbar.
(defvar speedbar-buffer nil (#$ . 30140))
#@32 The frame displaying speedbar.
(defvar speedbar-frame nil (#$ . 30224))
#@65 The frame that was last created, then removed from the display.
(defvar speedbar-cached-frame nil (#$ . 30302))
#@76 The last open directory is saved in its entirety for ultra-fast switching.
(defvar speedbar-full-text-cache nil (#$ . 30420))
#@54 The last file which was selected in speedbar buffer.
(defvar speedbar-last-selected-file nil (#$ . 30552))
#@75 Maintain list of directories simultaneously open in the current speedbar.
(defvar speedbar-shown-directories nil (#$ . 30665))
#@198 An association list of directories and their contents.
Each sublist was returned by `speedbar-file-lists'. This list is
maintained to speed up the refresh rate when switching between
directories.
(defvar speedbar-directory-contents-alist nil (#$ . 30799))
#@67 Never set this by hand. Value is t when S-mouse activity occurs.
(defvar speedbar-power-click nil (#$ . 31062))
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\207" [defalias speedbar-make-overlay make-overlay speedbar-overlay-put overlay-put speedbar-delete-overlay delete-overlay speedbar-mode-line-update force-mode-line-update speedbar speedbar-frame-mode] 3)
#@387 Enable or disable speedbar. Positive ARG means turn on, negative turn off.
A nil ARG means toggle. Once the speedbar frame is activated, a buffer in
`speedbar-mode' will be displayed. Currently, only one speedbar is
supported at a time.
`speedbar-before-popup-hook' is called before popping up the speedbar frame.
`speedbar-before-delete-hook' is called before the frame is deleted.
(defalias 'speedbar-frame-mode #[(&optional arg) "\306!\204 \212\307\310!\211q\210\311 \210)\312 \313\314\300\315\316\n \f
&\n\210 \204, \317\320!\210\2027 \321 \210\322 \210\317!\210\323\324!\210\325\323\326!\210\320\211\211\207" [speedbar-buffer arg speedbar-frame-parameters speedbar-before-delete-hook speedbar-before-popup-hook speedbar-after-create-hook buffer-live-p get-buffer-create " SPEEDBAR" speedbar-mode dframe-frame-mode speedbar-frame speedbar-cached-frame "Speedbar" speedbar-frame-mode speedbar-set-timer nil speedbar-reconfigure-keymaps speedbar-update-contents make-local-variable dframe-delete-frame-function speedbar-handle-delete-frame auto-hscroll-mode dframe-update-speed speedbar-last-selected-file] 12 (#$ . 31485) "P"])
#@65 Reposition the speedbar frame to be next to the attached frame.
(defalias 'speedbar-frame-reposition-smartly #[nil "\303\304\"\204 \303\305\"\203 \306 \307 !\303\304\"A\303\305\"AB#\207\306 \307 !\n#\207" [speedbar-frame-parameters speedbar-frame speedbar-default-position assoc left top dframe-reposition-frame dframe-attached-frame] 7 (#$ . 32637)])
#@64 Return the frame to use for speedbar based on current context.
(defalias 'speedbar-current-frame #[nil "\300\301\302\"\207" [dframe-current-frame speedbar-frame speedbar-mode] 3 (#$ . 33001)])
(put 'speedbar-current-frame 'byte-optimizer 'byte-compile-inline-expand)
#@124 Handle a delete frame event E.
If the deleted frame is the frame speedbar is attached to,
we need to delete speedbar also.
(defalias 'speedbar-handle-delete-frame #[(e) "\205 A@@\n=\205 \303!\207" [speedbar-frame e dframe-attached-frame delete-frame] 2 (#$ . 33275)])
#@189 Change frame focus to or from the speedbar frame.
If the selected frame is not speedbar, then speedbar frame is
selected. If the speedbar frame is active, then select the attached frame.
(defalias 'speedbar-get-focus #[nil "\300 \210\301\302\303\304#\207" [speedbar-reset-scanners dframe-get-focus speedbar-frame speedbar-frame-mode #[nil "\301\302 )\207" [speedbar-update-flag t speedbar-timer-fn] 1]] 4 (#$ . 33555) nil])
#@87 Return the width of the speedbar frame in characters.
Return nil if it doesn't exist.
(defalias 'speedbar-frame-width #[nil "\301!\207" [speedbar-frame frame-width] 2 (#$ . 33987)])
(byte-code "\300\301\302\303#\210\304\305N\204 \300\304\305\306\307!#\210\310\311!\204 \300\311\312\313#\210\300\207" [put speedbar-frame-width byte-optimizer byte-compile-inline-expand speedbar-mode-hook variable-documentation purecopy "Hook run when entering Speedbar mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp speedbar-mode-map definition-name speedbar-mode] 5)
(defvar speedbar-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [speedbar-mode-map variable-documentation put purecopy "Keymap for `speedbar-mode'." boundp speedbar-mode-syntax-table definition-name speedbar-mode] 5)
(defvar speedbar-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [speedbar-mode-syntax-table variable-documentation put purecopy "Syntax table for `speedbar-mode'." speedbar-mode-abbrev-table definition-name speedbar-mode] 5)
(defvar speedbar-mode-abbrev-table (progn (define-abbrev-table 'speedbar-mode-abbrev-table nil) speedbar-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [speedbar-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `speedbar-mode'." speedbar-mode derived-mode-parent nil] 5)
#@2013 Major mode for managing a display of directories and tags.
\<speedbar-mode-map>
The first line represents the default directory of the speedbar frame.
Each directory segment is a button which jumps speedbar's default
directory to that directory. Buttons are activated by clicking `\[speedbar-click]'.
In some situations using `\[dframe-power-click]' is a `power click' which will
rescan cached items, or pop up new frames.
Each line starting with <+> represents a directory. Click on the <+>
to insert the directory listing into the current tree. Click on the
<-> to retract that list. Click on the directory name to go to that
directory as the default.
Each line starting with [+] is a file. If the variable
`speedbar-show-unknown-files' is t, the lines starting with [?] are
files which don't have imenu support, but are not expressly ignored.
Files are completely ignored if they match `speedbar-file-unshown-regexp'
which is generated from `completion-ignored-extensions'.
Files with a `*' character after their name are files checked out of a
version control system. (Currently only RCS is supported.) New
version control systems can be added by examining the documentation
for `speedbar-this-file-in-vc' and `speedbar-vc-check-dir-p'.
Files with a `#' or `!' character after them are source files that
have an object file associated with them. The `!' indicates that the
files is out of date. You can control what source/object associations
exist through the variable `speedbar-obj-alist'.
Click on the [+] to display a list of tags from that file. Click on
the [-] to retract the list. Click on the file name to edit the file
in the attached frame.
If you open tags, you might find a node starting with {+}, which is a
category of tags. Click the {+} to expand the category. Jump-able
tags start with >. Click the name of the tag to go to that position
in the selected file.
\{speedbar-mode-map}
This mode runs the hook `speedbar-mode-hook', as the final step
during initialization.
(defalias 'speedbar-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\212\315\307\306\316!\210\317P\315\307 \320 \210 \203: \321 \322 \323 \324!)\"\210)\325\326!\207" [delay-mode-hooks major-mode mode-name speedbar-mode-map speedbar-mode-syntax-table speedbar-mode-abbrev-table make-local-variable t kill-all-local-variables speedbar-mode "Speedbar" use-local-map set-syntax-table nil frame-title-format "Speedbar " speedbar-set-mode-line-format speedbar-track-mouse speedbar-item-info speedbar-click speedbar-position-cursor-on-line run-mode-hooks speedbar-mode-hook local-abbrev-table font-lock-keywords truncate-lines speedbar-version case-fold-search buffer-read-only speedbar-track-mouse-flag dframe-track-mouse-function dframe-help-echo-function dframe-mouse-click-function dframe-mouse-position-function speedbar-buffer] 2 (#$ . 35579) nil])
#@127 Like `message', but for use in the speedbar frame.
Argument FMT is the format string, and ARGS are the arguments for message.
(defalias 'speedbar-message '(macro . #[(fmt &rest args) "\302 BB\207" [fmt args dframe-message] 3 (#$ . 38488)]))
#@265 Like `y-or-n-p', but for use in the speedbar frame.
Argument PROMPT is the prompt to use.
Optional argument DELETING means this is a query that will delete something.
The variable `speedbar-query-confirmation-method' can cause this to
return true without a query.
(defalias 'speedbar-y-or-n-p #[(prompt &optional deleting) "\204\n \303=\206
\304\n!\207" [deleting speedbar-query-confirmation-method prompt none-but-delete dframe-y-or-n-p] 2 (#$ . 38737)])
(put 'speedbar-y-or-n-p 'byte-optimizer 'byte-compile-inline-expand)
#@45 Select the frame attached to this speedbar.
(defalias 'speedbar-select-attached-frame #[nil "\300\301\302\303\"!\207" [dframe-select-attached-frame dframe-current-frame speedbar-frame speedbar-mode] 4 (#$ . 39271)])
(byte-code "\300\301\302\303#\210\304\305\306\"\210\304\307\310\"\207" [put speedbar-select-attached-frame byte-optimizer byte-compile-inline-expand defalias speedbar-with-attached-buffer dframe-with-attached-buffer speedbar-maybee-jump-to-attached-frame dframe-maybee-jump-to-attached-frame] 4)
#@208 Set the format of the mode line based on the current speedbar environment.
This gives visual indications of what is up. It EXPECTS the speedbar
frame and window to be the currently active frame and window.
(defalias 'speedbar-set-mode-line-format #[nil "\306\307\301\310\"!\205\252 \205\252 rq\210\311 !\206 \312\313\314
\203% \315\202& \316 \317 ! \320\n GG\fG G \203C \321\202D \322&\211 \323V\203X \324 \325\245\326\"\202Y \327 \323V\203q \324 \325\245 \325\246\\\326\"\202r \327 ! \203\214 \330 \260\331!\fPE\202\227 !\f\260C \"#\"\232?\205\250 \"#\332 .\n\207" [speedbar-buffer speedbar-frame w p1 p5 speedbar-update-flag frame-live-p dframe-current-frame speedbar-mode frame-width 20 "<<" ">>" "#" "!" capitalize - 5 1 0 make-string 2 32 "" " " (line-number-mode " %3l") speedbar-mode-line-update p3 speedbar-initial-expansion-list-name p35 line-number-mode blank p2 p4 tf mode-line-format] 8 (#$ . 39790)])
#@69 The menu before the last `speedbar-reconfigure-keymaps' was called.
(defvar speedbar-previous-menu nil (#$ . 40752))
#@151 Reconfigure the menu-bar in a speedbar frame.
Different menu items are displayed depending on the current display mode
and the existence of packages.
(defalias 'speedbar-reconfigure-keymaps #[nil "\306 \203 \307 \202 \212\310\n!\210\311\312 \f\"A@!)\313\314\315\f %
\203G \316\317
@@!\320
@@D\321\322\323\324
@@\325BB&%B%
A\211\204$ %*BC&%\212\326 '\310\n!\210\327\330p\"\205a \331'!\210* ( )r*q\210\332(\206} \333 \206} \334 !\210+\203\211 \335+!\210)+\336\315!\210\337\340\341 \342)$\210)\343\344!*\207" [speedbar-easymenu-definition-base speedbar-shown-directories speedbar-frame speedbar-initial-expansion-list-name speedbar-initial-expansion-mode-alist alist append speedbar-initial-menu dframe-select-attached-frame eval assoc ("-") "Displays" nil vector capitalize speedbar-change-initial-expansion-list :style radio :selected string= (speedbar-initial-expansion-list-name) selected-frame local-variable-p speedbar-special-mode-key-map select-frame use-local-map speedbar-initial-keymap speedbar-make-specialized-keymap easy-menu-remove (lambda (#1=#:def-tmp-var) (defvar speedbar-menu-map #1# #2="Speedbar menu")) easy-menu-do-define speedbar-menu-map current-local-map #2# run-hooks speedbar-reconfigure-keymaps-hook displays speedbar-easymenu-definition-trailer cf localmap md speedbar-buffer speedbar-previous-menu] 15 (#$ . 40876)])
#@46 Customize speedbar using the Custom package.
(defalias 'speedbar-customize #[nil "\302 \303 !\210\304\305!\210\306!\210)\307 \207" [sf speedbar-frame selected-frame dframe-select-attached-frame customize-group speedbar select-frame dframe-maybee-jump-to-attached-frame] 2 (#$ . 42248) nil])
#@56 For motion EVENT, display info about the current line.
(defalias 'speedbar-track-mouse #[(event) "\205 \212\302 \303\216\304\305\306\217+\207" [speedbar-track-mouse-flag #1=#:wconfig current-window-configuration ((set-window-configuration #1#)) nil (byte-code "\302!\210 \303=\205\f \304 \207" [event major-mode mouse-set-point speedbar-mode speedbar-item-info] 2) ((error (dframe-message nil)))] 3 (#$ . 42547)])
#@54 Call the info function for the line under the mouse.
(defalias 'speedbar-show-info-under-mouse #[nil "\303 \211@ \232\205 \212\304 \305\216\306\307\"\210\310 +)\207" [pos speedbar-frame #1=#:wconfig mouse-position current-window-configuration ((set-window-configuration #1#)) apply set-mouse-position speedbar-item-info] 4 (#$ . 42971)])
#@51 Move to the next ARGth line in a speedbar buffer.
(defalias 'speedbar-next #[(arg) "\206 \301y\210\302 \210\303 \207" [arg 1 speedbar-item-info speedbar-position-cursor-on-line] 1 (#$ . 43319) "p"])
#@55 Move to the previous ARGth line in a speedbar buffer.
(defalias 'speedbar-prev #[(arg) "\301\203\n [\202 \302!\207" [arg speedbar-next -1] 2 (#$ . 43526) "p"])
#@175 Move to the next ARGth line in a speedbar buffer at the same depth.
This means that movement is restricted to a subnode, and that siblings
of intermediate nodes are skipped.
(defalias 'speedbar-restricted-move #[(arg) "\247\204\f \305\306\307D\"\210\212\310 \210\311\312!\203 \313\314\315!!\202 \315)\315W\203* \316\202+ \317`\315U\204~ \n[y\210\212\310 \210\311\312!\203K \313\314\315!!\202L \315)\211 W\204b \320\210m\204b \310 \210o\203n b\210\315\321\322!\210\202z \f U\203z `\n\\)\202/ \323 +\207" [arg lastmatch crement depth subdepth signal wrong-type-argument numberp beginning-of-line looking-at "[0-9]+:" string-to-number match-string 0 1 -1 nil error "End of sub-list" speedbar-position-cursor-on-line] 5 (#$ . 43696)])
#@175 Move to the next ARGth line in a speedbar buffer at the same depth.
This means that movement is restricted to a subnode, and that siblings
of intermediate nodes are skipped.
(defalias 'speedbar-restricted-next #[(arg) "\301\206 \302!\210\303 \207" [arg speedbar-restricted-move 1 speedbar-item-info] 2 (#$ . 44450) "p"])
#@179 Move to the previous ARGth line in a speedbar buffer at the same depth.
This means that movement is restricted to a subnode, and that siblings
of intermediate nodes are skipped.
(defalias 'speedbar-restricted-prev #[(arg) "\301\203\n [\202 \302!\210\303 \207" [arg speedbar-restricted-move -1 speedbar-item-info] 2 (#$ . 44780) "p"])
#@171 Move across ARG groups of similarly typed items in speedbar.
Stop on the first line of the next type of item, or on the last or first item
if we reach a buffer boundary.
(defalias 'speedbar-navigate-list #[(arg) "\302 \210\303\304!\203 \305\306\307!!\303!\203 \310 !\210\302 \210\202 )\311 \207" [str arg beginning-of-line looking-at "[0-9]+: *[[<{][-+?][]>}] " regexp-quote match-string 0 speedbar-restricted-move speedbar-position-cursor-on-line] 3 (#$ . 45124) "p"])
#@146 Move forward over the current list.
A LIST in speedbar is a group of similarly typed items, such as directories,
files, or the directory button.
(defalias 'speedbar-forward-list #[nil "\300\301!\210\302 \207" [speedbar-navigate-list 1 speedbar-item-info] 2 (#$ . 45606) nil])
#@147 Move backward over the current list.
A LIST in speedbar is a group of similarly typed items, such as directories,
files, or the directory button.
(defalias 'speedbar-backward-list #[nil "\300\301!\210\302 \207" [speedbar-navigate-list -1 speedbar-item-info] 2 (#$ . 45889) nil])
#@58 Page down one screen-full of the speedbar, or ARG lines.
(defalias 'speedbar-scroll-up #[(&optional arg) "\301!\210\302 \207" [arg scroll-up speedbar-position-cursor-on-line] 2 (#$ . 46174) "P"])
#@56 Page up one screen-full of the speedbar, or ARG lines.
(defalias 'speedbar-scroll-down #[(&optional arg) "\301!\210\302 \207" [arg scroll-down speedbar-position-cursor-on-line] 2 (#$ . 46377) "P"])
#@119 Keyboard accelerator for moving the default directory up one.
Assumes that the current buffer is the speedbar buffer.
(defalias 'speedbar-up-directory #[nil "\301\302P!\303 \207" [default-directory expand-file-name "../" speedbar-update-contents] 3 (#$ . 46583) nil])
#@144 Refresh the current speedbar display, disposing of any cached data.
Argument ARG represents to force a refresh past any caches that may exist.
(defalias 'speedbar-refresh #[(&optional arg) " \306\211 \306 \211 \203' @\307\310
\"\"A\211\204 *\311X\2033 \312\313!\210\314 \210\315 \210\316!\210\311X\205H \312\317!+\207" [speedbar-shown-directories arg deactivate-mark dframe-power-click dl d nil delq assoc 1 dframe-message "Refreshing speedbar..." speedbar-update-contents speedbar-stealthy-updates speedbar-set-timer "Refreshing speedbar...done" --dolist-tail-- speedbar-directory-contents-alist speedbar-verbosity-level dframe-update-speed] 5 (#$ . 46860) "P"])
#@63 Load the item under the cursor or mouse if it is a Lisp file.
(defalias 'speedbar-item-load #[nil "\304 \305!\203> \306\307\"\203> \305\310P!\2038 \311\312\"\313 \204) \314=\206, \315\n!*\2038 \316\310P!\202A \316!\202A \317\320!)\207" [f deleting prompt speedbar-query-confirmation-method speedbar-line-file file-exists-p string-match "\\.el\\'" "c" format "Load %sc? " nil none-but-delete dframe-y-or-n-p load-file error "Not a loadable file"] 3 (#$ . 47554) nil])
#@71 Byte compile the item under the cursor or mouse if it is a Lisp file.
(defalias 'speedbar-item-byte-compile #[nil "\303 \304 \305 !\205\" \306\307 \"\205\" \310\n!\210\311 \312\"\210\313!\210\314 *\207" [sf f speedbar-frame speedbar-line-file selected-frame file-exists-p string-match "\\.el\\'" dframe-select-attached-frame byte-compile-file nil select-frame speedbar-reset-scanners] 3 (#$ . 48037) nil])
#@92 Provide information about what the user clicked on.
This should be bound to a mouse EVENT.
(defalias 'speedbar-mouse-item-info #[(event) "\301!\210\302 \207" [event mouse-set-point speedbar-item-info] 2 (#$ . 48452) "e"])
#@134 Attempt to derive, and then display information about this line item.
File style information is displayed with `speedbar-item-info'.
(defalias 'speedbar-generic-item-info #[nil "\212\300 \210\301\302!\203 \303\225b\210\301\304!\203 \303\225b\210\305\306\307`\310 \"\")\207" [beginning-of-line looking-at "\\([0-9]+\\):" 0 "\\s-*[[<({].[]>)}] " dframe-message "Text: %s" buffer-substring-no-properties line-end-position] 5 (#$ . 48682)])
#@157 Display info in the minibuffer about the button the mouse is over.
This function can be replaced in `speedbar-mode-functions-list' as
`speedbar-item-info'.
(defalias 'speedbar-item-info #[nil "\301\302\303!\206 \304 )\207" [message-log-max nil speedbar-fetch-replacement-function speedbar-item-info speedbar-generic-item-info] 2 (#$ . 49128) nil])
#@162 Display info about a file that is on the current line.
Return nil if not applicable. If FILENAME, then use that
instead of reading it from the speedbar buffer.
(defalias 'speedbar-item-info-file-helper #[(&optional filename) "\206 \303 \211\205 \304 ! \205! \n\205! \305\306\307\n8\310\n8 $*\207" [filename item attr speedbar-line-file file-attributes dframe-message "%s %-6d %s" 8 7] 6 (#$ . 49485)])
#@85 Display info about a tag that is on the current line.
Return nil if not applicable.
(defalias 'speedbar-item-info-tag-helper #[nil "\212\306 \210\307\310\311 \312#\203Q \313\314!\315 \316\317\320!\205 \320 !\211\203? \212\321 !\2036 \322 !\2036 \322 !q\210\323\f !!)\202M \324\325!\210\326\327 !\323\330\n#,\202\371 \307\331\311 \312#\203c \323\332\313\314!\"\202\371 \307\333\316\312#\205\371 \313\314! \315 \206u
)\212\306 \210\324\334!\203\212 \335\313\336!!S\202\213 \336 *\337\340\341*!\342Q\316\312#\210)\324\343!\205\242 \315 ) +\344\345!\203\344 \320)!\203\275 \323\f)+\"!\202\370 +\203\334 \323\346)\320+!\203\326 \347+\316\312#\202\330 +#\202\370 \323\350)\"\202\370 +\203\363 \323\346)+#\202\370 \323\350)\"+)\207" [tag attr item semantic-tagged semantic-sb-info-format-tag-function detailtext beginning-of-line re-search-forward " [-+=]?> \\([^\n]+\\)" line-end-position t match-string 1 speedbar-line-token nil fboundp semantic-tag-p semantic-tag-overlay semantic-tag-buffer dframe-message looking-at "\\([0-9]+\\):" file-name-nondirectory speedbar-line-directory "Tag: %s in %s" "{[+-]} \\([^\n]+\\)$" "Group of tags \"%s\"" " [+-]?[()|@] \\([^\n]+\\)$" "[0-9]+:" string-to-number 0 re-search-backward "^" int-to-string ":" "[0-9]+: +[-+=>]> \\([^\n]+\\)$" featurep semantic "Detail: %s of tag %s" semantic-format-tag-name "Detail: %s" detail dep parent] 8 (#$ . 49899)])
#@68 Display info in the minibuffer about the button the mouse is over.
(defalias 'speedbar-files-item-info #[nil "\204 \301 \207\302 \206 \303 \206 \301 \207" [speedbar-shown-directories speedbar-generic-item-info speedbar-item-info-file-helper speedbar-item-info-tag-helper] 1 (#$ . 51315)])
#@77 Copy the item under the cursor.
Files can be copied to new names or places.
(defalias 'speedbar-item-copy #[nil "\306 \211\204 \307\310!\210\311!\203 \307\312!\202~ \313\314\315\316!\"\317!\"\320\317 !!\n\235\311 !\203E \320 !\321\322 \"\203? \323\202@ \324\316!Q\325 !\203e \314\326 #\327 \f\204^ \330=\206a \331
!*\205} \332 \327\211$\210 \205} \333 \210\334 !?\205} \334!*)\207" [f rt speedbar-shown-directories refresh deleting prompt speedbar-line-file error "Not a file" file-directory-p "Cannot copy directory" read-file-name format "Copy %s to: " file-name-nondirectory file-name-directory expand-file-name string-match "[/\\]$" "" "/" file-exists-p "Overwrite %s with %s? " t none-but-delete dframe-y-or-n-p copy-file speedbar-refresh speedbar-goto-this-file speedbar-query-confirmation-method] 6 (#$ . 51614) nil])
#@107 Rename the item under the cursor or mouse.
Files can be renamed to new names or moved to new directories.
(defalias 'speedbar-item-rename #[nil "\306 \211\203i \307\310\311\312!\"\313!\"\314\313 !!\n\235\315 !\2035 \314 !\316\317 \"\203/ \320\2020 \321\312!Q\322 !\203U \310\323 #\324 \f\204N \325=\206Q \326
!*\205e \327 \324#\210 \205e \330 \210\331 !*\202l \332\333!)\207" [f rt speedbar-shown-directories refresh deleting prompt speedbar-line-file read-file-name format "Rename %s to: " file-name-nondirectory file-name-directory expand-file-name file-directory-p string-match "[/\\]\\'" "" "/" file-exists-p "Overwrite %s with %s? " t none-but-delete dframe-y-or-n-p rename-file speedbar-refresh speedbar-goto-this-file error "Not a file" speedbar-query-confirmation-method] 6 (#$ . 52462) nil])
#@33 Create a directory in speedbar.
(defalias 'speedbar-create-directory #[nil "\303 \211\203 \304!\305\306 \"\307\n\310\"\210\311 \210\312\n!*\202\" \313\314!)\207" [f basedir nd speedbar-line-file file-name-directory read-directory-name "Create directory: " make-directory t speedbar-refresh speedbar-goto-this-file error "Not a file"] 4 (#$ . 53281) nil])
#@65 Delete the item under the cursor. Files are removed from disk.
(defalias 'speedbar-item-delete #[nil "\305 \211\204 \306\307!\210\310\311\"\312 \204 \313=\206 \314\n!*\205C \315!\2032 \316\312\211#\210\2027 \317\312\"\210\320\321!\210` \322 \210\fb))\207" [f deleting prompt speedbar-query-confirmation-method p speedbar-line-file error "Not a file" format "Delete %s? " t none-but-delete dframe-y-or-n-p file-directory-p delete-directory delete-file dframe-message "Okie dokie." speedbar-refresh] 5 (#$ . 53647) nil])
#@159 Delete the object associated from the item under the cursor.
The file is removed from disk. The object is determined from the
variable `speedbar-obj-alist'.
(defalias 'speedbar-item-object-delete #[nil "\306 \307\n\204 \310\311!\210 \203# \312 @@\"\204# A\211\204 \313! @AP \205T \314 !\205T \315\316 \"\317 \f\204G \320=\206J \321
!*\205T \322 !\210\323 +\207" [f obj speedbar-obj-alist oa deleting prompt speedbar-line-file nil error "Not a file" string-match file-name-sans-extension file-exists-p format "Delete %s? " t none-but-delete dframe-y-or-n-p delete-file speedbar-reset-scanners speedbar-query-confirmation-method] 4 (#$ . 54185) nil])
#@51 Enable automatic updating in speedbar via timers.
(defalias 'speedbar-enable-update #[nil "\302\303 \210\304 !\207" [speedbar-update-flag dframe-update-speed t speedbar-set-mode-line-format speedbar-set-timer] 2 (#$ . 54855) nil])
#@58 Disable automatic updating and stop consuming resources.
(defalias 'speedbar-disable-update #[nil "\301\302 \210\303\301!\207" [speedbar-update-flag nil speedbar-set-mode-line-format speedbar-set-timer] 2 (#$ . 55093) nil])
#@49 Toggle automatic update for the speedbar frame.
(defalias 'speedbar-toggle-updates #[nil "\203 \301 \207\302 \207" [speedbar-update-flag speedbar-disable-update speedbar-enable-update] 1 (#$ . 55324) nil])
#@45 Toggle use of images in the speedbar frame.
(defalias 'speedbar-toggle-images #[nil "?\301 \207" [speedbar-use-images speedbar-refresh] 1 (#$ . 55538) nil])
#@21 Toggle tag sorting.
(defalias 'speedbar-toggle-sorting #[nil "?\211\207" [speedbar-sort-tags] 2 (#$ . 55703) nil])
#@47 Toggle display of files speedbar can not tag.
(defalias 'speedbar-toggle-show-all-files #[nil "?\301 \207" [speedbar-show-unknown-files speedbar-refresh] 1 (#$ . 55826) nil])
#@53 Allow the buffer to be writable and evaluate FORMS.
(defalias 'speedbar-with-writable '(macro . #[(&rest forms) "\301\302\303BE\207" [forms let ((inhibit-read-only t)) progn] 4 (#$ . 56009)]))
(put 'speedbar-with-writable 'lisp-indent-function 0)
#@429 Insert TEXT as the next logical speedbar button.
FACE is the face to put on the button, MOUSE is the highlight face to use.
When the user clicks on TEXT, FUNCTION is called with the TOKEN parameter.
This function assumes that the current buffer is the speedbar buffer.
If PREVLINE, then put this button on the previous line.
This is a convenience function for special modes that create their own
specialized speedbar displays.
(defalias 'speedbar-insert-button #[(text face mouse function &optional token prevline) "db\210`i\306U\204 \307c\210\310`\311\312$\210) \203) \313\314!\210\315c\210\310`S`\311\312$\210`\nc\210\316` \f
&\210)`\307c\210\317`\320#)\207" [start prevline text face mouse function 0 "\n" put-text-property invisible nil delete-char -1 " " speedbar-make-button add-text-properties (face nil invisible nil mouse-face nil) token] 7 (#$ . 56264)])
#@98 Insert a separation label of TEXT.
Separators are not active, have no labels, depth, or actions.
(defalias 'speedbar-insert-separator #[(text) "\203 `\303c\210\304 \305\"\210)`\n\306\261\210\307 `\310\311\211\211&)\207" [speedbar-use-images start text "//" speedbar-insert-image-button-maybe 2 "\n" speedbar-make-button speedbar-separator-face nil] 7 (#$ . 57146)])
#@272 Create a button from START to END, with FACE as the display face.
MOUSE is the mouse face. When this button is clicked on FUNCTION
will be run with the TOKEN parameter (any Lisp object). If FACE
is t use the text properties of the string that is passed as an
argument.
(defalias 'speedbar-make-button #[(start end face mouse function &optional token) "\306=\204
\307 \n\300$\210\310 \n\311 \312\313\314\315 \n\"\257#\210\f\203( \307 \n\316\317$\210
\2033 \307 \n\320
$\210\203@ \307 \n\321$\210\n Z\322X\205N \323 \n Z\"\207" [face start end mouse speedbar-use-tool-tips-flag function t put-text-property add-text-properties mouse-face invisible nil speedbar-text buffer-substring-no-properties help-echo dframe-help-echo speedbar-function speedbar-token 3 speedbar-insert-image-button-maybe token] 11 (#$ . 57525)])
#@153 Return the current default expansion list.
This is based on `speedbar-initial-expansion-list-name' referencing
`speedbar-initial-expansion-mode-alist'.
(defalias 'speedbar-initial-expansion-list #[nil "\302 \"AAA\207" [speedbar-initial-expansion-list-name speedbar-initial-expansion-mode-alist assoc] 3 (#$ . 58359)])
#@148 Return the current default menu data.
This is based on `speedbar-initial-expansion-list-name' referencing
`speedbar-initial-expansion-mode-alist'.
(defalias 'speedbar-initial-menu #[nil "\302 \"A@J\207" [speedbar-initial-expansion-list-name speedbar-initial-expansion-mode-alist assoc] 3 (#$ . 58685)])
#@148 Return the current default menu data.
This is based on `speedbar-initial-expansion-list-name' referencing
`speedbar-initial-expansion-mode-alist'.
(defalias 'speedbar-initial-keymap #[nil "\302 \"AA@J\207" [speedbar-initial-expansion-list-name speedbar-initial-expansion-mode-alist assoc] 3 (#$ . 58996)])
#@151 Return a list of functions to call stealthily.
This is based on `speedbar-initial-expansion-list-name' referencing
`speedbar-stealthy-function-list'.
(defalias 'speedbar-initial-stealthy-functions #[nil "\302 \"A\207" [speedbar-initial-expansion-list-name speedbar-stealthy-function-list assoc] 3 (#$ . 59310)])
#@46 Add NEW-LIST to the list of expansion lists.
(defalias 'speedbar-add-expansion-list #[(new-list) "\301\302\"\207" [new-list add-to-list speedbar-initial-expansion-mode-alist] 3 (#$ . 59629)])
#@58 Change speedbar's default expansion list to NEW-DEFAULT.
(defalias 'speedbar-change-initial-expansion-list #[(new-default) "\n\303\304\305\"\205 \306\303\304\305\"!\205 \307 \210\310 \207" [speedbar-initial-expansion-list-name speedbar-previously-used-expansion-list-name new-default dframe-current-frame speedbar-frame speedbar-mode frame-live-p speedbar-refresh speedbar-reconfigure-keymaps] 4 (#$ . 59828) (list (completing-read (format "Speedbar Mode (default %s): " speedbar-previously-used-expansion-list-name) speedbar-initial-expansion-mode-alist nil t "" nil speedbar-previously-used-expansion-list-name))])
#@150 Return a current mode-specific replacement for function, or nil.
Scans `speedbar-mode-functions-list' first for the current mode, then
for FUNCTION.
(defalias 'speedbar-fetch-replacement-function #[(function) "\303\303 \n\"A\"A\207" [function speedbar-initial-expansion-list-name speedbar-mode-functions-list assoc] 5 (#$ . 60457)])
#@93 Add NEW-LIST to the list of mode functions.
See `speedbar-mode-functions-list' for details.
(defalias 'speedbar-add-mode-functions-list #[(new-list) "\301\302\"\207" [new-list add-to-list speedbar-mode-functions-list] 3 (#$ . 60797)])
#@171 Quick check function called on BUFFERs by the speedbar timer function.
Maintains the value of local variables which control speedbar's use
of the special mode functions.
(defalias 'speedbar-maybe-add-localized-support #[(buffer) "\206 \302 !\207" [speedbar-special-mode-expansion-list buffer speedbar-add-localized-speedbar-support] 2 (#$ . 61040)])
#@69 Add localized speedbar support to BUFFER's mode if it is available.
(defalias 'speedbar-add-localized-speedbar-support #[(buffer) ";\203 \306!\307!\205n rq\210\310 \311\216\312\n!\313 \314\315\f\"\205m \f\316\211\224O\317\f\320P!\321\305!\210 \204? \322\211\202m \323 K \"\210 C\317\f\324P!\211\203Z \321\325!\210 J\317\f\326P!\211\205m \321\327!\210 J\211-\207" [buffer save-match-data-internal major-mode v ms speedbar-special-mode-expansion-list get-buffer buffer-live-p match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) symbol-name nil string-match "-mode$" 0 intern-soft "-speedbar-buttons" make-local-variable t autoload-do-load "-speedbar-key-map" speedbar-special-mode-key-map "-speedbar-menu-items" speedbar-easymenu-definition-special] 4 (#$ . 61398) "bBuffer: "])
#@71 Remove any traces that BUFFER supports speedbar in a specialized way.
(defalias 'speedbar-remove-localized-speedbar-support #[(buffer) "rq\210\301\302!\210\301\303!\210\301\304!)\207" [buffer kill-local-variable speedbar-special-mode-expansion-list speedbar-special-mode-key-map speedbar-easymenu-definition-special] 2 (#$ . 62244)])
#@249 Create file lists for DIRECTORY.
The car is the list of directories, the cdr is list of files not
matching ignored headers. Cache any directory files found in
`speedbar-directory-contents-alist' and use that cache before scanning
the file-system.
(defalias 'speedbar-file-lists #[(directory) "\306! \204 \307\n\"\243\206| \310\311\"\311\211 \f
\203U \312
@\"\204N
@\235\204N \312
@\"\204N \313
@!\203I
@\fB\202N
@ B
A\211\204 \f\237 \237CB\307\n\" \203q \241\210\202x B\nB.\207" [directory dframe-power-click speedbar-directory-contents-alist files dirs dir expand-file-name assoc directory-files nil string-match file-directory-p default-directory speedbar-file-unshown-regexp vc-directory-exclusion-list speedbar-directory-unshown-regexp ae nl] 5 (#$ . 62586)])
#@233 Insert a single button group at point for DIRECTORY.
Each directory part is a different button. If part of the directory
matches the user directory ~, then it is replaced with a ~.
INDEX is not used, but is required by the caller.
(defalias 'speedbar-directory-buttons #[(directory _index) "\306\307!\306 !\310\311!\n\"\211\203 \307\n\312\225\313OP\202 \n ` \310\314\f\"\203* \fc\210\212
b\210\315\316\313\317#\203b \320\321\224\321\225\322\323\324\321\224
U\203W \325
Tf\326\"\204W \306\307!\202\\ \327
\312\225\"&\210\2021 -\330=\203\300 \331 \210\332.!\206t \333 /\334/\313\"\210i/Y\203\274 \335\336\313\317#\210i\337X\203\244 \315\336\313\317#\210i\340W\203\241 \315\336\313\317#\210\341u\210\342\343!\203\260 \331 \210\202| \344c\210\334/\313\"\210\202| )\202\366 -\345=\203\366 \313\210\332.!\206\322 \333i 0\211 /0W\203\365 \3340/Z!\210\335\336\313\317#\203\365 e`|\210\346c\210*)\310\347\f\"\203\350c\210` \351c\210\320
`\322\323\324\352&\210)\313\210\353\354\321\313#-\207" [tilde directory dd junk displayme p expand-file-name "~/" string-match regexp-quote 0 nil "^~[/\\]?\\'" re-search-forward "\\([^/\\]+\\)[/\\]" t speedbar-make-button 1 speedbar-directory-face speedbar-highlight-face speedbar-directory-buttons-follow char-equal 58 buffer-substring-no-properties span beginning-of-line frame-width 20 move-to-column re-search-backward "[/\\]" 2 4 -1 looking-at "[/\\]?$" "/...\n " trim "$" "\\`[/\\][^/\\]+[/\\]\\'" " " "<root>" "/" insert-char 10 speedbar-directory-button-trim-method speedbar-frame ww tl] 10 (#$ . 63397)])
#@858 Create a tag line with EXP-BUTTON-TYPE for the small expansion button.
This is the button that expands or contracts a node (if applicable),
and EXP-BUTTON-CHAR the character in it (+, -, ?, etc). EXP-BUTTON-FUNCTION
is the function to call if it's clicked on. Button types are
'bracket, 'angle, 'curly, 'expandtag, 'statictag, t, or nil.
EXP-BUTTON-DATA is extra data attached to the text forming the expansion
button.
Next, TAG-BUTTON is the text of the tag. TAG-BUTTON-FUNCTION is the
function to call if clicked on, and TAG-BUTTON-DATA is the data to
attach to the text field (such a tag positioning, etc).
TAG-BUTTON-FACE is a face used for this type of tag.
Lastly, DEPTH shows the depth of expansion.
This function assumes that the cursor is in the speedbar window at the
position to insert a new item, and that the new item will end with a CR.
(defalias 'speedbar-make-tag-line #[(exp-button-type exp-button-char exp-button-function exp-button-data tag-button tag-button-function tag-button-data tag-button-face depth) "`\306!\307\261\210` _ \310\f \311\312$\210\313\314\n\315#\210\310`\nZ`\311\315$\210
\316=\203/ \317\202X
\320=\2039 \321\202X
\322=\203C \323\202X
\324=\203M \325\202X
\326=\203W \327\202X \330 \331 \" !` !c\210`
\205v
\326=?\205v \332 \"#\205~ \333 $\334\f \"$#%&\210&\203\243 \310\f\211T\311\312$\210\310 \211S\311\312$\210.\313\314\335\315#\210\310`S`\311\315$\210`'c\210` \313\336\335\315#\210\310`S`\311\315$\210\334\f ()\205\324 \333)*&-\207" [depth speedbar-indentation-width depthspacesize end start exp-button-type int-to-string ":" put-text-property invisible t insert-char 32 nil bracket "[%c]" angle "<%c>" curly "{%c}" expandtag " %c>" statictag " =>" ">" format speedbar-button-face speedbar-highlight-face speedbar-make-button 1 10 exp-button exp-button-char buttxt bf exp-button-function mf exp-button-data speedbar-hide-button-brackets-flag tag-button tag-button-face tag-button-function tag-button-data] 7 (#$ . 64972)])
#@69 Change the expansion button character to CHAR for the current line.
(defalias 'speedbar-change-expand-button-char #[(char) "\212\302 \210\303\304\305 \306#\205& \306\307\225b\210\310 \307\306#\210\311u\210\312\311!\210\313`S\314\"))\207" [inhibit-read-only char beginning-of-line re-search-forward ":\\s-*.\\([-+?]\\)" line-end-position t 1 insert-char -1 delete-char speedbar-insert-image-button-maybe 3] 4 (#$ . 66981)])
#@257 Insert list of FILES starting at point, and indenting all files to LEVEL.
Tag expandable items with a +, otherwise a ?. Don't highlight ? as we
don't know how to manage them. The input parameter FILES is a cons
cell of the form ( 'DIRLIST . 'FILELIST ).
(defalias 'speedbar-insert-files-at-point #[(files level) "@\211\203 \306\307\310\311 @ @\312\313\314\n& \210 A\211\204 )A@\315\211 \205h \316
\f@\"\211 \2037 \310\2028 \317 \205@ \320 \204N \317U\204_ \306\321\f@\f@\322\313\323\n& \210+\fA\211\204( \313*\207" [files dirs level case-fold-search lst speedbar-file-regexp speedbar-make-tag-line angle 43 speedbar-dired speedbar-dir-follow nil speedbar-directory-face t string-match 63 speedbar-tag-file bracket speedbar-find-file speedbar-file-face known expchar fn speedbar-show-unknown-files] 11 (#$ . 67412)])
#@55 Insert files for DIRECTORY with level INDEX at point.
(defalias 'speedbar-default-directory-list #[(directory index) "\305\306! \"\210\307 \210 \310U\205> \311\n!A\312\f!C \205= \313 @!\2035 \314 \210\315\316!\2035 \310\225b\210\317 \210 A\211\204 \320)\207" [directory index speedbar-shown-directories sf default-directory speedbar-insert-files-at-point speedbar-file-lists speedbar-reset-scanners 0 reverse expand-file-name speedbar-goto-this-file beginning-of-line looking-at "[0-9]+:[ ]*<" speedbar-do-function-pointer nil] 4 (#$ . 68257)])
#@73 Non-nil if SUBLST is a group.
Groups may optionally contain a position.
(defalias 'speedbar-generic-list-group-p #[(sublst) "\242;\2051 \243<\203 \301\243\242!\2061 \302\243\242!\2061 \303\243\242!\2051 \243\243<\2051 \301\243\243\242!\207" [sublst speedbar-generic-list-tag-p speedbar-generic-list-group-p number-or-marker-p] 2 (#$ . 68813)])
#@47 Non-nil if SUBLST is a group with a position.
(defalias 'speedbar-generic-list-positioned-group-p #[(sublst) "\242;\205* \302\243\242!\205* \243\243<\205* \243\243\242\303 !\206) \304 !\206) \305 !)\207" [sublst rest number-or-marker-p speedbar-generic-list-tag-p speedbar-generic-list-group-p speedbar-generic-list-positioned-group-p] 2 (#$ . 69171)])
#@29 Non-nil if SUBLST is a tag.
(defalias 'speedbar-generic-list-tag-p #[(sublst) "\242;\205 \301\243!\203 \243\243?\206 \243\2429\207" [sublst number-or-marker-p] 2 (#$ . 69535)])
#@41 Sort all elements of tag hierarchy LST.
(defalias 'speedbar-sort-tag-hierarchy #[(lst) "\301\302!\303\"\207" [lst sort copy-alist #[(a b) "@ @\231\207" [a b] 2]] 3 (#$ . 69725)])
#@105 A wrapper for `try-completion'.
Passes STRING and ALIST to `try-completion' if ALIST
passes some tests.
(defalias 'speedbar-try-completion #[(string alist) ":\205 @<\205 @@;\205 \302 \"\207" [alist string try-completion] 3 (#$ . 69913)])
#@43 Prefix group names for tag hierarchy LST.
(defalias 'speedbar-prefix-group-tag-hierarchy #[(lst) "\306\211\211\211\211\211\211\307\310\311\306\"\307 GX\203) \202\317\203R \312\242!\203A @B\202I @BA\211\204. \237\211GX\203j \202o\313\314\"G\203\260 @@@ GX\203\226 \307 \307HBI\210\202\246 H HHBI\210*A\211\204v \307\311V\203o H\211 \203h\313\314\"B GV\204\340 G
G\\V\203;
\203\366
G\nU\203\366 \315
\237\"\2023\n\316U\203$\313\314
\"\211 G W\203\f\317
@@\fG\306O\320R
BB)\2023
\2033\f\321 Q
BB\306\211\306\307GW\203`\315
\"\nT @\f\203Y\f\202\\ @\202g B))T\202\262
\203\204
G\nU\203\204\315
\"\202\247\n\316U\203\230\313\314
\"
BB\202\247
\203\247\f\321 Q
BB\237\211\203\311\203\300\315#\202\317\315\"\202\317\315\".\n\207" [diff-idx bins num-shorts-grouped short-end-name short-start-name short-group-list nil 0 make-vector 256 speedbar-generic-list-group-p speedbar-try-completion "" append 1 " (" ")" " to " junk-list work-list sublst newlst lst speedbar-tag-regroup-maximum-length speedbar-tag-split-minimum-length s e l tmp subexpression speedbar-tag-group-name-minimum-length] 12 (#$ . 70164)])
#@141 Trim all words in a tag hierarchy.
Base trimming information on word separators, and group names.
Argument LST is the list of tags to trim.
(defalias 'speedbar-trim-words-tag-hierarchy #[(lst) "\306\211\211\307\306
\203) \310
\242!\203
@\fB\202\"
@ B
A\211\204 \311\312 \"\f\237 G\313U\204C \n\203C \314\315\n\"\204K \316\f \237\"\202q \n\307\224\307\225O\211G \203m @@ \306O @ABB A\211\204Y \316\f\"-\207" [trimlst trim-chars trim-prefix sublst newlst lst nil 0 speedbar-generic-list-group-p speedbar-try-completion "" 1 string-match "\\(\\w+\\W+\\)+" append] 6 (#$ . 71471)])
#@104 Create a simple 'Tags' group with orphaned tags.
Argument LST is the list of tags to sort into groups.
(defalias 'speedbar-simple-group-tag-hierarchy #[(lst) "\303\211\n\203# \304\n\242!\203 \n@ B\202 \n@B\nA\211\204 \204, \237\2025 \305\237B B\211\237*\207" [sublst newlst lst nil speedbar-generic-list-group-p "Tags"] 3 (#$ . 72077)])
#@128 Adjust the tag hierarchy in LST, and return it.
This uses `speedbar-tag-hierarchy-method' to determine how to adjust
the list.
(defalias 'speedbar-create-tag-hierarchy #[(lst) "\212\304y\210\305 \206 \306 )\307!\203 r\307!q\210 )\202 \310\311!\203, \311 !\202- \n\203> \n@ !\nA\211\2042 +\207" [f speedbar-tag-hierarchy-method methods lst -1 speedbar-line-file speedbar-line-directory get-file-buffer fboundp copy-tree] 3 (#$ . 72434)])
#@131 The type of button created for groups of tags.
Good values for this are `curly' and `expandtag'.
Make buffer local for your mode.
(defvar speedbar-generic-list-group-expand-button-type 'curly (#$ . 72891))
#@134 The type of button created for tags in generic lists.
Good values for this are nil and `statictag'.
Make buffer local for your mode.
(defvar speedbar-generic-list-tag-button-type nil (#$ . 73104))
#@313 At LEVEL, insert a generic multi-level alist LST.
Associations with lists get {+} tags (to expand into more nodes) and
those with positions just get a > as the indicator. {+} buttons will
have the function EXPAND-FUN and the token is the cdr list. The token
name will have the function FIND-FUN and not token.
(defalias 'speedbar-insert-generic-list #[(level lst expand-fun find-fun) "@@\306\230\203 A\212\307y\210\310 \206 \311 )\312\211\212\313 !\203( \313 !q\210\f
)\314!\211\205\245 \242\203\235 \315@!\203X \316 \312\211\211@@@A\317T& \210\202\235 \320@!\203{ \316\n\321@AA@@@A@\317T& \210\202\235 \322@!\203\231 \316\n\321@A@@\312\211\317T& \210\202\235 \323\324!\210A\211\2045 \312+\207" [lst tag-button expand-button f speedbar-generic-list-group-expand-button-type speedbar-generic-list-tag-button-type "*Rescan*" -1 speedbar-line-file speedbar-line-directory nil get-file-buffer speedbar-create-tag-hierarchy speedbar-generic-list-tag-p speedbar-make-tag-line speedbar-tag-face speedbar-generic-list-positioned-group-p 43 speedbar-generic-list-group-p dframe-message "speedbar-insert-generic-list: malformed list!" find-fun level expand-fun] 11 (#$ . 73308)])
#@50 At level INDENT, insert the imenu generated LST.
(defalias 'speedbar-insert-imenu-list #[(indent lst) "\302 \303\304$\207" [indent lst speedbar-insert-generic-list speedbar-tag-expand speedbar-tag-find] 5 (#$ . 74525)])
#@50 At level INDENT, insert the etags generated LST.
(defalias 'speedbar-insert-etags-list #[(indent lst) "\302 \303\304$\207" [indent lst speedbar-insert-generic-list speedbar-tag-expand speedbar-tag-find] 5 (#$ . 74752)])
#@57 Generically update the contents of the speedbar buffer.
(defalias 'speedbar-update-contents #[nil "\303\304p!\210 \203 \n:\203 \305\302p\"\203 \306 \207\307 \207" [speedbar-desired-buffer speedbar-mode-specific-contents-flag speedbar-special-mode-expansion-list nil speedbar-maybe-add-localized-support local-variable-p speedbar-update-special-contents speedbar-update-directory-contents] 3 (#$ . 74979) nil])
#@71 Update the contents of the speedbar buffer for the current situation.
(defalias 'speedbar-update-localized-contents #[nil "\306 \211\307\230\203B \310 !\f\235\206
\205 \311
\310 !\"?\205\230 \312X\203- \313\314 \"\210\315 \210\312X\205\230 \313\316 \"\210\313\317!\202\230 \310 ! q\210\320 \321\322\" \323 ! \324 ! \325 \210 \317 \211 !\203\206 !@ \322\"\210!A\211!\204n *\326 \210\327 \"\210\330 \"-*\207" [speedbar-initial-expansion-list-name funclst name default-directory speedbar-shown-directories speedbar-ignored-directory-regexp speedbar-initial-expansion-list "files" expand-file-name string-match 1 dframe-message "Updating speedbar to: %s..." speedbar-update-directory-contents "Updating speedbar to: %s...done" nil t get-buffer-window 0 window-point window-start erase-buffer speedbar-reconfigure-keymaps set-window-point set-window-start speedbar-verbosity-level cbd speedbar-buffer inhibit-read-only window p start func --dolist-tail--] 5 (#$ . 75399)])
#@76 Update the contents of the speedbar buffer based on the current directory.
(defalias 'speedbar-update-directory-contents #[nil "\306!\307\310 \307\211\211\211 q\210 !\235\2039 \307 !\235G\311U\204\227 C!\202\227 \"\203p \312 #\313\216 \314\315 \"\203X \316\211\224O \317 !\211 *\203p !\235\203p \320\202\227 d\311V\203 \321 \210!\322 B @\235\203\222 @!\320\202\227 C! \204\236 \307$\320 % \203\262 \323 !\203\262 \324 \210\202\325 \316\" &\326&! '\327&! (\330 \210\f\203\334 !GS!8 Ac\210\202 \307 )\211 *\203\377 *@) ) \316\"\210*A\211*\204\347 *\331&'\"\210\332&(\"\210+. \333 \207" [default-directory speedbar-full-text-cache inhibit-quit expand-local use-cache speedbar-stealthy-function-list expand-file-name nil speedbar-initial-expansion-list 1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "[/\\]$" 0 file-name-directory t speedbar-clear-current-file buffer-string speedbar-directory-line speedbar-expand-line get-buffer-window window-point window-start erase-buffer set-window-point set-window-start speedbar-reconfigure-keymaps cache funclst cbd-parent cbd speedbar-buffer speedbar-shown-directories speedbar-smart-directory-expand-flag save-match-data-internal speedbar-last-selected-file inhibit-read-only window p start func --dolist-tail--] 9 (#$ . 76412)])
#@121 Use the mode-specific variable to fill in the speedbar buffer.
This should only be used by modes classified as special.
(defalias 'speedbar-update-special-contents #[nil "p r\fq\210
\203 \306 \210
\307 B \310\311 \f\n\310
\211 \2038 @\211
!\210A\211\204& .\312 \207" [speedbar-special-mode-expansion-list specialbuff funclst speedbar-desired-buffer speedbar-buffer speedbar-shown-directories speedbar-clear-current-file buffer-string nil t speedbar-reconfigure-keymaps speedbar-full-text-cache inhibit-read-only func --dolist-tail--] 3 (#$ . 77832)])
#@97 Set up the speedbar timer with TIMEOUT.
Uses `dframe-set-timer'.
Also resets scanner functions.
(defalias 'speedbar-set-timer #[(timeout) "\301\302\303#\210\203 \304\305\306\"\210\202 \307\305\306\"\210\310 \207" [timeout dframe-set-timer speedbar-timer-fn speedbar-update-flag add-hook after-revert-hook speedbar-reset-scanners remove-hook speedbar-set-mode-line-format] 4 (#$ . 78407)])
#@57 Run whenever Emacs is idle to update the speedbar item.
(defalias 'speedbar-timer-fn #[nil "\306\303\307\"\203 \310\306\303\307\"!\204 \311\312!\210\202\252 \313 \314\216 \203\251 \306\303\307\"\203\251 \315\306\303\307\"!\203\251 \315\306\303\307\"!\316=\204\251 \317 \320 !\210\321\322 !\204\245 \323p!\210\f\203\201
:\203\201 \324\305p\"\203\201 \325!X\203j \326\327\"\"\210\330 \210\325!X\203\241 \326\331\"\"\210\326\312!\210\202\241 \"#\235\204\227 \n\306\303\307\"=\204\227 \332 \204\236 $\333\230\203\241 \334 \210\335\n!\210\336 \210)*\337\340!\207" [save-match-data-internal speedbar-update-flag af speedbar-frame speedbar-mode-specific-contents-flag speedbar-special-mode-expansion-list dframe-current-frame speedbar-mode frame-live-p speedbar-set-timer nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) frame-visible-p icon selected-frame dframe-select-attached-frame window-minibuffer-p selected-window speedbar-maybe-add-localized-support local-variable-p 2 dframe-message "Updating speedbar to special mode: %s..." speedbar-update-special-contents "Updating speedbar to special mode: %s...done" buffer-file-name "GUD" speedbar-update-localized-contents select-frame speedbar-stealthy-updates run-hooks speedbar-timer-hook speedbar-verbosity-level major-mode speedbar-ignored-modes speedbar-initial-expansion-list-name] 4 (#$ . 78806)])
#@51 Recursion avoidance variable for stealthy update.
(defvar speedbar-stealthy-update-recurse nil (#$ . 80226))
#@153 For a given speedbar, run all items in the stealthy function list.
Each item returns t if it completes successfully, or nil if
interrupted by the user.
(defalias 'speedbar-stealthy-updates #[nil "?\205! \303 \304\305\216\304 \205 @ \205 A\211\204 \305,\207" [speedbar-stealthy-update-recurse l inhibit-read-only speedbar-initial-stealthy-functions t nil] 3 (#$ . 80342)])
#@136 Reset any variables used by functions in the stealthy list as state.
If new functions are added, their state needs to be updated here.
(defalias 'speedbar-reset-scanners #[nil "\303\211\303\304\305!\207" [speedbar-vc-to-do-point speedbar-obj-to-do-point speedbar-ro-to-do-point t run-hooks speedbar-scanner-reset-hook] 3 (#$ . 80731)])
#@31 Go to the line where FILE is.
(defalias 'speedbar-find-selected-file #[(file) "q\210eb\210\305\306\307\310\311\n!!\312 \313\260\305\314#\211\203> \n\315\212\316\224b\210\317 \210\320 \321\216\322\323!\210\324\325\316!!+!\325\326!P\230\203 \205I \326\224b\210\325\326!)\207" [speedbar-buffer m file speedbar-indicator-regex save-match-data-internal nil re-search-forward " \\(" regexp-quote file-name-nondirectory "\\)\\(" "\\)?\n" t speedbar-line-directory 0 beginning-of-line match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at "[0-9]+:" string-to-number match-string 1] 6 (#$ . 81076)])
#@69 Locate the file thought to be current, and remove its highlighting.
(defalias 'speedbar-clear-current-file #[nil "\212\205 \302\303!\205 \304\305\224\305\225\306\307$))\207" [speedbar-last-selected-file inhibit-read-only t speedbar-find-selected-file put-text-property 1 face speedbar-file-face] 5 (#$ . 81734)])
#@212 Find the current file, and update our visuals to indicate its name.
This is specific to file names. If the file name doesn't show up, but
it should be in the list, then the directory cache needs to be updated.
(defalias 'speedbar-update-current-file #[nil "\306 \212\307 !\210\310 \205 \310 \311!\210\n*\211\205 p \312\313! \314 \f\203\217 \315\f!\203\217 \f \230\204\217 \311\316\301\317\"!\210\320 \210\314 \321\f!\203W \322\323\224\323\225\324\325$\210\202| \326 \f\"\203| \327 !\330 !\230\203| \331 \210\321\f!\203| \322\323\224\323\225\324\325$\210\f ) \204\210 \332 \210
q\210\311!\210.\314\207" [lastf speedbar-frame rf newcfd newcf lastb selected-frame dframe-select-attached-frame buffer-file-name select-frame boundp sucf-recursive t file-exists-p dframe-current-frame speedbar-mode speedbar-clear-current-file speedbar-find-selected-file put-text-property 1 face speedbar-selected-face string-match file-name-directory expand-file-name speedbar-refresh speedbar-position-cursor-on-line case-fold-search speedbar-last-selected-file inhibit-read-only speedbar-file-regexp default-directory] 6 (#$ . 82059)])
#@219 Add INDICATOR-STRING to the end of this speedbar line.
If INDICATOR-STRING is space, and REPLACE-THIS is a character,
then the existing indicator is removed. If there is already an
indicator, then do not add a space.
(defalias 'speedbar-add-indicator #[(indicator-string &optional replace-this) "\306 \210\307\210\310 \n@\nA\260\307x\210\311 !\204! \f\310\230\204!
c\210\312 \212\203: \313\314 \312#\203: \315\224\315\225|\210)\307\210\f\310\230?\205R ` \fc\210\316\fG\"))\207" [speedbar-vc-indicator speedbar-object-read-only-indicator speedbar-obj-indicator speedbar-indicator-regex indicator-string speedbar-indicator-separator beginning-of-line nil " " looking-at t re-search-forward line-end-position 0 speedbar-insert-image-button-maybe inhibit-read-only replace-this start] 5 (#$ . 83202)])
#@73 Scan all the files in a directory, and for each see if it is read only.
(defalias 'speedbar-check-read-only #[nil "\212\203 q\210 \304=\203 \305 \247\203U b\210\306 \204I \307\310\311\304#\203I `\312 \211\203E \313\n!\204> \314 \315 !\"\210\202E \314\316\315 !\"\210)\202 \306 ?\205V \311\304\202V \304)\207" [speedbar-buffer speedbar-ro-to-do-point f speedbar-object-read-only-indicator t 0 input-pending-p re-search-forward "^\\([0-9]+\\):\\s-*[[<][+-?][]>] " nil speedbar-line-file file-writable-p speedbar-add-indicator regexp-quote " "] 5 (#$ . 84020)])
#@185 Scan all files in a directory, and for each see if it's checked out.
See `speedbar-this-file-in-vc' and `speedbar-vc-check-dir-p' for how
to add more types of version control systems.
(defalias 'speedbar-check-vc #[nil "\212\203 q\210 \203H \n\306=\203H \307 !\203H \310\311!\203) \312\313J@\314 !\"\204H \310\315!\203F \312\316J\211 ;\203< \f\202> \f@)\314 !\"\204H \317\n\247\203\207 \nb\210\320 \204{ \321\322\323\306#\203{ `\324\325\326!!\203q \327
\330
!\"\210\202P \327\331\330
!\"\210\202P \320 ?\205\210 \323\306\202\210 \306)\207" [speedbar-buffer speedbar-vc-do-check speedbar-vc-to-do-point default-directory reg speedbar-vc-indicator t speedbar-vc-check-dir-p featurep ange-ftp string-match ange-ftp-name-format expand-file-name efs efs-directory-regexp 0 input-pending-p re-search-forward "^\\([0-9]+\\):\\s-*\\[[+-?]\\] " nil speedbar-check-vc-this-line match-string 1 speedbar-add-indicator regexp-quote " "] 5 (#$ . 84596)])
#@172 Return t if the file on this line is checked out of a version control system.
Parameter DEPTH is a string with the current depth of indentation of
the file being checked.
(defalias 'speedbar-check-vc-this-line #[(depth) "\306!\307 !\310`\311\312 w\210`\"\n P \313
X\203! \314\315\f\"\210\316\f!\205+ \317\n \",\207" [depth d f fn fulln speedbar-verbosity-level string-to-number speedbar-line-directory buffer-substring-no-properties "^ " line-end-position 2 dframe-message "Speedbar vc check...%s" file-writable-p speedbar-this-file-in-vc] 4 (#$ . 85550)])
#@144 Return t if we should bother checking DIRECTORY for version control files.
This can be overloaded to add new types of version control systems.
(defalias 'speedbar-vc-check-dir-p #[(directory) "\301\302\215\206\n \303\304\"\207" [directory t (byte-code "\304\211\203 \n@\305 P!\203 \306\307\211\"\210\nA\211\204 *\304\207" [vc-directory-exclusion-list vcd --dolist-tail-- directory nil file-exists-p throw t] 4) run-hook-with-args-until-success speedbar-vc-directory-enable-hook] 3 (#$ . 86118)])
#@245 Check to see if the file in DIRECTORY with NAME is in a version control system.
Automatically recognizes all VCs supported by VC mode. You can
optimize this function by overriding it and only doing those checks
that will occur on your system.
(defalias 'speedbar-this-file-in-vc #[(directory name) "\302\303 Q!\206 \304\305 #\207" [directory name vc-backend "/" run-hook-with-args speedbar-vc-in-control-hook] 4 (#$ . 86631)])
#@166 Scan all files in a directory, and for each see if there is an object.
See `speedbar-check-obj-this-line' and `speedbar-obj-alist' for how
to add more object types.
(defalias 'speedbar-check-objects #[nil "\212\203 q\210 \203 \n\305=\203 \306\n\247\203Q \nb\210\307 \204E \310\311\312\305#\203E `\313\314\315!!\211\2047 \316\317 \f@\320\fAQ\"\210)\202 \307 ?\205R \312\305\202R \305)\207" [speedbar-buffer speedbar-obj-do-check speedbar-obj-to-do-point ind speedbar-obj-indicator t 0 input-pending-p re-search-forward "^\\([0-9]+\\):\\s-*\\[[+-]\\] " nil speedbar-check-obj-this-line match-string 1 " " speedbar-add-indicator "\\|"] 6 (#$ . 87069)])
#@154 Return t if the file on this line has an associated object.
Parameter DEPTH is a string with the current depth of indentation of
the file being checked.
(defalias 'speedbar-check-obj-this-line #[(depth) "\306!\307 !\310`\311\312 w\210`\"\n P \313
X\203! \314\315\f\"\210\211 \203< \316@@\f\"\204< A\211\204) \205\214 \317\320\f!@AP!\205\214 \321\322\f!8\321\322\320\f!@AP!8 \211 @@W\204\202 @@U\203\210 A@A@W\203\210 @\202\213 A*-\207" [depth d f fn fulln speedbar-verbosity-level string-to-number speedbar-line-directory buffer-substring-no-properties "^ " line-end-position 2 dframe-message "Speedbar obj check...%s" string-match file-exists-p file-name-sans-extension 5 file-attributes speedbar-obj-alist oa date2 date1 speedbar-obj-indicator] 6 (#$ . 87737)])
#@32 Position the cursor on a line.
(defalias 'speedbar-position-cursor-on-line #[nil "`\301 \210\302\303!\203 \304\225Sb\202 b)\207" [oldpos beginning-of-line looking-at "[0-9]+:\\s-*..?.? " 0] 2 (#$ . 88542)])
#@232 Activate any speedbar buttons where the mouse is clicked.
This must be bound to a mouse event. A button is any location of text
with a mouse face that has a text property called `speedbar-function'.
Argument E is the click event.
(defalias 'speedbar-click #[(e) "\303 \210)\304\n!\207" [dframe-power-click speedbar-power-click e speedbar-do-function-pointer dframe-quick-mouse] 2 (#$ . 88760)])
#@154 Look under the cursor and examine the text properties.
From this extract the file/tag name, token, indentation level and call
a function if appropriate.
(defalias 'speedbar-do-function-pointer #[nil "\306\300\307\"\310`\311\"\310`\312\"\313`T\311\"\314`\311\" \315 \206 e\f\206% d\" \212\316 \210\317\320\321!\203; \315\322\224\322\225\"\202< \323!) \203K
\n#\210.\324 \207" [speedbar-frame fn tok tp np txt dframe-current-frame speedbar-mode get-text-property speedbar-function speedbar-token previous-single-property-change next-single-property-change buffer-substring-no-properties beginning-of-line string-to-number looking-at "[0-9]+" 0 "0" speedbar-position-cursor-on-line dent] 4 (#$ . 89165)])
#@114 Retrieve the text after prefix junk for the current line.
Optional argument P is where to start the search from.
(defalias 'speedbar-line-text #[(&optional p) "\212\203 b\210\301 \210\302\303!\205 \304\305\224\306\")\207" [p beginning-of-line looking-at "\\([0-9]+\\): *[[<{]?[-+?= ][]>}@()|] \\([^ \n]+\\)" get-text-property 2 speedbar-text] 3 (#$ . 89886)])
#@131 Retrieve the token information after the prefix junk for the current line.
Optional argument P is where to start the search from.
(defalias 'speedbar-line-token #[(&optional p) "\212\203 b\210\302 \210\303\304 \305Q!\205 \306\224b\210\307`\310\")\207" [p speedbar-indicator-regex beginning-of-line looking-at "\\([0-9]+\\): *[[<{]?[-+?= ][]>}@()|] \\([^ \n]+\\)\\(" "\\)?" 2 get-text-property speedbar-token] 4 (#$ . 90257)])
#@163 Retrieve the file or whatever from the line at point P.
The return value is a string representing the file. If it is a
directory, then it is the directory name.
(defalias 'speedbar-line-file #[(&optional p) "\305 \306\216\214~\210\307 !\211\205& \310\311\312!!\313 ! \314\f\nP!\205% \f\nP*,\207" [save-match-data-internal p f depth directory match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) speedbar-line-text string-to-number match-string 1 speedbar-line-directory file-exists-p] 4 (#$ . 90694)])
#@91 If FILE is displayed, go to this line and return t.
Otherwise do not move and return nil.
(defalias 'speedbar-goto-this-file #[(file) "\306\307!!\307 !G\310O`\311 \312\216eb\210 \203T \313=\204T \314\315 \"\203N \316\317 \" \311 \320\216\321\322\323
!\324Q\310\313#*\203H \317\225\310O\202J \310)\202 \313\211\204 \203` \325!\326\230\203r \203k \327 \210\313\202\225 \nb\210\310\202\225 \325! \321\330\323!\331 \332\260\310\313#\203\220 \327 \210\313\202\224 \nb\210\310),\207" [file default-directory dest directory save-match-data-internal pp file-name-directory expand-file-name nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) t string-match "^[/\\]?\\([^/\\]+\\)" match-string 1 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward "> " regexp-quote "$" file-name-nondirectory "" speedbar-position-cursor-on-line "] \\(" "\\)\\(" "\\)$" nd speedbar-indicator-regex] 7 (#$ . 91250)])
#@260 Retrieve the directory name associated with the current line.
This may require traversing backwards from DEPTH and combining the default
directory with these items. This function is replaceable in
`speedbar-mode-functions-list' as `speedbar-line-directory'.
(defalias 'speedbar-line-directory #[(&optional depth) "\214~\210\303\304!\211\203 !\202 \n*\207" [rf depth default-directory speedbar-fetch-replacement-function speedbar-line-directory] 3 (#$ . 92269)])
#@161 Retrieve the directory associated with the current line.
This may require traversing backwards from DEPTH and combining the default
directory with these items.
(defalias 'speedbar-files-line-directory #[(&optional depth) "\212\305 \306\216 \204 \307 \210\310\311!\210\312\313\314!!\315 S\211\316U\204S \317\320\321 \"\315\322#\2044 \323\324!\210\202L \310\325!\203C \326 \327\nQ\202L \310\330!\203L \326 S\211\202 \n\203f \331 \332P\n\"\203f \n\333\211\224O\f\nP,\207" [save-match-data-internal depth directory speedbar-indicator-regex default-directory match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) beginning-of-line looking-at "^\\([0-9]+\\):" string-to-number match-string 1 nil -1 re-search-backward format "^%d:" t error "Error building filename of tag" "[0-9]+:\\s-*<->\\s-+\\([^\n]+\\)" speedbar-line-text "/" "[0-9]+:\\s-*[-]\\s-+\\([^\n]+\\)" string-match "$" 0] 5 (#$ . 92744)])
#@57 Position the cursor on the line specified by DIRECTORY.
(defalias 'speedbar-directory-line #[(directory) "\306 \307\216\310\311 \"\203 \312\211\224O\313\312\314 !\315 ! \n \235\204* \316\317 \"\210eb\210
\203\\ \320\321\322 !\323 \324\260\325\313#\203\\ \326 \210\327\330!\210\331\332\312!!\n\333\f!\230?\325\210\202- \326 \210
.?\207" [save-match-data-internal directory pname fname depth nomatch match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "[/\\]$" 0 t file-name-nondirectory file-name-directory error "Internal Error: File %s not shown in speedbar" re-search-forward "[]>] \\(" regexp-quote "\\)\\(" "\\)?$" nil beginning-of-line looking-at "\\([0-9]+\\):" string-to-number match-string speedbar-line-directory speedbar-shown-directories speedbar-indicator-regex] 6 (#$ . 93701)])
#@60 Edit whatever tag or file is on the current speedbar line.
(defalias 'speedbar-edit-line #[nil "\212\300 \210\301\302\303 \304#\205 \305u\210\306 )\206 \306 \207" [beginning-of-line re-search-forward "[]>?}] [^ ]" line-end-position t -1 speedbar-do-function-pointer] 4 (#$ . 94571) nil])
#@83 Expand the line under the cursor.
With universal argument ARG, flush cached data.
(defalias 'speedbar-expand-line #[(&optional arg) "\303 \210\304\305\306\217*\207" [arg dframe-power-click speedbar-power-click beginning-of-line nil (byte-code "\300\301\302 \"\210\303u\210\304 \207" [re-search-forward ":\\s-*.\\+. " line-end-position -2 speedbar-do-function-pointer] 3) ((error (speedbar-position-cursor-on-line)))] 3 (#$ . 94867) "P"])
#@68 Expand the line under the cursor and flush any cached information.
(defalias 'speedbar-flush-expand-line #[nil "\300\301!\207" [speedbar-expand-line 1] 2 (#$ . 95315) nil])
#@37 Contract the line under the cursor.
(defalias 'speedbar-contract-line #[nil "\300 \210\301\302\303\217\207" [beginning-of-line nil (byte-code "\300\301\302 \"\210\303u\210\304 \207" [re-search-forward ":\\s-*.-. " line-end-position -2 speedbar-do-function-pointer] 3) ((error (speedbar-position-cursor-on-line)))] 3 (#$ . 95494) nil])
#@47 Contract or expand the line under the cursor.
(defalias 'speedbar-toggle-line-expansion #[nil "\300 \210\301\302\303\217\207" [beginning-of-line nil (byte-code "\300\301\302 \"\210\303u\210\304 \207" [re-search-forward ":\\s-*.[-+]. " line-end-position -2 speedbar-do-function-pointer] 3) ((error (speedbar-position-cursor-on-line)))] 3 (#$ . 95835) nil])
#@121 Expand the line under the cursor and all descendants.
Optional argument ARG indicates that any cache should be flushed.
(defalias 'speedbar-expand-line-descendants #[(&optional arg) "\302!\210\212\303\304!\210\305 ?\205 \305\306\307\217\210\202 *\207" [arg err speedbar-expand-line speedbar-next 1 nil (byte-code "\301!\210\302\303!\207" [arg speedbar-expand-line-descendants speedbar-restricted-next 1] 2) ((error (byte-code "\301\211\207" [err t] 2)))] 3 (#$ . 96198) "P"])
#@55 Expand the line under the cursor and all descendants.
(defalias 'speedbar-contract-line-descendants #[nil "\300 \207" [speedbar-contract-line] 1 (#$ . 96686) nil])
#@189 Speedbar click handler for filenames.
TEXT, the file will be displayed in the attached frame.
TOKEN is unused, but required by the click handler. INDENT is the
current indentation level.
(defalias 'speedbar-find-file #[(text _token indent) "\306!\307 \310 !\210\311\312!\210\313\n!\210)\314 \fP!\210\315 \210\311\316!\210\317
!\210)\320 \207" [indent cdd f speedbar-frame text dframe-update-speed speedbar-line-directory selected-frame dframe-select-attached-frame run-hooks speedbar-before-visiting-file-hook select-frame speedbar-find-file-in-frame speedbar-stealthy-updates speedbar-visiting-file-hook speedbar-set-timer dframe-maybee-jump-to-attached-frame] 3 (#$ . 96857)])
#@213 Speedbar click handler for directory names.
Clicking a directory will cause the speedbar to list files in
the subdirectory TEXT. TOKEN is an unused requirement. The
subdirectory chosen will be at INDENT level.
(defalias 'speedbar-dir-follow #[(text _token indent) "\306\307! P!\310P\311\312 \210)\313\f!\210\311\314 \207" [indent text default-directory speedbar-smart-directory-expand-flag speedbar-navigating-speed speedbar-last-selected-file expand-file-name speedbar-line-directory "/" nil speedbar-update-contents speedbar-set-timer speedbar-stealthy-updates] 3 (#$ . 97547)])
#@96 Delete text from point to indentation level INDENT or greater.
Handles end-of-sublist smartly.
(defalias 'speedbar-delete-subblock #[(indent) "\303\212\304\210\305u\210`\306\307!\203( \310\311\305!!\nV\203( m\204( \305y\210\312 \210\202 `|+\207" [inhibit-read-only start indent t nil 1 looking-at "^\\([0-9]+\\):" string-to-number match-string beginning-of-line] 3 (#$ . 98140)])
#@245 Speedbar click handler for directory expand button.
Clicking this button expands or contracts a directory. TEXT is the
button clicked which has either a + or -. TOKEN is the directory to be
expanded. INDENT is the current indentation level.
(defalias 'speedbar-dired #[(text token indent) "\306\307\"\2031 \310\311 !\n\312Q! B\313\314!\210\315 \210\212\316\210\317u\210\320 \321\311 !\n\312Q T\"\210*\202 \306\322\"\203{ \315 \210 \316\310\311 !\nP! \211 \203k \306\323\324
!P @\"\204b @B A\211 \204M \237+\313\325!\210\326 !\210\202 \327\330!\210\331 \210\212\332 )\207" [text indent token speedbar-shown-directories inhibit-read-only td string-match "+" expand-file-name speedbar-line-directory "/" speedbar-change-expand-button-char 45 speedbar-reset-scanners nil 1 t speedbar-default-directory-list "-" "^" regexp-quote 43 speedbar-delete-subblock error "Ooops... not sure what to do" speedbar-center-buffer-smartly speedbar-stealthy-updates newl oldl] 6 (#$ . 98532)])
#@176 Speedbar click handler for default directory buttons.
TEXT is the button clicked on. TOKEN is the directory to follow.
INDENT is the current indentation level and is unused.
(defalias 'speedbar-directory-buttons-follow #[(_text token _indent) "\303\304\"\203 \305P\202 \306 \210\307\n!\207" [token default-directory speedbar-navigating-speed string-match "^[A-z]:$" "/" speedbar-update-contents speedbar-set-timer] 3 (#$ . 99538)])
#@227 The cursor is on a selected line. Expand the tags in the specified file.
The parameter TEXT and TOKEN are required, where TEXT is the button
clicked, and TOKEN is the file to expand. INDENT is the current
indentation level.
(defalias 'speedbar-tag-file #[(text token indent) "\306\307\"\2037 \310\311 !\nP!\312 !\211 \204 \313\314!\210\2023 \313\315!\210\316 \212\317\210\320u\210\f@ \fA\"\210**\202M \306\321\"\203I \313\322!\210\323 !\210\202M \324\325!\210\326 \207" [text indent token fn lst inhibit-read-only string-match "+" expand-file-name speedbar-line-directory speedbar-fetch-dynamic-tags speedbar-change-expand-button-char 63 45 t nil 1 "-" 43 speedbar-delete-subblock error "Ooops... not sure what to do" speedbar-center-buffer-smartly] 4 (#$ . 99985)])
#@97 For the tag TEXT in a file TOKEN, go to that position.
INDENT is the current indentation level.
(defalias 'speedbar-tag-find #[(_text token indent) "\306!\307 \310 !\210\311\312!\210\313\n!\210)\314 !\210\212\315 \210)\316\f!\210
b\210\311\317!\210\320 )\207" [indent file f speedbar-frame dframe-update-speed token speedbar-line-directory selected-frame dframe-select-attached-frame run-hooks speedbar-before-visiting-tag-hook select-frame speedbar-find-file-in-frame speedbar-stealthy-updates speedbar-set-timer speedbar-visiting-tag-hook dframe-maybee-jump-to-attached-frame] 2 (#$ . 100766)])
#@217 Expand a tag sublist. Imenu will return sub-lists of specialized tag types.
Etags does not support this feature. TEXT will be the button string.
TOKEN will be the list, and INDENT is the current indentation level.
(defalias 'speedbar-tag-expand #[(text token indent) "\304\305\"\203 \306\307!\210\310\212\311\210\312u\210\313\n \314\315$\210*\2025 \304\316\"\2031 \306\317!\210\320\n!\210\2025 \321\322!\210\323 \207" [text inhibit-read-only indent token string-match "+" speedbar-change-expand-button-char 45 t nil 1 speedbar-insert-generic-list speedbar-tag-expand speedbar-tag-find "-" 43 speedbar-delete-subblock error "Ooops... not sure what to do" speedbar-center-buffer-smartly] 5 (#$ . 101373)])
#@259 Specify how to select a frame for displaying a file.
A value of 'attached means to use the attached frame (the frame
that speedbar was started from.) A number such as 1 or -1 means to
pass that number to `other-frame' while selecting a frame from speedbar.
(custom-declare-variable 'speedbar-select-frame-method ''attached '(#$ . 102092) :group 'speedbar :type 'sexp)
#@147 This will load FILE into the speedbar attached frame.
If the file is being displayed in a different frame already, then raise that
frame instead.
(defalias 'speedbar-find-file-in-frame #[(file) "\306!\307 \310\"\211\203 \311\n!\210\312\313\n!!\202< \203( \314 \311\315 !!)\202<
\247\2034 \316
!\210\2029 \317!\210\320 !*\207" [file buff bwin dframe-power-click pop-up-frames speedbar-select-frame-method find-file-noselect get-buffer-window 0 select-window raise-frame window-frame t display-buffer other-frame dframe-select-attached-frame switch-to-buffer speedbar-frame] 4 (#$ . 102468)])
#@170 Recenter a speedbar buffer so the current indentation level is all visible.
This assumes that the cursor is on a file, or tag of a file which the user is
interested in.
(defalias 'speedbar-center-buffer-smartly #[nil "\306 r\307\216\310\311 \312\"!\210 q\210\313ed\"\314\315 !SX\203, `eb\210\316\317!\210\nb)\202\320\211\211\211\211 \212\321 \210\322\323!\203M \324\325\317\224\317\225\"!\202N \317 \326\327 \")\212\320\210\330\f\320\312#\203i ` \202l e \212\320\210`\331\f\320\312#\204\217 \317Y\203\217 S \326\327 \"\202r ` U\204\232 `\202\234 d*\313
\"\314\315 !S` \211 ! V\203\277 b\210\316\332!\210\202\333 \315 \"\203\320 \333
\315 \"\204 b\210\314\315 !!Z\334\245\313 d\" \"\211 #\"\\\314\315 !W\203\f\335\314\315 !\"\332##V\203\f\335\314\315 !\"\332##\316#!\210*\nb.+\207" [save-selected-window--state speedbar-buffer cp p exp end internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) select-window get-buffer-window t count-lines window-height selected-window recenter 0 nil beginning-of-line looking-at "[0-9]+" string-to-number buffer-substring-no-properties format "^%d:" re-search-backward re-search-forward 1 pos-visible-in-window-p 2 - start depth wl nl lte newcent] 6 (#$ . 103074)])
#@235 Return a list of tags generated dynamically from FILE.
This uses the entries in `speedbar-dynamic-tags-function-list'
to find the proper tags. It is up to each of those individual
functions to do caching and flushing if appropriate.
(defalias 'speedbar-fetch-dynamic-tags #[(file) "\212\304!\203\f \304!q\210 \305\n\305=\2038 \2038 \306 @@!\203* @@!\202+ \305\211\305=\203 A\202 \n\305=?\205D @A\nB+\207" [file speedbar-dynamic-tags-function-list ret dtf get-file-buffer t fboundp] 3 (#$ . 104385)])
(byte-code "\203 \301\302\303\"\210\301\207" [speedbar-use-imenu-flag defalias speedbar-fetch-dynamic-imenu #[(file) "\303\304!\210\305!q\210 \203 \306\306\307\310\217\207" [file dframe-power-click imenu--index-alist require imenu find-file-noselect nil (byte-code "\302\303! \203 \304\305!\306\"\202 )\207" [index-alist speedbar-sort-tags imenu--make-index-alist t sort copy-alist #[(a b) "@ @\231\207" [a b] 2]] 3) ((error t))] 3 "Load FILE into a buffer, and generate tags using Imenu.\nReturns the tag list, or t for an error."]] 3)
#@464 Associations of file extensions and expressions for extracting tags.
To add a new file type, you would want to add a new association to the
list, where the car is the file match, and the cdr is the way to
extract an element from the tags output. If the output is complex,
use a function symbol instead of regexp. The function should expect
to be at the beginning of a line in the etags buffer.
This variable is ignored if `speedbar-use-imenu-flag' is non-nil.
(defvar speedbar-fetch-etags-parse-list '(("\\.\\([cChH]\\|c\\+\\+\\|cpp\\|cc\\|hh\\|java\\|cxx\\|hxx\\)\\'" . speedbar-parse-c-or-c++tag) ("^\\.emacs$\\|.\\(el\\|l\\|lsp\\)\\'" . "def[^i]+\\s-+\\(\\(\\w\\|[-_]\\)+\\)\\s-*") ("\\.tex\\'" . speedbar-parse-tex-string) ("\\.p\\'" . "\\(\\(FUNCTION\\|function\\|PROCEDURE\\|procedure\\)\\s-+\\([a-zA-Z0-9_.:]+\\)\\)\\s-*(?^?")) (#$ . 105454))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\207" [custom-declare-variable speedbar-fetch-etags-command "etags" "Command used to create an etags file.\nThis variable is ignored if `speedbar-use-imenu-flag' is t." :group speedbar :type string speedbar-fetch-etags-arguments '("-D" "-I" "-o" "-") "List of arguments to use with `speedbar-fetch-etags-command'.\nThis creates an etags output buffer. Use `speedbar-toggle-etags' to\nmodify this list conveniently.\nThis variable is ignored if `speedbar-use-imenu-flag' is t." (choice (const nil) (repeat :tag "List of arguments" string))] 8)
#@364 Toggle FLAG in `speedbar-fetch-etags-arguments'.
FLAG then becomes a member of etags command line arguments. If flag
is "sort", then toggle the value of `speedbar-sort-tags'. If its
value is "show" then toggle the value of
`speedbar-show-unknown-files'.
This function is a convenience function for XEmacs menu created by
Farzin Guilak <farzin@protocol.com>.
(defalias 'speedbar-toggle-etags #[(flag) "\304\232\203 ?\211\207\305\232\203 \n?\211\207\306\232\204( \307\232\204( \310\232\203: \235\2035 \311 \"\211\207\312\303\"\207\313\207" [flag speedbar-sort-tags speedbar-show-unknown-files speedbar-fetch-etags-arguments "sort" "show" "-C" "-S" "-D" delete add-to-list nil] 3 (#$ . 106943) nil])
#@124 For FILE, run etags and create a list of symbols extracted.
Each symbol will be associated with its line position in FILE.
(defalias 'speedbar-fetch-dynamic-etags #[(file) "\306\211\216\212\307\310!\203 \311\310!\210\312 X\203 \313\314!\210\315\310!q\210\316\317\n\306p\306\320 \fC\"&\210eb\210\312 X\2039 \313\314!\210
\306 \204` \203` \321@@\f\"\203X @A\202? A*\211 \203\227 \306 \315\310!q\210\212\306\210m)\204\223 \212\322!)\203\215 B\312y\210\202r )\202\233 \313\323!\210+\203\250 \324\325\"\202\253 \326!)\207" [newlist speedbar-verbosity-level speedbar-fetch-etags-command speedbar-fetch-etags-arguments file speedbar-fetch-etags-parse-list nil get-buffer "*etags tmp*" kill-buffer 1 dframe-message "Fetching etags..." get-buffer-create apply call-process append string-match speedbar-extract-one-symbol "Sorry, no support for a file of that extension" sort #[(a b) "@ @\231\207" [a b] 2] reverse ans exprlst expr tnl speedbar-sort-tags] 10 (#$ . 107667)])
#@165 At point, return nil, or one alist in the form (SYMBOL . POSITION).
The line should contain output from etags. Parse the output using the
regular expression EXPR.
(defalias 'speedbar-extract-one-symbol #[(expr) ";\203 \212\304\305 \306#)\205 \307\310\224\310\225\"\202 \304\311\305 \306#\211\2037 \2037 \312\307\313\224\313\225\"!T\2028 \314)\211\314U?\205D B*\207" [expr sym j pos re-search-forward line-end-position t buffer-substring-no-properties 1 "[]\\([0-9]+\\),\\([0-9]+\\)" string-to-number 2 0] 5 (#$ . 108680)])
#@59 Parse a C or C++ tag, which tends to be a little complex.
(defalias 'speedbar-parse-c-or-c++tag #[nil "\212\301 \302\303\304#\203 \305\306\224\306\225\"\2028 \302\307\304#\203& \305\306\224\306\225\"\2028 \302\310\304#\2037 \305\306\224\306\225\"\2028 \311*\207" [bound line-end-position re-search-forward "\\([^]+\\)" t buffer-substring-no-properties 1 "\\<\\([^ ]+\\)\\s-+new(" "\\<\\([^ (]+\\)\\s-*(" nil] 4 (#$ . 109225)])
#@56 Parse a Tex string. Only find data which is relevant.
(defalias 'speedbar-parse-tex-string #[nil "\212\301 \302\303\304#\203 \305\306\224\306\225\"\202 \307*\207" [bound line-end-position re-search-forward "\\(\\(sub\\)*section\\|chapter\\|cite\\)\\s-*{[^}]*}?" t buffer-substring-no-properties 0 nil] 4 (#$ . 109669)])
#@47 Keymap used when in the buffers display mode.
(defvar speedbar-buffers-key-map nil (#$ . 110001))
(byte-code "\2047 \301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\307#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\301\207" [speedbar-buffers-key-map speedbar-make-specialized-keymap define-key "e" speedbar-edit-line "
" "+" speedbar-expand-line "=" "-" speedbar-contract-line " " speedbar-toggle-line-expansion "k" speedbar-buffer-kill-buffer "r" speedbar-buffer-revert-buffer] 4)
#@57 Menu item elements shown when displaying a buffer list.
(defvar speedbar-buffer-easymenu-definition '(["Jump to buffer" speedbar-edit-line t] ["Expand File Tags" speedbar-expand-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.\\+. "))] ["Flush Cache & Expand" speedbar-flush-expand-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.\\+. "))] ["Contract File Tags" speedbar-contract-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.-. "))] "----" ["Kill Buffer" speedbar-buffer-kill-buffer (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.[-+?]. "))] ["Revert Buffer" speedbar-buffer-revert-buffer (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.[-+?]. "))]) (#$ . 110542))
#@138 Create speedbar buttons based on the buffers currently loaded.
DIRECTORY is the directory of the currently active buffer, and ZERO is 0.
(defalias 'speedbar-buffer-buttons #[(_directory _zero) "\300\301!\207" [speedbar-buffer-buttons-engine nil] 2 (#$ . 111288)])
#@138 Create speedbar buttons based on the buffers currently loaded.
DIRECTORY is the directory of the currently active buffer, and ZERO is 0.
(defalias 'speedbar-buffer-buttons-temp #[(_directory _zero) "\300\301!\207" [speedbar-buffer-buttons-engine t] 2 (#$ . 111559)])
#@110 Create speedbar buffer buttons.
If TEMP is non-nil, then clicking on a buffer restores the previous display.
(defalias 'speedbar-buffer-buttons-engine #[(temp) "\306\307!\210\310 \311\211\203_ \312\313\314 @!\"\204X \312\n\314 @!\"\211\203' \315\202( \316 \205. \317 r @q\210\320 ) \321\322\f
\205F \323!\314 @!\324 \325\326& \210\327 @!\210, A\211\204
\310 \306\330!\210 \203\231 \312\331\314 @!\"\203\222 @ =\204\222 \321\322\316\332\211\314 @!\324 \325\326& \210\327 @!\210 A\211\204j \310 \211*\207" [case-fold-search bl speedbar-file-regexp known expchar fn speedbar-insert-separator "Active Buffers:" buffer-list t string-match "^[ *]" buffer-name 43 63 speedbar-tag-file buffer-file-name speedbar-make-tag-line bracket file-name-nondirectory speedbar-buffer-click speedbar-file-face 0 speedbar-buffers-tail-notes "Scratch Buffers:" "^\\*" nil fname temp speedbar-buffer] 11 (#$ . 111833)])
#@89 Add a note to the end of the last tag line.
Argument BUFFER is the buffer being tested.
(defalias 'speedbar-buffers-tail-notes #[(buffer) "rq\210 )\205 \302\303\304\211\211\211\305&\207" [buffer buffer-read-only speedbar-insert-button "%" nil t] 7 (#$ . 112754)])
#@67 Display information about the current buffer on the current line.
(defalias 'speedbar-buffers-item-info #[nil "\303 \2069 \304 \211\205 \305!\211\2058 \306\307\310 !\203 \311\202! \312r q\210\n)r q\210\313 )\314 !\2066 \315&*\207" [item buffer major-mode speedbar-item-info-tag-helper speedbar-line-text get-buffer dframe-message "%s%s %S %d %s" buffer-modified-p "* " "" buffer-size buffer-file-name "<No file>"] 9 (#$ . 113027)])
#@145 Fetch the directory of the file (buffer) specified on the current line.
Optional argument DEPTH specifies the current depth of the back search.
(defalias 'speedbar-buffers-line-directory #[(&optional _depth) "\212\304\210`\305\306\304\307#\2055 \310 \211\205 \311 !\211\2054 \312 =\2031 r\nq\210 )\2064 \313\2024 \314\n!**\207" [start bn buffer default-directory nil re-search-backward "^0:" t speedbar-line-text get-buffer line-end-position "" buffer-file-name] 5 (#$ . 113473)])
#@111 When the users clicks on a buffer-button in speedbar.
TEXT is the buffer's name, TOKEN and INDENT are unused.
(defalias 'speedbar-buffer-click #[(text token _indent) "\203
\306\307\310\n!!)\207\311 !\210\312\n!\210\f\205 \313
!\207" [dframe-power-click pop-up-frames text speedbar-frame token speedbar-previously-used-expansion-list-name t select-window display-buffer dframe-select-attached-frame switch-to-buffer speedbar-change-initial-expansion-list] 3 (#$ . 113967)])
#@58 Kill the buffer the cursor is on in the speedbar buffer.
(defalias 'speedbar-buffer-kill-buffer #[nil "\212\304 \305!\203& \306\307\"\310 \204 \311=\206 \312\n!*\203& \313!\210\314 *\207" [text deleting prompt speedbar-query-confirmation-method speedbar-line-text get-buffer format "Kill buffer %s? " nil none-but-delete dframe-y-or-n-p kill-buffer speedbar-refresh] 3 (#$ . 114450) nil])
#@60 Revert the buffer the cursor is on in the speedbar buffer.
(defalias 'speedbar-buffer-revert-buffer #[nil "\212\301 \210\302\303\304 \305#\205\" \306u\210`\304 {\307!\205! q\210\310\305!))\207" [text beginning-of-line re-search-forward "[]>?}] [^ ]" line-end-position t -1 get-buffer revert-buffer] 4 (#$ . 114854) nil])
#@69 Overlay used for highlighting the most recently jumped to tag line.
(defvar speedbar-highlight-one-tag-line nil (#$ . 115184))
#@73 Highlight the current line, unhighlighting a previously jumped to line.
(defalias 'speedbar-highlight-one-tag-line #[nil "\301 \210\302\303 \304 T\"\305\306\307#\210\310\311\301\"\207" [speedbar-highlight-one-tag-line speedbar-unhighlight-one-tag-line speedbar-make-overlay line-beginning-position line-end-position speedbar-overlay-put face speedbar-highlight-face add-hook pre-command-hook] 4 (#$ . 115317)])
#@45 Unhighlight the currently highlighted line.
(defalias 'speedbar-unhighlight-one-tag-line #[nil "\205 \302=?\205 \303!\210\304\305\306\307\"\207" [speedbar-highlight-one-tag-line this-command handle-switch-frame speedbar-delete-overlay nil remove-hook pre-command-hook speedbar-unhighlight-one-tag-line] 3 (#$ . 115736)])
#@67 Recenter the current buffer so point is on the top of the window.
(defalias 'speedbar-recenter-to-top #[nil "\300\301!\207" [recenter 1] 2 (#$ . 116069)])
#@70 Recenter the current buffer so point is in the center of the window.
(defalias 'speedbar-recenter #[nil "\300\301\302 !\303\245!\207" [recenter window-height selected-window 2] 3 (#$ . 116230)])
(byte-code "\303\304\305\306\307\310%\210\303\311\312\313\307\310%\210\303\314\315\316\307\310%\210\303\317\320\321\307\310%\210\303\322\323\324\307\310%\210\303\325\326\327\307\310%\210\303\330\331\332\307\310%\210\333\334\335\"\210\336\300!\203g \203g \337=\203R \340\202g @\341=\203b \342\300\343\337#\210\202g \344\343\"\345\346\347\350#\210\351\350\211\203\223 \n@\346 N\203\214 \347 N\204\214 \352\347 \346 N#\210\nA\211\204u *\353\346\347\354#\210\355\356\357\350#\210\360\356\357\354#\210\355\361\362\350#\210\360\361\362\354#\210\355\363\364\350#\210\360\363\364\354#\210\355\365\366\350#\210\360\365\366\354#\210\355\363\364\350#\210\360\363\364\354#\210\367\370!\210\371\372!\207" [font-lock-global-modes prop --dolist-tail-- custom-declare-face speedbar-button-face ((((class color) (background light)) :foreground "green4") (((class color) (background dark)) :foreground "green3")) "Speedbar face for +/- buttons." :group speedbar-faces speedbar-file-face ((((class color) (background light)) :foreground "cyan4") (((class color) (background dark)) :foreground "cyan") (t :weight bold)) "Speedbar face for file names." speedbar-directory-face ((((class color) (background light)) :foreground "blue4") (((class color) (background dark)) :foreground "light blue")) "Speedbar face for directory names." speedbar-tag-face ((((class color) (background light)) :foreground "brown") (((class color) (background dark)) :foreground "yellow")) "Speedbar face for tags." speedbar-selected-face ((((class color) (background light)) :foreground "red" :underline t) (((class color) (background dark)) :foreground "red" :underline t) (t :underline t)) "Speedbar face for the file in the active window." speedbar-highlight-face ((((class color) (background light)) :background "green") (((class color) (background dark)) :background "sea green")) "Speedbar face for highlighting buttons with the mouse." speedbar-separator-face ((((class color) (background light)) :background "blue" :foreground "white" :overline "gray") (((class color) (background dark)) :background "blue" :foreground "white" :overline "gray") (((class grayscale monochrome) (background light)) :background "black" :foreground "white" :overline "white") (((class grayscale monochrome) (background dark)) :background "white" :foreground "black" :overline "black")) "Speedbar face for separator labels in a display." add-hook edebug-setup-hook #[nil "\300\301\302\303#\207" [put speedbar-with-writable edebug-form-spec def-body] 4] boundp t (not speedbar-mode) not add-to-list speedbar-mode delq defvaralias speedbar-ignored-path-regexp speedbar-ignored-directory-regexp nil (saved-value saved-variable-comment) put make-obsolete-variable "22.1" defalias speedbar-add-ignored-path-regexp speedbar-add-ignored-directory-regexp make-obsolete speedbar-line-path speedbar-line-directory speedbar-buffers-line-path speedbar-buffers-line-directory speedbar-path-line speedbar-directory-line provide speedbar run-hooks speedbar-load-hook] 7)