Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
538
B
-rw-r--r--
abbrev.elc
29.69
KB
-rw-r--r--
abbrevlist.elc
1.12
KB
-rw-r--r--
add-log.elc
35.21
KB
-rw-r--r--
align.elc
38.38
KB
-rw-r--r--
allout.elc
208.3
KB
-rw-r--r--
ansi-color.elc
16.3
KB
-rw-r--r--
apropos.elc
31.93
KB
-rw-r--r--
arc-mode.elc
54.72
KB
-rw-r--r--
array.elc
25.83
KB
-rw-r--r--
autoarg.elc
5.98
KB
-rw-r--r--
autoinsert.elc
12.01
KB
-rw-r--r--
autorevert.elc
18.25
KB
-rw-r--r--
avoid.elc
10.17
KB
-rw-r--r--
battery.elc
17.98
KB
-rw-r--r--
bindings.elc
39.04
KB
-rw-r--r--
bookmark.elc
55.9
KB
-rw-r--r--
bs.elc
48.34
KB
-rw-r--r--
buff-menu.elc
28
KB
-rw-r--r--
button.elc
13.92
KB
-rw-r--r--
calculator.elc
49.18
KB
-rw-r--r--
case-table.elc
4.42
KB
-rw-r--r--
cdl.elc
1.26
KB
-rw-r--r--
chistory.elc
5.75
KB
-rw-r--r--
cmuscheme.elc
17.43
KB
-rw-r--r--
comint.elc
100.97
KB
-rw-r--r--
compare-w.elc
10.98
KB
-rw-r--r--
complete.elc
23.62
KB
-rw-r--r--
completion.elc
45.06
KB
-rw-r--r--
composite.elc
29.39
KB
-rw-r--r--
cus-dep.elc
5.04
KB
-rw-r--r--
cus-edit.elc
129.67
KB
-rw-r--r--
cus-face.elc
10.46
KB
-rw-r--r--
cus-load.el
63.45
KB
-rw-r--r--
cus-start.elc
10.67
KB
-rw-r--r--
cus-theme.elc
13.7
KB
-rw-r--r--
custom.elc
36.46
KB
-rw-r--r--
cvs-status.elc
23
KB
-rw-r--r--
dabbrev.elc
23.08
KB
-rw-r--r--
delim-col.elc
8.41
KB
-rw-r--r--
delsel.elc
5.24
KB
-rw-r--r--
descr-text.elc
20.69
KB
-rw-r--r--
desktop.elc
34.52
KB
-rw-r--r--
dframe.elc
22.51
KB
-rw-r--r--
diff-mode.elc
55.58
KB
-rw-r--r--
diff.elc
5.51
KB
-rw-r--r--
dired-aux.elc
67.5
KB
-rw-r--r--
dired-x.elc
44.96
KB
-rw-r--r--
dired.elc
96.48
KB
-rw-r--r--
dirtrack.elc
7.39
KB
-rw-r--r--
disp-table.elc
8.33
KB
-rw-r--r--
dnd.elc
7.04
KB
-rw-r--r--
doc-view.elc
36.01
KB
-rw-r--r--
dos-fns.elc
5.53
KB
-rw-r--r--
dos-vars.elc
1.24
KB
-rw-r--r--
dos-w32.elc
11.12
KB
-rw-r--r--
double.elc
4.13
KB
-rw-r--r--
ebuff-menu.elc
9.11
KB
-rw-r--r--
echistory.elc
4.93
KB
-rw-r--r--
ediff-diff.elc
35.54
KB
-rw-r--r--
ediff-help.elc
11.47
KB
-rw-r--r--
ediff-hook.elc
5.89
KB
-rw-r--r--
ediff-init.elc
60.88
KB
-rw-r--r--
ediff-merg.elc
10.04
KB
-rw-r--r--
ediff-mult.elc
58.31
KB
-rw-r--r--
ediff-ptch.elc
18.63
KB
-rw-r--r--
ediff-util.elc
118.44
KB
-rw-r--r--
ediff-vers.elc
4.74
KB
-rw-r--r--
ediff-wind.elc
30.56
KB
-rw-r--r--
ediff.elc
36.28
KB
-rw-r--r--
edmacro.elc
21.45
KB
-rw-r--r--
ehelp.elc
11.03
KB
-rw-r--r--
electric.elc
2.81
KB
-rw-r--r--
elide-head.elc
2.8
KB
-rw-r--r--
emacs-lock.elc
2.77
KB
-rw-r--r--
emerge.elc
80.16
KB
-rw-r--r--
env.elc
5.69
KB
-rw-r--r--
epa-dired.elc
1.87
KB
-rw-r--r--
epa-file.elc
6.77
KB
-rw-r--r--
epa-hook.elc
4.28
KB
-rw-r--r--
epa-mail.elc
7.04
KB
-rw-r--r--
epa.elc
34.03
KB
-rw-r--r--
epg-config.elc
4.01
KB
-rw-r--r--
epg.elc
85.05
KB
-rw-r--r--
expand.elc
9.42
KB
-rw-r--r--
ezimage.elc
9.2
KB
-rw-r--r--
face-remap.elc
13.15
KB
-rw-r--r--
facemenu.elc
23.61
KB
-rw-r--r--
faces.elc
81.51
KB
-rw-r--r--
ffap.elc
46.14
KB
-rw-r--r--
filecache.elc
16.1
KB
-rw-r--r--
files.elc
175.25
KB
-rw-r--r--
filesets.elc
73.03
KB
-rw-r--r--
find-cmd.elc
4.94
KB
-rw-r--r--
find-dired.elc
7.4
KB
-rw-r--r--
find-file.elc
18.68
KB
-rw-r--r--
find-lisp.elc
7.42
KB
-rw-r--r--
finder-inf.el
93.47
KB
-rw-r--r--
finder.elc
12.11
KB
-rw-r--r--
flow-ctrl.elc
2.44
KB
-rw-r--r--
foldout.elc
7.6
KB
-rw-r--r--
follow.elc
37.11
KB
-rw-r--r--
font-core.elc
12.92
KB
-rw-r--r--
font-lock.elc
61.1
KB
-rw-r--r--
format-spec.elc
1.98
KB
-rw-r--r--
format.elc
27.73
KB
-rw-r--r--
forms-d2.el
3.13
KB
-rw-r--r--
forms-pass.el
742
B
-rw-r--r--
forms.elc
35.13
KB
-rw-r--r--
frame.elc
48.66
KB
-rw-r--r--
fringe.elc
8.01
KB
-rw-r--r--
generic-x.elc
44.25
KB
-rw-r--r--
gs.elc
3.93
KB
-rw-r--r--
help-at-pt.elc
11.27
KB
-rw-r--r--
help-fns.elc
21.77
KB
-rw-r--r--
help-macro.elc
4.37
KB
-rw-r--r--
help-mode.elc
19.38
KB
-rw-r--r--
help.elc
40.91
KB
-rw-r--r--
hex-util.elc
1.48
KB
-rw-r--r--
hexl.elc
32.06
KB
-rw-r--r--
hi-lock.elc
23.27
KB
-rw-r--r--
hilit-chg.elc
28.02
KB
-rw-r--r--
hippie-exp.elc
23.39
KB
-rw-r--r--
hl-line.elc
7.71
KB
-rw-r--r--
ibuf-ext.elc
54.62
KB
-rw-r--r--
ibuf-macs.elc
11.65
KB
-rw-r--r--
ibuffer.elc
91.96
KB
-rw-r--r--
icomplete.elc
10.36
KB
-rw-r--r--
ido.elc
110.93
KB
-rw-r--r--
ielm.elc
17.67
KB
-rw-r--r--
iimage.elc
4.06
KB
-rw-r--r--
image-dired.elc
82.24
KB
-rw-r--r--
image-file.elc
6.11
KB
-rw-r--r--
image-mode.elc
14.54
KB
-rw-r--r--
image.elc
17.09
KB
-rw-r--r--
imenu.elc
24.8
KB
-rw-r--r--
indent.elc
17
KB
-rw-r--r--
info-look.elc
26.13
KB
-rw-r--r--
info-xref.elc
7.04
KB
-rw-r--r--
info.elc
119.11
KB
-rw-r--r--
informat.elc
9.69
KB
-rw-r--r--
isearch.elc
76.23
KB
-rw-r--r--
isearchb.elc
4.92
KB
-rw-r--r--
iswitchb.elc
32.11
KB
-rw-r--r--
jit-lock.elc
17.93
KB
-rw-r--r--
jka-cmpr-hook.elc
11.67
KB
-rw-r--r--
jka-compr.elc
12.64
KB
-rw-r--r--
json.elc
13.04
KB
-rw-r--r--
kermit.elc
2.96
KB
-rw-r--r--
kmacro.elc
31.07
KB
-rw-r--r--
ldefs-boot.el
1.17
MB
-rw-r--r--
ledit.elc
4.74
KB
-rw-r--r--
linum.elc
9.56
KB
-rw-r--r--
loaddefs.el
1.17
MB
-rw-r--r--
loadhist.elc
8.65
KB
-rw-r--r--
loadup.el
12.67
KB
-rw-r--r--
locate.elc
17.81
KB
-rw-r--r--
log-edit.elc
24.93
KB
-rw-r--r--
log-view.elc
14.06
KB
-rw-r--r--
longlines.elc
14.94
KB
-rw-r--r--
lpr.elc
8.61
KB
-rw-r--r--
ls-lisp.elc
17.35
KB
-rw-r--r--
macros.elc
6.99
KB
-rw-r--r--
makesum.elc
2.16
KB
-rw-r--r--
man.elc
40.03
KB
-rw-r--r--
master.elc
4.52
KB
-rw-r--r--
mb-depth.elc
3.12
KB
-rw-r--r--
md4.elc
8.14
KB
-rw-r--r--
menu-bar.elc
67.01
KB
-rw-r--r--
midnight.elc
8.92
KB
-rw-r--r--
minibuf-eldef.elc
5.15
KB
-rw-r--r--
minibuffer.elc
42.75
KB
-rw-r--r--
misc.elc
3.67
KB
-rw-r--r--
misearch.elc
8.96
KB
-rw-r--r--
mouse-copy.elc
4.07
KB
-rw-r--r--
mouse-drag.elc
7.33
KB
-rw-r--r--
mouse-sel.elc
20.93
KB
-rw-r--r--
mouse.elc
60.03
KB
-rw-r--r--
msb.elc
27.27
KB
-rw-r--r--
mwheel.elc
9.41
KB
-rw-r--r--
newcomment.elc
32.76
KB
-rw-r--r--
novice.elc
4.75
KB
-rw-r--r--
outline.elc
34.54
KB
-rw-r--r--
paren.elc
6.43
KB
-rw-r--r--
password-cache.elc
3.58
KB
-rw-r--r--
patcomp.el
775
B
-rw-r--r--
paths.el
7.28
KB
-rw-r--r--
pcmpl-cvs.elc
6
KB
-rw-r--r--
pcmpl-gnu.elc
8.21
KB
-rw-r--r--
pcmpl-linux.elc
3.17
KB
-rw-r--r--
pcmpl-rpm.elc
7.5
KB
-rw-r--r--
pcmpl-unix.elc
5.44
KB
-rw-r--r--
pcomplete.elc
34.1
KB
-rw-r--r--
pcvs-defs.elc
16.27
KB
-rw-r--r--
pcvs-info.elc
25.83
KB
-rw-r--r--
pcvs-parse.elc
15.34
KB
-rw-r--r--
pcvs-util.elc
26.8
KB
-rw-r--r--
pcvs.elc
85.52
KB
-rw-r--r--
pgg-def.elc
2.78
KB
-rw-r--r--
pgg-gpg.elc
13.09
KB
-rw-r--r--
pgg-parse.elc
13.45
KB
-rw-r--r--
pgg-pgp.elc
7.64
KB
-rw-r--r--
pgg-pgp5.elc
7.68
KB
-rw-r--r--
pgg.elc
18.01
KB
-rw-r--r--
printing.elc
157.56
KB
-rw-r--r--
proced.elc
57.95
KB
-rw-r--r--
ps-bdf.elc
13.34
KB
-rw-r--r--
ps-def.elc
3.09
KB
-rw-r--r--
ps-mule.elc
36.17
KB
-rw-r--r--
ps-print.elc
145.59
KB
-rw-r--r--
ps-samp.elc
5.5
KB
-rw-r--r--
recentf.elc
49.04
KB
-rw-r--r--
rect.elc
10.79
KB
-rw-r--r--
register.elc
10.69
KB
-rw-r--r--
repeat.elc
6.05
KB
-rw-r--r--
replace.elc
55.02
KB
-rw-r--r--
reposition.elc
2.88
KB
-rw-r--r--
reveal.elc
6.61
KB
-rw-r--r--
rfn-eshadow.elc
7.12
KB
-rw-r--r--
rot13.elc
2.6
KB
-rw-r--r--
ruler-mode.elc
22.48
KB
-rw-r--r--
s-region.elc
3.3
KB
-rw-r--r--
savehist.elc
10.57
KB
-rw-r--r--
saveplace.elc
7.51
KB
-rw-r--r--
sb-image.elc
2.51
KB
-rw-r--r--
scroll-all.elc
4.05
KB
-rw-r--r--
scroll-bar.elc
11.47
KB
-rw-r--r--
scroll-lock.elc
4.64
KB
-rw-r--r--
select.elc
11.8
KB
-rw-r--r--
server.elc
39.79
KB
-rw-r--r--
ses.elc
87.39
KB
-rw-r--r--
sha1.elc
8
KB
-rw-r--r--
shadowfile.elc
22.61
KB
-rw-r--r--
shell.elc
34.08
KB
-rw-r--r--
simple.elc
196.35
KB
-rw-r--r--
skeleton.elc
15.78
KB
-rw-r--r--
smerge-mode.elc
33.61
KB
-rw-r--r--
sort.elc
12.94
KB
-rw-r--r--
soundex.elc
1.34
KB
-rw-r--r--
speedbar.elc
115.06
KB
-rw-r--r--
startup.elc
60.78
KB
-rw-r--r--
strokes.elc
44.11
KB
-rw-r--r--
subdirs.el
426
B
-rw-r--r--
subr.elc
113.48
KB
-rw-r--r--
t-mouse.elc
3.38
KB
-rw-r--r--
tabify.elc
2
KB
-rw-r--r--
talk.elc
3.19
KB
-rw-r--r--
tar-mode.elc
52.24
KB
-rw-r--r--
tempo.elc
18.63
KB
-rw-r--r--
term.elc
99.67
KB
-rw-r--r--
terminal.elc
31.36
KB
-rw-r--r--
thingatpt.elc
10.84
KB
-rw-r--r--
thumbs.elc
26.23
KB
-rw-r--r--
time-stamp.elc
21.03
KB
-rw-r--r--
time.elc
18.2
KB
-rw-r--r--
timezone.elc
10.99
KB
-rw-r--r--
tmm.elc
13.9
KB
-rw-r--r--
tool-bar.elc
9.69
KB
-rw-r--r--
tooltip.elc
12.35
KB
-rw-r--r--
tree-widget.elc
20.87
KB
-rw-r--r--
tutorial.elc
21.41
KB
-rw-r--r--
type-break.elc
35.61
KB
-rw-r--r--
uniquify.elc
19.91
KB
-rw-r--r--
userlock.elc
4.69
KB
-rw-r--r--
vc-annotate.elc
22.68
KB
-rw-r--r--
vc-arch.elc
17.58
KB
-rw-r--r--
vc-bzr.elc
26.84
KB
-rw-r--r--
vc-cvs.elc
32.19
KB
-rw-r--r--
vc-dav.elc
5.3
KB
-rw-r--r--
vc-dir.elc
39.5
KB
-rw-r--r--
vc-dispatcher.elc
14.61
KB
-rw-r--r--
vc-git.elc
32.75
KB
-rw-r--r--
vc-hg.elc
25.95
KB
-rw-r--r--
vc-hooks.elc
32.75
KB
-rw-r--r--
vc-mtn.elc
10.95
KB
-rw-r--r--
vc-rcs.elc
34.99
KB
-rw-r--r--
vc-sccs.elc
13.24
KB
-rw-r--r--
vc-svn.elc
20.57
KB
-rw-r--r--
vc.elc
59.4
KB
-rw-r--r--
vcursor.elc
23.44
KB
-rw-r--r--
version.el
3.37
KB
-rw-r--r--
view.elc
35.96
KB
-rw-r--r--
vt-control.elc
2.06
KB
-rw-r--r--
vt100-led.elc
1.53
KB
-rw-r--r--
w32-fns.elc
15.82
KB
-rw-r--r--
w32-vars.elc
5.53
KB
-rw-r--r--
wdired.elc
21.69
KB
-rw-r--r--
whitespace.elc
59.83
KB
-rw-r--r--
wid-browse.elc
7.89
KB
-rw-r--r--
wid-edit.elc
104.76
KB
-rw-r--r--
widget.elc
1.37
KB
-rw-r--r--
windmove.elc
9.57
KB
-rw-r--r--
window.elc
57.4
KB
-rw-r--r--
winner.elc
11.61
KB
-rw-r--r--
woman.elc
107.73
KB
-rw-r--r--
x-dnd.elc
19.35
KB
-rw-r--r--
xml.elc
18.38
KB
-rw-r--r--
xt-mouse.elc
7.43
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : speedbar.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:28 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/speedbar.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`speedbar.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@34 The current version of speedbar. (defvar speedbar-version "1.0" (#$ . 607)) #@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" (#$ . 690)) (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\311\313\311\314& \210\305\315\307\316\317\320\311\306\311\321& \210\305\322\307\323\317\320\311\306&\207" [require assoc 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)) (#$ . 1396)) #@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" (#$ . 2573)) #@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" (#$ . 2835)) #@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)) (#$ . 3071)) #@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))) (#$ . 3812)) #@135 Non-nil means speedbar will show special mode contents. This permits some modes to create customized contents for the speedbar frame. (custom-declare-variable 'speedbar-mode-specific-contents-flag 't '(#$ . 4884) :group 'speedbar :type 'boolean) #@203 Query control for file operations. The 'always flag means to always query before file operations. The 'none-but-delete flag means to not query before any file operations, except before a file deletion. (custom-declare-variable 'speedbar-query-confirmation-method ''all '(#$ . 5137) :group 'speedbar :type '(radio (const :tag "Always Query before some file operations." all) (const :tag "Never Query before file operations, except for deletions." none-but-delete))) #@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 (#$ . 5609)) #@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 (#$ . 5961)) #@143 Hooks run before speedbar visits a file in the selected frame. The default buffer is the buffer in the selected window in the attached frame. (custom-declare-variable 'speedbar-before-visiting-file-hook ''(push-mark) '(#$ . 6202) :group 'speedbar :type 'hook) #@62 Hooks run when speedbar visits a file in the selected frame. (custom-declare-variable 'speedbar-visiting-file-hook 'nil '(#$ . 6468) :group 'speedbar :type 'hook) #@142 Hooks run before speedbar visits a tag in the selected frame. The default buffer is the buffer in the selected window in the attached frame. (custom-declare-variable 'speedbar-before-visiting-tag-hook ''(push-mark) '(#$ . 6638) :group 'speedbar :type 'hook) #@61 Hooks run when speedbar visits a tag in the selected frame. (custom-declare-variable 'speedbar-visiting-tag-hook ''(speedbar-highlight-one-tag-line) '(#$ . 6902) :group 'speedbar :type 'hook :options '(speedbar-highlight-one-tag-line speedbar-recenter-to-top speedbar-recenter)) #@36 Hooks run when speedbar is loaded. (custom-declare-variable 'speedbar-load-hook 'nil '(#$ . 7187) :group 'speedbar :type 'hook) #@45 Hooks run when the keymaps are regenerated. (custom-declare-variable 'speedbar-reconfigure-keymaps-hook 'nil '(#$ . 7321) :group 'speedbar :type 'hook) #@118 Non-nil show files we can't expand with a ? in the expand button. A nil value means don't show the file in the list. (custom-declare-variable 'speedbar-show-unknown-files 'nil '(#$ . 7480) :group 'speedbar :type 'boolean) (byte-code "\302B\303\302!\204 \304\302 \"\210\305\302\301\306#\210\307B\303\307!\204$ \304\307 \"\210\305\307\301\306#\207" [current-load-list dframe-update-speed speedbar-update-speed default-boundp set-default make-obsolete-variable "speedbar 1.0pre3" speedbar-navigating-speed] 4) #@266 Parameters to use when creating the speedbar frame in Emacs. Any parameter supported by a frame may be added. The parameter `height' will be initialized to the height of the frame speedbar is attached to and added to this list before the new frame is initialized. (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)) '(#$ . 7999) :group 'speedbar :type '(repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value")))) #@215 Parameters to use when creating the speedbar frame in XEmacs. Parameters not listed here which will be added automatically are `height' which will be initialized to the height of the frame speedbar is attached to. (custom-declare-variable '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) '(#$ . 8564) :group 'speedbar :type '(repeat (group :inline t (symbol :tag "Property") (sexp :tag "Value")))) #@202 Non-nil means use imenu for file parsing, nil to use etags. XEmacs prior to 20.4 doesn't support imenu, therefore the default is to use etags instead. Etags support is not as robust as imenu support. (custom-declare-variable 'speedbar-use-imenu-flag '(fboundp 'imenu) '(#$ . 9124) :tag "Use Imenu for tags" :group 'speedbar :type 'boolean) #@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)) (#$ . 9472)) #@143 Non-nil means to use tool tips if they are available. When tooltips are not available, mouse-tracking and minibuffer display is used instead. (custom-declare-variable 'speedbar-use-tool-tips-flag '(fboundp 'tooltip-mode) '(#$ . 10174) :group 'speedbar :type 'boolean) #@63 Non-nil means to display info about the line under the mouse. (custom-declare-variable 'speedbar-track-mouse-flag '(not speedbar-use-tool-tips-flag) '(#$ . 10448) :group 'speedbar :type 'boolean) #@172 Default position of the speedbar frame. Possible values are 'left, 'right or 'left-right. If value is 'left-right, the most suitable location is determined automatically. (custom-declare-variable 'speedbar-default-position ''left-right '(#$ . 10651) :group 'speedbar :type '(radio (const :tag "Automatic" left-right) (const :tag "Left" left) (const :tag "Right" right))) #@106 If non-nil, sort tags in the speedbar display. *Obsolete*. Use `semantic-tag-hierarchy-method' instead. (custom-declare-variable 'speedbar-sort-tags 'nil '(#$ . 11029) :group 'speedbar :type 'boolean) #@473 List of hooks which speedbar will use to organize tags into groups. Groups are defined as expandable meta-tags. Imenu supports such things in some languages, such as separating variables from functions. Each hook takes one argument LST, and may destructively create a new list of the same form. LST is a list of elements of the form: (ELT1 ELT2 ... ELTn) where each ELT is of the form (TAG-NAME-STRING . NUMBER-OR-MARKER) or (GROUP-NAME-STRING ELT1 ELT2... ELTn) (custom-declare-variable 'speedbar-tag-hierarchy-method ''(speedbar-prefix-group-tag-hierarchy speedbar-trim-words-tag-hierarchy) '(#$ . 11238) :group 'speedbar :type 'hook :options '(speedbar-prefix-group-tag-hierarchy speedbar-trim-words-tag-hierarchy speedbar-simple-group-tag-hierarchy speedbar-sort-tag-hierarchy)) #@346 The minimum length of a prefix group name before expanding. Thus, if the `speedbar-tag-hierarchy-method' includes `prefix-group' and one such groups common characters is less than this number of characters, then the group name will be changed to the form of: worda to wordb instead of just word This way we won't get silly looking listings. (custom-declare-variable 'speedbar-tag-group-name-minimum-length '4 '(#$ . 12037) :group 'speedbar :type 'integer) #@148 Minimum length before we stop trying to create sub-lists in tags. This is used by all tag-hierarchy methods that break large lists into sub-lists. (custom-declare-variable 'speedbar-tag-split-minimum-length '20 '(#$ . 12504) :group 'speedbar :type 'integer) #@204 Maximum length of submenus that are regrouped. If the regrouping option is used, then if two or more short subgroups are next to each other, then they are combined until this number of items is reached. (custom-declare-variable 'speedbar-tag-regroup-maximum-length '10 '(#$ . 12769) :group 'speedbar :type 'integer) #@210 Indicates how the directory button will be displayed. Possible values are: 'span - span large directories over multiple lines. 'trim - trim large directories to only show the last few. nil - no trimming. (custom-declare-variable 'speedbar-directory-button-trim-method ''span '(#$ . 13092) :group 'speedbar :type '(radio (const :tag "Span large directories over mutiple lines." span) (const :tag "Trim large directories to only show the last few." trim) (const :tag "No trimming." nil))) #@369 Non-nil means speedbar should use smart expansion. Smart expansion only affects when speedbar wants to display a directory for a file in the attached frame. When smart expansion is enabled, new directories which are children of a displayed directory are expanded in the current framework. If nil, then the current hierarchy would be replaced with the new directory. (custom-declare-variable 'speedbar-smart-directory-expand-flag 't '(#$ . 13591) :group 'speedbar :type 'boolean) #@73 When sub-nodes are expanded, the number of spaces used for indentation. (custom-declare-variable 'speedbar-indentation-width '1 '(#$ . 14078) :group 'speedbar :type 'integer) #@66 Non-nil means speedbar will hide the brackets around the + or -. (custom-declare-variable 'speedbar-hide-button-brackets-flag 'nil '(#$ . 14259) :group 'speedbar :type 'boolean) #@52 Hooks called before popping up the speedbar frame. (custom-declare-variable 'speedbar-before-popup-hook 'nil '(#$ . 14443) :group 'speedbar :type 'hook) #@51 Hooks called after popping up the speedbar frame. (custom-declare-variable 'speedbar-after-create-hook ''(speedbar-frame-reposition-smartly) '(#$ . 14602) :group 'speedbar :type 'hook) #@50 Hooks called before deleting the speedbar frame. (custom-declare-variable 'speedbar-before-delete-hook 'nil '(#$ . 14793) :group 'speedbar :type 'hook) #@48 Hooks called after creating a speedbar buffer. (custom-declare-variable 'speedbar-mode-hook 'nil '(#$ . 14951) :group 'speedbar :type 'hook) #@57 Hooks called after running the speedbar timer function. (custom-declare-variable 'speedbar-timer-hook 'nil '(#$ . 15098) :group 'speedbar :type 'hook) #@132 Verbosity level of the speedbar. 0 means say nothing. 1 means medium level verbosity. 2 and higher are higher levels of verbosity. (custom-declare-variable 'speedbar-verbosity-level '1 '(#$ . 15256) :group 'speedbar :type 'integer) #@56 String separating file text from indicator characters. (defvar speedbar-indicator-separator " " (#$ . 15494)) #@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 '(#$ . 15611) :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 "*" (#$ . 15853)) #@167 Return non-nil if the current directory should be checked for Version Control. Functions in this hook must accept one parameter which is the directory being checked. (custom-declare-variable 'speedbar-vc-directory-enable-hook 'nil '(#$ . 16105) :group 'speedbar-vc :type 'hook) #@195 Return non-nil if the specified file is under Version Control. Functions in this hook must accept two parameters. The DIRECTORY of the current file, and the FILENAME of the file being checked. (custom-declare-variable 'speedbar-vc-in-control-hook 'nil '(#$ . 16390) :group 'speedbar-vc :type 'hook) #@72 Local variable maintaining the current version control check position. (defvar speedbar-vc-to-do-point nil (#$ . 16696)) #@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 '(#$ . 16824) :group 'speedbar-vc :type 'boolean) #@72 Local variable maintaining the current version control check position. (defvar speedbar-obj-to-do-point nil (#$ . 17114)) #@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 '("#" . "!") (#$ . 17243)) #@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")) (#$ . 17514)) #@66 Local variable maintaining the current read only check position. (defvar speedbar-ro-to-do-point nil (#$ . 17800)) #@60 Indicator to append onto a line if that item is Read Only. (defvar speedbar-object-read-only-indicator "%" (#$ . 17921)) #@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) (#$ . 18049)) #@131 Hook called whenever generic scanners are reset. Set this to implement your own scanning / rescan safe functions with state data. (custom-declare-variable 'speedbar-scanner-reset-hook 'nil '(#$ . 18432) :group 'speedbar :type 'hook) #@70 *List of major modes which speedbar will not switch directories for. (defvar speedbar-ignored-modes '(fundamental-mode) (#$ . -18671)) #@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 (#$ . 18813)]) #@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 (#$ . 19419)) (byte-code "\300\301\302\303#\210\304\301\302\303#\207" [defvaralias speedbar-ignored-path-expressions speedbar-ignored-directory-expressions nil make-obsolete-variable] 4) #@364 List of regular expressions matching directories speedbar will ignore. They should included directories which are notoriously very large and take a long time to load in. Use the function `speedbar-add-ignored-directory-regexp' to add new items to this list after speedbar is loaded. You may place anything you like in this list before speedbar has been loaded. (custom-declare-variable 'speedbar-ignored-directory-expressions ''("[/\\]logs?[/\\]\\'") '(#$ . 20021) :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]) #@245 Regular expression matching directories not to show in speedbar. They should include commonly existing directories which are not useful. It is no longer necessary to include version-control directories here; see `vc-directory-exclusion-list'. (custom-declare-variable 'speedbar-directory-unshown-regexp '"^\\(\\..*\\)\\'" '(#$ . 20714) :group 'speedbar :type 'string) #@137 *Regexp matching files we don't want displayed in a speedbar buffer. It is generated from the variable `completion-ignored-extensions'. (defvar speedbar-file-unshown-regexp (byte-code "\303 \203! \n\304 @!\305 A\203 \306\202 \303R A\211\204 \n\307P*\207" [completion-ignored-extensions noext nstr "" regexp-quote "\\'" "\\|" "\\|#[^#]+#$\\|\\.\\.?\\'\\|\\.#"] 5) (#$ . -21090)) #@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 (#$ . 21483)) #@631 List of regular expressions which will match files supported by tagging. Do not prefix the `.' char with a double \ to quote it, as the period will be stripped by a simplified optimizer when compiled into a singular expression. This variable will be turned into `speedbar-file-regexp' for use with speedbar. You should use the function `speedbar-add-supported-extension' to add a new extension at runtime, or use the configuration dialog to set it in your .emacs file. If you add an extension to this list, and it does not appear, you may need to also modify `completion-ignored-extension' which will also help file completion. (custom-declare-variable 'speedbar-supported-extension-expressions '(append '(".[ch]\\(\\+\\+\\|pp\\|c\\|h\\|xx\\)?" ".tex\\(i\\(nfo\\)?\\)?" ".el" ".emacs" ".l" ".lsp" ".p" ".java" ".f\\(90\\|77\\|or\\)?") (if speedbar-use-imenu-flag '(".ada" ".p[lm]" ".tcl" ".m" ".scm" ".pm" ".py" ".g" ".s?html" ".ma?k" "[Mm]akefile\\(\\.in\\)?"))) '(#$ . 21704) :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]) (byte-code "\302!\302\207" [speedbar-supported-extension-expressions speedbar-file-regexp speedbar-extension-list-to-regex] 2) #@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 (#$ . 23028) "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 (#$ . 23585) "sDirectory regex: "]) (byte-code "\304\305!\204 \306!\306\n!\304\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] 2) #@235 *Non-nil means to automatically update the display. When this is nil then speedbar will not follow the attached frame's directory. When speedbar is active, use: \<speedbar-key-map> `\[speedbar-toggle-updates]' to toggle this value. (defvar speedbar-update-flag dframe-have-timer-flag (#$ . -24369)) #@50 Permanently disable changing of the update flag. (defvar speedbar-update-flag-disable nil (#$ . 24676)) #@36 Syntax-table used on the speedbar. (defvar speedbar-syntax-table nil (#$ . 24786)) (byte-code "\2047 \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\301\207" [speedbar-syntax-table make-syntax-table modify-syntax-entry 39 " " 34 40 41 123 125 91 93] 4) #@33 Keymap used in speedbar buffer. (defvar speedbar-key-map nil (#$ . 25149)) (byte-code "\204R \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\301\207" [speedbar-key-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) #@154 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-key-map'. (defalias 'speedbar-make-specialized-keymap #[nil "\302 \303 \"\210)\207" [k speedbar-key-map make-sparse-keymap set-keymap-parent] 3 (#$ . 26081)]) #@59 Keymap used in speedbar buffer while files are displayed. (defvar speedbar-file-key-map nil (#$ . 26392)) (byte-code "\204m \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\301\207" [speedbar-file-key-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) #@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) (#$ . 27348)) #@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]+ \\*?[!#]$"))]) (#$ . 27873)) #@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) (#$ . 29485)) #@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 (#$ . 29826)) #@37 The buffer displaying the speedbar. (defvar speedbar-buffer nil (#$ . 29994)) #@32 The frame displaying speedbar. (defvar speedbar-frame nil (#$ . 30078)) #@65 The frame that was last created, then removed from the display. (defvar speedbar-cached-frame nil (#$ . 30156)) #@76 The last open directory is saved in its entirety for ultra-fast switching. (defvar speedbar-full-text-cache nil (#$ . 30274)) #@54 The last file which was selected in speedbar buffer. (defvar speedbar-last-selected-file nil (#$ . 30406)) #@75 Maintain list of directories simultaneously open in the current speedbar. (defvar speedbar-shown-directories nil (#$ . 30519)) #@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 (#$ . 30653)) #@67 Never set this by hand. Value is t when S-mouse activity occurs. (defvar speedbar-power-click nil (#$ . 30916)) (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 automatic-hscrolling dframe-update-speed speedbar-last-selected-file] 12 (#$ . 31339) "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 (#$ . 32494)]) #@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 (#$ . 32858)]) (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 (#$ . 33132)]) #@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 (#$ . 33412) 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 (#$ . 33844)]) (put 'speedbar-frame-width 'byte-optimizer 'byte-compile-inline-expand) #@1923 Major mode for managing a display of directories and tags. \<speedbar-key-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-key-map} (defalias 'speedbar-mode #[nil "\212\306 \210\307\310\311\n!\210\312\313\314\315!\210\316 P \312\317\320!\210\321 \210\203+ \322\323\324 \325 \326\327!\210) \207" [major-mode mode-name speedbar-syntax-table font-lock-keywords truncate-lines speedbar-version kill-all-local-variables speedbar-mode "Speedbar" set-syntax-table nil t make-local-variable frame-title-format "Speedbar " toggle-read-only 1 speedbar-set-mode-line-format speedbar-track-mouse speedbar-item-info speedbar-click speedbar-position-cursor-on-line run-hooks speedbar-mode-hook case-fold-search speedbar-track-mouse-flag dframe-track-mouse-function dframe-help-echo-function dframe-mouse-click-function dframe-mouse-position-function speedbar-buffer] 2 (#$ . 34107)]) #@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 (#$ . 36790)])) #@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 (#$ . 37039)]) (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 (#$ . 37573)]) (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 \212q\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 (#$ . 38092)]) #@69 The menu before the last `speedbar-reconfigure-keymaps' was called. (defvar speedbar-previous-menu nil (#$ . 39057)) #@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* + ,\212-q\210\332+\206} \333 \206} \334 !\210.\203\211 \335.!\210,.\336\337\340\341#\210\342\337!\204\236 \343\337\315\"\210\344\337\345 \341,$\210)\346\347!*\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 put speedbar-menu-map variable-documentation "Speedbar menu" default-boundp set-default easy-menu-do-define current-local-map run-hooks speedbar-reconfigure-keymaps-hook displays speedbar-easymenu-definition-trailer cf localmap md speedbar-buffer speedbar-previous-menu] 15 (#$ . 39181)]) #@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 (#$ . 40588) nil]) #@56 For motion EVENT, display info about the current line. (defalias 'speedbar-track-mouse #[(event) "\205 \212\301\213)\207" [speedbar-track-mouse-flag ((byte-code "\300\301\302\217\207" [nil (byte-code "\302!\210 \303=\205\f \304 \207" [event major-mode mouse-set-point speedbar-mode speedbar-item-info] 2) ((t (dframe-message nil)))] 3))] 1 (#$ . 40887)]) #@54 Call the info function for the line under the mouse. (defalias 'speedbar-show-info-under-mouse #[nil "\302 \211@ \232\205 \212\303\213))\207" [pos speedbar-frame mouse-position ((byte-code "\301\302\"\210\303 \207" [pos apply set-mouse-position speedbar-item-info] 3))] 3 (#$ . 41251)]) #@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 (#$ . 41547) "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 (#$ . 41754) "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 (#$ . 41924)]) #@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 (#$ . 42678) "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 (#$ . 43008) "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 (#$ . 43352) "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 (#$ . 43834) 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 (#$ . 44117) 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 (#$ . 44402) "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 (#$ . 44605) "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 (#$ . 44811) 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 \203 \307\310\f@\"\210\fA\211\204\n \311 X\203! \312\313!\210\314 \210\315 \210\316!\210\311 X\2055 \312\317!+\207" [speedbar-shown-directories arg deactivate-mark dframe-power-click dl speedbar-verbosity-level nil adelete speedbar-directory-contents-alist 1 dframe-message "Refreshing speedbar..." speedbar-update-contents speedbar-stealthy-updates speedbar-set-timer "Refreshing speedbar...done" dframe-update-speed] 4 (#$ . 45088) "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 (#$ . 45741) 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 (#$ . 46224) 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 (#$ . 46639) "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\210`\"\")\207" [beginning-of-line looking-at "\\([0-9]+\\):" 0 "\\s-*[[<({].[]>)}] " dframe-message "Text: %s" buffer-substring-no-properties nil] 5 (#$ . 46869)]) #@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 (#$ . 47306) 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 (#$ . 47663)]) #@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\212\311\210`)\312#\203U \313\314!\315 \311\316\317!\205# \317 !\211\203C \212\320 !\203: \321 !\203: \321 !q\210\322\f !!)\202Q \323\324!\210\325\326 !\322\327\n#,\202\307\330\212\311\210`)\312#\203k \322\331\313\314!\"\202\307\332\311\312#\205\313\314! \315 \206} (\212\306 \210\323\333!\203\222 \334\313\335!!S\202\223 \335 )\336\337\340)!\341Q\311\312#\210)\323\342!\205\252 \315 ) *\343\344!\203\354 \317(!\203\305 \322\f(*\"!\202 *\203\344 \322\345(\317*!\203\336 \346*\311\312#\202\340 *#\202 \322\347(\"\202 *\203\373 \322\345(*#\202 \322\347(\"+)\207" [tag attr item semantic-tagged semantic-sb-info-format-tag-function detailtext beginning-of-line re-search-forward " [-+=]?> \\([^\n]+\\)" nil t match-string 1 speedbar-line-token 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 (#$ . 48077)]) #@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 (#$ . 49474)]) #@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 (#$ . 49773) 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 (#$ . 50621) 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-file-name "Create directory: " make-directory t speedbar-refresh speedbar-goto-this-file error "Not a file"] 4 (#$ . 51440) 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!*\205@ \315!\2030 \316!\210\2024 \317!\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] 4 (#$ . 51801) 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 (#$ . 52327) 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 (#$ . 52997) 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 (#$ . 53235) 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 (#$ . 53466) nil]) #@94 Toggle use of images in the speedbar frame. Images are not available in Emacs 20 or earlier. (defalias 'speedbar-toggle-images #[nil "?\301 \207" [speedbar-use-images speedbar-refresh] 1 (#$ . 53680) nil]) #@21 Toggle tag sorting. (defalias 'speedbar-toggle-sorting #[nil "?\211\207" [speedbar-sort-tags] 2 (#$ . 53894) 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 (#$ . 54017) 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 (#$ . 54200)])) (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 (#$ . 54455)]) #@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 (#$ . 55337)]) #@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 (#$ . 55716)]) #@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 (#$ . 56550)]) #@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 (#$ . 56876)]) #@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 (#$ . 57187)]) #@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 (#$ . 57501)]) #@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 (#$ . 57820)]) #@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 (#$ . 58019) (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 (#$ . 58648)]) #@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 (#$ . 58988)]) #@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 (#$ . 59231)]) #@69 Add localized speedbar support to BUFFER's mode if it is available. (defalias 'speedbar-add-localized-speedbar-support #[(buffer) ";\203 \306!\307!\205\201 \212q\210\310 \311\216\312\n!\313 \314\315\f\"\205\200 \f\316\211\224O\317\f\320P!\321\305!\210 \204? \322\211\202\200 K\211 <\203W @\323=\203W \324A@!\210) C\317\f\325P!\211\203m \321\326!\210 J\317\f\327P!\211\205\200 \321\330!\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 load-library "-speedbar-key-map" speedbar-special-mode-key-map "-speedbar-menu-items" speedbar-easymenu-definition-special sf] 4 (#$ . 59589) "bBuffer: "]) #@71 Remove any traces that BUFFER supports speedbar in a specialized way. (defalias 'speedbar-remove-localized-speedbar-support #[(buffer) "\212q\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 (#$ . 60488)]) #@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! \203 \307\302\"\210\310\n\"\243\206l \311\312\"\312\211 \203Z \313 @\"\204S @\235\204S \313 @\"\204S \314 @!\203N @\fB\202S @ B A\211\204% \f\237 \237CB \315\302#\210-\207" [directory dframe-power-click speedbar-directory-contents-alist files dirs dir expand-file-name adelete assoc directory-files nil string-match file-directory-p aput default-directory speedbar-file-unshown-regexp vc-directory-exclusion-list speedbar-directory-unshown-regexp nl] 5 (#$ . 60833)]) #@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 (#$ . 61638)]) #@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 (#$ . 63212)]) #@69 Change the expansion button character to CHAR for the current line. (defalias 'speedbar-change-expand-button-char #[(char) "\212\302 \210\303\304\212\305\210`)\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-*.\\([-+?]\\)" nil t 1 insert-char -1 delete-char speedbar-insert-image-button-maybe 3] 4 (#$ . 65221)]) #@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 (#$ . 65648)]) #@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 (#$ . 66493)]) #@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 (#$ . 67049)]) #@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 (#$ . 67407)]) #@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 (#$ . 67771)]) #@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 (#$ . 67961)]) #@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 (#$ . 68149)]) #@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 (#$ . 68400)]) #@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 (#$ . 69707)]) #@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 (#$ . 70313)]) #@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 \212\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 (#$ . 70670)]) #@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 (#$ . 71130)) #@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 (#$ . 71343)) #@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 (#$ . 71547)]) #@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 (#$ . 72764)]) #@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 (#$ . 72991)]) #@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 (#$ . 73218) 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 (#$ . 73638)]) #@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 (#$ . 74651)]) #@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\212 \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 (#$ . 76071)]) #@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 (#$ . 76649)]) #@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 (#$ . 77048)]) #@51 Recursion avoidance variable for stealthy update. (defvar speedbar-stealthy-update-recurse nil (#$ . 78468)) #@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 (#$ . 78584)]) #@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 (#$ . 78973)]) #@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 (#$ . 79318)]) #@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 (#$ . 79976)]) #@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 (#$ . 80301)]) #@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\212\307\210`)\312#\203> \314\224\314\225|\210)\307\210\f\310\230?\205V ` \fc\210\315\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 0 speedbar-insert-image-button-maybe inhibit-read-only replace-this start] 5 (#$ . 81444)]) #@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 (#$ . 82254)]) #@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 (#$ . 82830)]) #@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\212\312\210`)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 "^ " nil 2 dframe-message "Speedbar vc check...%s" file-writable-p speedbar-this-file-in-vc] 4 (#$ . 83784)]) #@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 (#$ . 84348)]) #@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 (#$ . 84861)]) #@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 (#$ . 85299)]) #@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\212\312\210`)w\210`\"\n P \313 X\203% \314\315\f\"\210\211 \203@ \316@@\f\"\204@ A\211\204- \205\220 \317\320\f!@AP!\205\220 \321\322\f!8\321\322\320\f!@AP!8 \211 @@W\204\206 @@U\203\214 A@A@W\203\214 @\202\217 A*-\207" [depth d f fn fulln speedbar-verbosity-level string-to-number speedbar-line-directory buffer-substring-no-properties "^ " nil 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 (#$ . 85967)]) #@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 (#$ . 86768)]) #@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 (#$ . 86986)]) #@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 (#$ . 87391)]) #@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 (#$ . 88112)]) #@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 (#$ . 88483)]) #@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 (#$ . 88920)]) #@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 (#$ . 89476)]) #@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 (#$ . 90495)]) #@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 (#$ . 90970)]) #@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 (#$ . 91927)]) #@60 Edit whatever tag or file is on the current speedbar line. (defalias 'speedbar-edit-line #[nil "\212\300 \210\301\302\212\303\210`)\304#\205 \305u\210\306 )\206 \306 \207" [beginning-of-line re-search-forward "[]>?}] [^ ]" nil t -1 speedbar-do-function-pointer] 4 (#$ . 92797) 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\212\302\210`)\"\210\303u\210\304 \207" [re-search-forward ":\\s-*.\\+. " nil -2 speedbar-do-function-pointer] 3) ((error (speedbar-position-cursor-on-line)))] 3 (#$ . 93089) "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 (#$ . 93533) 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\212\302\210`)\"\210\303u\210\304 \207" [re-search-forward ":\\s-*.-. " nil -2 speedbar-do-function-pointer] 3) ((error (speedbar-position-cursor-on-line)))] 3 (#$ . 93712) 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\212\302\210`)\"\210\303u\210\304 \207" [re-search-forward ":\\s-*.[-+]. " nil -2 speedbar-do-function-pointer] 3) ((error (speedbar-position-cursor-on-line)))] 3 (#$ . 94049) 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 (#$ . 94408) "P"]) #@55 Expand the line under the cursor and all descendants. (defalias 'speedbar-contract-line-descendants #[nil "\300 \207" [speedbar-contract-line] 1 (#$ . 94896) 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 (#$ . 95067)]) #@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 (#$ . 95756)]) #@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 (#$ . 96348)]) #@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 (#$ . 96740)]) #@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 (#$ . 97746)]) #@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\"\203: \310\311 !\nP!\312 \313 !\211 \204 \314\315!\210\2026 \314\316!\210\317 \212\312\210\320u\210 @ A\"\210*+\202P \306\321\"\203L \314\322!\210\323 !\210\202P \324\325!\210\326 \207" [text indent token fn mode lst string-match "+" expand-file-name speedbar-line-directory nil speedbar-fetch-dynamic-tags speedbar-change-expand-button-char 63 45 t 1 "-" 43 speedbar-delete-subblock error "Ooops... not sure what to do" speedbar-center-buffer-smartly inhibit-read-only] 4 (#$ . 98191)]) #@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 (#$ . 98981)]) #@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 (#$ . 99586)]) #@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 '(#$ . 100304) :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 (#$ . 100680)]) #@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 \307\310\311 \"r\312\216\313\314\n\315\"!\210\nq\210\316ed\"\317\306 !SX\2032 `eb\210\320\321!\210 b)\202!\322\211\211\211\211 ! \"\212\323 \210\324\325!\203T \326\327\321\224\321\225\"!\202U \321\"\330\331\"\")\212\322\210\332 \322\315#\203p `!\202s e!\212\322\210`\333 \322\315#\204\226 \"\321Y\203\226 \"S\"\330\331\"\"\202y `\fU\204\242 ` \202\245 d *\316! \"\317\306 !S` #\211 $#V\203\311 !b\210\320\334!\210\202 \335!\306 \"\203\333 \335 \306 \"\204 !b\210\317\306 !$Z\336\245\316!d\" %\211 &%\\\317\306 !W\203\337\317\306 !%\334#&V\203\337\317\306 !%\334#&\320&!\210* b.,\207" [save-selected-window-alist save-selected-window-window speedbar-buffer cp p exp selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203( \n@\305 @!\203! \306 A!\203! \307 @ A\310#\210\nA\211\204 *\306 !\2034 \311 \310\"\210\304\207" [save-selected-window-alist elt --dolist-tail-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window get-buffer-window t count-lines window-height 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 - end start depth wl nl lte newcent] 6 (#$ . 101286)]) #@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 (#$ . 102904)]) (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-*(?^?")) (#$ . 103973)) #@101 *Command used to create an etags file. This variable is ignored if `speedbar-use-imenu-flag' is t. (defvar speedbar-fetch-etags-command "etags" (#$ . -104834)) #@225 *List of arguments to use with `speedbar-fetch-etags-command'. This creates an etags output buffer. Use `speedbar-toggle-etags' to modify this list conveniently. This variable is ignored if `speedbar-use-imenu-flag' is t. (defvar speedbar-fetch-etags-arguments '("-D" "-I" "-o" "-") (#$ . -105002)) #@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 (#$ . 105310) 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 (#$ . 106034)]) #@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\212\305\210`)\306#)\205 \307\310\224\310\225\"\202 \304\311\212\305\210`)\306#\211\203? \203? \312\307\313\224\313\225\"!T\202@ \314)\211\314U?\205L B*\207" [expr sym j pos re-search-forward nil t buffer-substring-no-properties 1 "[]\\([0-9]+\\),\\([0-9]+\\)" string-to-number 2 0] 5 (#$ . 107047)]) #@59 Parse a C or C++ tag, which tends to be a little complex. (defalias 'speedbar-parse-c-or-c++tag #[nil "\212\212\301\210`)\302\303\304#\203 \305\306\224\306\225\"\202< \302\307\304#\203* \305\306\224\306\225\"\202< \302\310\304#\203; \305\306\224\306\225\"\202< \301*\207" [bound nil re-search-forward "\\([^]+\\)" t buffer-substring-no-properties 1 "\\<\\([^ ]+\\)\\s-+new(" "\\<\\([^ (]+\\)\\s-*("] 4 (#$ . 107598)]) #@56 Parse a Tex string. Only find data which is relevant. (defalias 'speedbar-parse-tex-string #[nil "\212\212\301\210`)\302\303\304#\203 \305\306\224\306\225\"\202 \301*\207" [bound nil re-search-forward "\\(\\(sub\\)*section\\|chapter\\|cite\\)\\s-*{[^}]*}?" t buffer-substring-no-properties 0] 4 (#$ . 108034)]) #@47 Keymap used when in the buffers display mode. (defvar speedbar-buffers-key-map nil (#$ . 108358)) (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]+: *.[-+?]. "))]) (#$ . 108899)) #@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 (#$ . 109645)]) #@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 (#$ . 109914)]) #@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 \212 @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 (#$ . 110186)]) #@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) "\304\211\212\nq\210\305 )\205 \306\307\304\211\211\211\310&*\207" [ro mod buffer buffer-read-only nil buffer-modified-p speedbar-insert-button "%" t] 7 (#$ . 111110)]) #@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! \312\212 q\210\n)\212 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 (#$ . 111431)]) #@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#\2059 \310 \211\205 \311 !\211\2058 \212\304\210`)=\2035 \212\nq\210 )\2068 \312\2028 \313\n!**\207" [start bn buffer default-directory nil re-search-backward "^0:" t speedbar-line-text get-buffer "" buffer-file-name] 5 (#$ . 111883)]) #@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 (#$ . 112371)]) #@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 (#$ . 112853) nil]) #@60 Revert the buffer the cursor is on in the speedbar buffer. (defalias 'speedbar-buffer-revert-buffer #[nil "\212\301 \210\302\303\212\304\210`)\305#\205* \306u\210`\212\304\210`){\307!\205) q\210\310\305!))\207" [text beginning-of-line re-search-forward "[]>?}] [^ ]" nil t -1 get-buffer revert-buffer] 4 (#$ . 113257) nil]) #@69 Overlay used for highlighting the most recently jumped to tag line. (defvar speedbar-highlight-one-tag-line nil (#$ . 113592)) #@73 Highlight the current line, unhighlighting a previously jumped to line. (defalias 'speedbar-highlight-one-tag-line #[nil "\301 \210\302\212\303 \210`)\212\304\210\305u\210`)\"\306\307\310#\210\311\312\301\"\207" [speedbar-highlight-one-tag-line speedbar-unhighlight-one-tag-line speedbar-make-overlay beginning-of-line nil 1 speedbar-overlay-put face speedbar-highlight-face add-hook pre-command-hook] 4 (#$ . 113725)]) #@45 Unhighlight the currently highlighted line. (defalias 'speedbar-unhighlight-one-tag-line #[nil "\203\n \301!\210\302\303\304\305\"\207" [speedbar-highlight-one-tag-line speedbar-delete-overlay nil remove-hook pre-command-hook speedbar-unhighlight-one-tag-line] 3 (#$ . 114154)]) #@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 (#$ . 114442)]) #@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 (#$ . 114603)]) (byte-code "\301\302\303\304\305\306%\210\301\307\310\311\305\306%\210\301\312\313\314\305\306%\210\301\315\316\317\305\306%\210\301\320\321\322\305\306%\210\301\323\324\325\305\306%\210\301\326\327\330\305\306%\210\331\332\333\"\210\334\300!\203g \203g \335=\203R \336\202g @\337=\203b \340\300\341\335#\210\202g \342\341\"\343\344\345\346#\210\347\344\345\346#\210\350\351\352\346#\210\353\351\352\346#\210\350\354\355\346#\210\353\354\355\346#\210\350\356\357\346#\210\353\356\357\346#\210\350\360\361\346#\210\353\360\361\346#\210\350\356\357\346#\210\353\356\357\346#\210\362\363!\210\364\365!\207" [font-lock-global-modes custom-declare-face speedbar-button-face ((((class color) (background light)) (:foreground "green4")) (((class color) (background dark)) (:foreground "green3"))) "Face used for +/- buttons." :group speedbar-faces speedbar-file-face ((((class color) (background light)) (:foreground "cyan4")) (((class color) (background dark)) (:foreground "cyan")) (t (:bold t))) "Face used for file names." speedbar-directory-face ((((class color) (background light)) (:foreground "blue4")) (((class color) (background dark)) (:foreground "light blue"))) "Face used for directory names." speedbar-tag-face ((((class color) (background light)) (:foreground "brown")) (((class color) (background dark)) (:foreground "yellow"))) "Face used for displaying tags." speedbar-selected-face ((((class color) (background light)) (:foreground "red" :underline t)) (((class color) (background dark)) (:foreground "red" :underline t)) (t (:underline t))) "Face used to underline the file in the active window." speedbar-highlight-face ((((class color) (background light)) (:background "green")) (((class color) (background dark)) (:background "sea green")) (((class grayscale monochrome) (background light)) (:background "black")) (((class grayscale monochrome) (background dark)) (:background "white"))) "Face used 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"))) "Face used 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 make-obsolete-variable 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] 6)
Close
