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 : allout.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:32 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/allout.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 "`allout.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require overlay custom-declare-group allout nil "Extensive outline mode for use alone and with other modes." :prefix "allout-" :group outlines] 8) #@194 Key sequence to be used as prefix for outline mode command key bindings. Default is '<space>'; just '' is more short-and-sweet, if you're willing to let allout use a bunch of keybindings. (custom-declare-variable 'allout-command-prefix '" " '(#$ . 817) :type 'string :group 'allout) #@191 *List of `allout-mode' key / function bindings, for `allout-mode-map'. String or vector key will be prefaced with `allout-command-prefix', unless optional third, non-nil element is present. (defvar allout-keybindings-list nil (#$ . -1113)) (byte-code "\301\302\207" [allout-keybindings-list (("" allout-next-visible-heading) ("" allout-previous-visible-heading) ("" allout-up-current-level) ("" allout-forward-current-level) ("" allout-backward-current-level) ("" allout-beginning-of-current-entry) ("" allout-end-of-entry) (" " allout-show-children) ("" allout-show-current-subtree) ("" allout-hide-current-subtree) ("" allout-toggle-current-subtree-exposure) ("h" allout-hide-current-subtree) ("" allout-show-current-entry) ("!" allout-show-all) ("x" allout-toggle-current-subtree-encryption) (" " allout-open-sibtopic) ("." allout-open-subtopic) ("," allout-open-supertopic) ("'" allout-shift-in) (">" allout-shift-in) ("<" allout-shift-out) (" " allout-rebullet-topic) ("*" allout-rebullet-current-heading) ("#" allout-number-siblings) ("" allout-kill-line t) ([134217835] allout-copy-line-as-kill t) ("" allout-yank t) ([134217849] allout-yank-pop t) ("" allout-kill-topic) ([134217835] allout-copy-topic-as-kill) ("@" allout-resolve-xref) ("=c" allout-copy-exposed-to-buffer) ("=i" allout-indented-exposed-to-buffer) ("=t" allout-latexify-exposed) ("=p" allout-flatten-exposed-to-buffer)) nil] 1) #@890 Regulates auto-activation modality of allout outlines -- see `allout-init'. Setq-default by `allout-init' to regulate whether or not allout outline mode is automatically activated when the buffer-specific variable `allout-layout' is non-nil, and whether or not the layout dictated by `allout-layout' should be imposed on mode activation. With value t, auto-mode-activation and auto-layout are enabled. (This also depends on `allout-find-file-hook' being installed in `find-file-hook', which is also done by `allout-init'.) With value `ask', auto-mode-activation is enabled, and endorsement for performing auto-layout is asked of the user each time. With value `activate', only auto-mode-activation is enabled, auto-layout is not. With value nil, neither auto-mode-activation nor auto-layout are enabled. See the docstring for `allout-init' for the proper interface to this variable. (custom-declare-variable 'allout-auto-activation 'nil '(#$ . 2538) :type '(choice (const :tag "On" t) (const :tag "Ask about layout" "ask") (const :tag "Mode only" "activate") (const :tag "Off" nil)) :group 'allout) #@2523 Default allout outline layout specification. This setting specifies the outline exposure to use when `allout-layout' has the local value `t'. This docstring describes the layout specifications. A list value specifies a default layout for the current buffer, to be applied upon activation of `allout-mode'. Any non-nil value will automatically trigger `allout-mode', provided `allout-init' has been called to enable this behavior. The types of elements in the layout specification are: INTEGER -- dictate the relative depth to open the corresponding topic(s), where: -- negative numbers force the topic to be closed before opening to the absolute value of the number, so all siblings are open only to that level. -- positive numbers open to the relative depth indicated by the number, but do not force already opened subtopics to be closed. -- 0 means to close topic -- hide all subitems. : -- repeat spec -- apply the preceeding element to all siblings at current level, *up to* those siblings that would be covered by specs following the `:' on the list. Ie, apply to all topics at level but trailing ones accounted for by trailing specs. (Only the first of multiple colons at the same level is honored -- later ones are ignored.) * -- completely exposes the topic, including bodies + -- exposes all subtopics, but not the bodies - -- exposes the body of the corresponding topic, but not subtopics LIST -- a nested layout spec, to be applied intricately to its corresponding item(s) Examples: (-2 : 0) Collapse the top-level topics to show their children and grandchildren, but completely collapse the final top-level topic. (-1 () : 1 0) Close the first topic so only the immediate subtopics are shown, leave the subsequent topics exposed as they are until the second second to last topic, which is exposed at least one level, and completely close the last topic. (-2 : -1 *) Expose children and grandchildren of all topics at current level except the last two; expose children of the second to last and completely expose the last one, including its subtopics. See `allout-expose-topic' for more about the exposure process. Also, allout's mode-specific provisions will make topic prefixes default to the comment-start string, if any, of the language of the file. This is modulo the setting of `allout-use-mode-specific-leader', which see. (custom-declare-variable 'allout-default-layout ''(-2 : 0) '(#$ . 3651) :type 'allout-layout-type :group 'allout) (define-widget 'allout-layout-type 'lazy "Allout layout format customization basic building blocks." :type '(repeat (choice (integer :tag "integer (<= zero is strict)") (const :tag ": (repeat prior)" :) (const :tag "* (completely expose)" *) (const :tag "+ (expose all offspring, headlines only)" +) (const :tag "- (expose topic body but not offspring)" -) (allout-layout-type :tag "<Nested layout>")))) #@567 If non-nil, auto-fill will be inhibited in the allout buffers. You can customize this setting to set it for all allout buffers, or set it in individual buffers if you want to inhibit auto-fill only in particular buffers. (You could use a function on `allout-mode-hook' to inhibit auto-fill according, eg, to the major mode.) If you don't set this and auto-fill-mode is enabled, allout will use the value that `normal-auto-fill-function', if any, when allout mode starts, or else allout's special hanging-indent maintaining auto-fill function, `allout-auto-fill'. (custom-declare-variable 'allout-inhibit-auto-fill 'nil '(#$ . 6698) :type 'boolean :group 'allout) (make-variable-buffer-local 'allout-inhibit-auto-fill) #@233 If non-nil, topic body text auto-indent defaults to indent of the header. Ie, it is indented to be just past the header prefix. This is relevant mostly for use with `indented-text-mode', or other situations where auto-fill occurs. (custom-declare-variable 'allout-use-hanging-indents 't '(#$ . 7426) :type 'boolean :group 'allout) (byte-code "\300\301!\210\302\301\303\304\305!\203 \305\202 \306#\207" [make-variable-buffer-local allout-use-hanging-indents put safe-local-variable fboundp booleanp (lambda (x) (member x '(t nil)))] 5) #@427 Non-nil enables auto-adjust of topic body hanging indent with depth shifts. When active, topic body lines that are indented even with or beyond their topic header are reindented to correspond with depth shifts of the header. A value of t enables reindent in non-programming-code buffers, ie those that do not have the variable `comment-start' set. A value of `force' enables reindent whether or not `comment-start' is set. (custom-declare-variable 'allout-reindent-bodies '(if allout-use-hanging-indents 'text) '(#$ . 7971) :type '(choice (const nil) (const t) (const text) (const force)) :group 'allout) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local allout-reindent-bodies put safe-local-variable (lambda (x) (memq x '(nil t text force)))] 4) #@82 If non-nil, show entire body when exposing a topic, rather than just the header. (custom-declare-variable 'allout-show-bodies 'nil '(#$ . 8754) :type 'boolean :group 'allout) (byte-code "\300\301!\210\302\301\303\304\305!\203 \305\202 \306#\207" [make-variable-buffer-local allout-show-bodies put safe-local-variable fboundp booleanp (lambda (x) (member x '(t nil)))] 5) #@1274 If non-nil, \[allout-beginning-of-line] will cycle through smart-placement options. Cycling only happens on when the command is repeated, not when it follows a different command. Smart-placement means that repeated calls to this function will advance as follows: - if the cursor is on a non-headline body line and not on the first column: then it goes to the first column - if the cursor is on the first column of a non-headline body line: then it goes to the start of the headline within the item body - if the cursor is on the headline and not the start of the headline: then it goes to the start of the headline - if the cursor is on the start of the headline: then it goes to the bullet character (for hotspot navigation) - if the cursor is on the bullet character: then it goes to the first column of that line (the headline) - if the cursor is on the first column of the headline: then it goes to the start of the headline within the item body. In this fashion, you can use the beginning-of-line command to do its normal job and then, when repeated, advance through the entry, cycling back to start. If this configuration variable is nil, then the cursor is just advanced to the beginning of the line and remains there on repeated calls. (custom-declare-variable 'allout-beginning-of-line-cycles 't '(#$ . 9135) :type 'boolean :group 'allout) #@835 If non-nil, \[allout-end-of-line] will cycle through smart-placement options. Cycling only happens on when the command is repeated, not when it follows a different command. Smart placement means that repeated calls to this function will advance as follows: - if the cursor is not on the end-of-line, then it goes to the end-of-line - if the cursor is on the end-of-line but not the end-of-entry, then it goes to the end-of-entry, exposing it if necessary - if the cursor is on the end-of-entry, then it goes to the end of the head line In this fashion, you can use the end-of-line command to do its normal job and then, when repeated, advance through the entry, cycling back to start. If this configuration variable is nil, then the cursor is just advanced to the end of the line and remains there on repeated calls. (custom-declare-variable 'allout-end-of-line-cycles 't '(#$ . 10520) :type 'boolean :group 'allout) #@316 Leading string which helps distinguish topic headers. Outline topic header lines are identified by a leading topic header prefix, which mostly have the value of this var at their front. Level 1 topics are exceptions. They consist of only a single character, which is typically set to the `allout-primary-bullet'. (custom-declare-variable 'allout-header-prefix '"." '(#$ . 11461) :type 'string :group 'allout) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local allout-header-prefix put safe-local-variable stringp] 4) #@453 Bullet used for top-level outline topics. Outline topic header lines are identified by a leading topic header prefix, which is concluded by bullets that includes the value of this var and the respective allout-*-bullets-string vars. The value of an asterisk (`*') provides for backwards compatibility with the original Emacs outline mode. See `allout-plain-bullets-string' and `allout-distinctive-bullets-string' for the range of available bullets. (custom-declare-variable 'allout-primary-bullet '"*" '(#$ . 12012) :type 'string :group 'allout) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local allout-primary-bullet put safe-local-variable stringp] 4) #@284 The bullets normally used in outline topic prefixes. See `allout-distinctive-bullets-string' for the other kind of bullets. DO NOT include the close-square-bracket, `]', as a bullet. Outline mode has to be reactivated in order for changes to the value of this var to take effect. (custom-declare-variable 'allout-plain-bullets-string '".," '(#$ . 12702) :type 'string :group 'allout) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local allout-plain-bullets-string put safe-local-variable stringp] 4) #@1673 Persistent outline header bullets used to distinguish special topics. These bullets are distinguish topics with particular character. They are not used by default in the topic creation routines, but are offered as options when you modify topic creation with a universal argument (\[universal-argument]), or during rebulleting (\[allout-rebullet-current-heading]). Distinctive bullets are not cycled when topics are shifted or otherwise automatically rebulleted, so their marking is persistent until deliberately changed. Their significance is purely by convention, however. Some conventions suggest themselves: `(' - open paren -- an aside or incidental point `?' - question mark -- uncertain or outright question `!' - exclamation point/bang -- emphatic `[' - open square bracket -- meta-note, about item instead of item's subject `"' - double quote -- a quotation or other citation `=' - equal sign -- an assignement, equating a name with some connotation `^' - carat -- relates to something above Some are more elusive, but their rationale may be recognizable: `+' - plus -- pending consideration, completion `_' - underscore -- done, completed `&' - ampersand -- addendum, furthermore (Some other non-plain bullets have special meaning to the software. By default: `~' marks encryptable topics -- see `allout-topic-encryption-bullet' `#' marks auto-numbered bullets -- see `allout-numbered-bullet'.) See `allout-plain-bullets-string' for the standard, alternating bullets. You must run `set-allout-regexp' in order for outline mode to adopt changes of this value. DO NOT include the close-square-bracket, `]', on either of the bullet strings. (custom-declare-variable 'allout-distinctive-bullets-string '"*+-=>()[{}&!?#%\"X@$~_\\:;^" '(#$ . 13237) :type 'string :group 'allout) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local allout-distinctive-bullets-string put safe-local-variable stringp] 4) #@1305 When non-nil, use mode-specific topic-header prefixes. Allout outline mode will use the mode-specific `allout-mode-leaders' or comment-start string, if any, to lead the topic prefix string, so topic headers look like comments in the programming language. It will also use the comment-start string, with an '_' appended, for `allout-primary-bullet'. String values are used as literals, not regular expressions, so do not escape any regulare-expression characters. Value t means to first check for assoc value in `allout-mode-leaders' alist, then use comment-start string, if any, then use default (`.'). (See note about use of comment-start strings, below.) Set to the symbol for either of `allout-mode-leaders' or `comment-start' to use only one of them, respectively. Value nil means to always use the default (`.') and leave `allout-primary-bullet' unaltered. comment-start strings that do not end in spaces are tripled in the header-prefix, and an `_' underscore is tacked on the end, to distinguish them from regular comment strings. comment-start strings that do end in spaces are not tripled, but an underscore is substituted for the space. [This presumes that the space is for appearance, not comment syntax. You can use `allout-mode-leaders' to override this behavior, when undesired.] (custom-declare-variable 'allout-use-mode-specific-leader 't '(#$ . 15198) :type '(choice (const t) (const nil) string (const allout-mode-leaders) (const comment-start)) :group 'allout) (put 'allout-use-mode-specific-leader 'safe-local-variable '(lambda (x) (or (memq x '(t nil allout-mode-leaders comment-start)) (stringp x)))) #@482 Specific allout-prefix leading strings per major modes. Use this if the mode's comment-start string isn't what you prefer, or if the mode lacks a comment-start string. See `allout-use-mode-specific-leader' for more details. If you're constructing a string that will comment-out outline structuring so it can be included in program code, append an extra character, like an "_" underscore, to distinguish the lead string from regular comments that start at the beginning-of-line. (defvar allout-mode-leaders nil (#$ . 16838)) #@365 When non-nil, use only old-and-crusty `outline-mode' `*' topic prefixes. Non-nil restricts the topic creation and modification functions to asterix-padded prefixes, so they look exactly like the original Emacs-outline style prefixes. Whatever the setting of this variable, both old and new style prefixes are always respected by the topic maneuvering functions. (custom-declare-variable 'allout-old-style-prefixes 'nil '(#$ . 17372) :type 'boolean :group 'allout) (byte-code "\300\301!\210\302\301\303\304\305!\203 \305\202 \306#\207" [make-variable-buffer-local allout-old-style-prefixes put safe-local-variable fboundp booleanp (lambda (x) (member x '(t nil)))] 5) #@1433 Do fancy stuff with topic prefix bullets according to level, etc. Non-nil enables topic creation, modification, and repositioning functions to vary the topic bullet char (the char that marks the topic depth) just preceding the start of the topic text) according to level. Otherwise, only asterisks (`*') and distinctive bullets are used. This is how an outline can look (but sans indentation) with stylish prefixes: * Top level .* A topic . + One level 3 subtopic . . One level 4 subtopic . . A second 4 subtopic . + Another level 3 subtopic . #1 A numbered level 4 subtopic . #2 Another . ! Another level 4 subtopic with a different distinctive bullet . #4 And another numbered level 4 subtopic This would be an outline with stylish prefixes inhibited (but the numbered and other distinctive bullets retained): * Top level .* A topic . * One level 3 subtopic . * One level 4 subtopic . * A second 4 subtopic . * Another level 3 subtopic . #1 A numbered level 4 subtopic . #2 Another . ! Another level 4 subtopic with a different distinctive bullet . #4 And another numbered level 4 subtopic Stylish and constant prefixes (as well as old-style prefixes) are always respected by the topic maneuvering functions, regardless of this variable setting. The setting of this var is not relevant when `allout-old-style-prefixes' is non-nil. (custom-declare-variable 'allout-stylish-prefixes 't '(#$ . 18051) :type 'boolean :group 'allout) (byte-code "\300\301!\210\302\301\303\304\305!\203 \305\202 \306#\207" [make-variable-buffer-local allout-stylish-prefixes put safe-local-variable fboundp booleanp (lambda (x) (member x '(t nil)))] 5) #@310 String designating bullet of topics that have auto-numbering; nil for none. Topics having this bullet have automatic maintenance of a sibling sequence-number tacked on, just after the bullet. Conventionally set to "#", you can set it to a bullet of your choice. A nil value disables numbering maintenance. (custom-declare-variable 'allout-numbered-bullet '"#" '(#$ . 19791) :type '(choice (const nil) string) :group 'allout) (byte-code "\300\301!\210\302\301\303\304\305!\203 \305\202 \306#\207" [make-variable-buffer-local allout-numbered-bullet put safe-local-variable fboundp string-or-null-p (lambda (x) (or (stringp x) (null x)))] 5) #@140 Bullet signifying file cross-references, for `allout-resolve-xref'. Set this var to the bullet you want to use for file cross-references. (custom-declare-variable 'allout-file-xref-bullet '"@" '(#$ . 20442) :type '(choice (const nil) string) :group 'allout) (byte-code "\300\301\302\303\304!\203 \304\202 \305#\207" [put allout-file-xref-bullet safe-local-variable fboundp string-or-null-p (lambda (x) (or (stringp x) (null x)))] 5) #@69 Presentation-format white-space padding factor, for greater indent. (custom-declare-variable 'allout-presentation-padding '2 '(#$ . 20884) :type 'integer :group 'allout) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local allout-presentation-padding put safe-local-variable integerp] 4) #@155 If non-nil, `allout-flatten-exposed-to-buffer' abbreviates topic numbers to minimal amount with some context. Otherwise, entire numbers are always used. (custom-declare-variable 'allout-abbreviate-flattened-numbering 'nil '(#$ . 21202) :type 'boolean :group 'allout) #@69 Non-nil turns on page numbering for LaTeX formatting of an outline. (custom-declare-variable 'allout-number-pages 'nil '(#$ . 21476) :type 'boolean :group 'allout) #@61 Font and size of labels for LaTeX formatting of an outline. (custom-declare-variable 'allout-label-style '"\\large\\bf" '(#$ . 21646) :type 'string :group 'allout) #@62 Font and size of entries for LaTeX formatting of an outline. (custom-declare-variable 'allout-head-line-style '"\\large\\sl " '(#$ . 21816) :type 'string :group 'allout) #@62 Font and size of entries for LaTeX formatting of an outline. (custom-declare-variable 'allout-body-line-style '" " '(#$ . 21992) :type 'string :group 'allout) #@61 Font and size of titles for LaTeX formatting of an outline. (custom-declare-variable 'allout-title-style '"\\Large\\bf" '(#$ . 22157) :type 'string :group 'allout) #@77 Expression to be evaluated to determine the title for LaTeX formatted copy. (custom-declare-variable 'allout-title ''(or buffer-file-name (buffer-name)) '(#$ . 22327) :type 'sexp :group 'allout) #@57 Space between lines for LaTeX formatting of an outline. (custom-declare-variable 'allout-line-skip '".05cm" '(#$ . 22528) :type 'string :group 'allout) #@39 LaTeX formatted depth-indent spacing. (custom-declare-variable 'allout-indent '".3cm" '(#$ . 22686) :type 'string :group 'allout) (custom-declare-group 'allout-encryption nil "Settings for topic encryption features of allout outliner." :group 'allout) #@51 Bullet signifying encryption of the entry's body. (custom-declare-variable 'allout-topic-encryption-bullet '"~" '(#$ . 22944) :type '(choice (const nil) string) :version "22.1" :group 'allout-encryption) #@199 Enable use of symmetric encryption passphrase verifier if non-nil. See the docstring for the `allout-enable-file-variable-adjustment' variable for details about allout ajustment of file variables. (custom-declare-variable 'allout-passphrase-verifier-handling 't '(#$ . 23155) :type 'boolean :version "22.1" :group 'allout-encryption) (make-variable-buffer-local 'allout-passphrase-verifier-handling) #@336 Dictate outline encryption passphrase reminder handling: always -- always show reminder when prompting needed -- show reminder on passphrase entry failure disabled -- never present or adjust reminder See the docstring for the `allout-enable-file-variable-adjustment' variable for details about allout ajustment of file variables. (custom-declare-variable 'allout-passphrase-hint-handling ''always '(#$ . 23563) :type '(choice (const always) (const needed) (const disabled)) :version "22.1" :group 'allout-encryption) (make-variable-buffer-local 'allout-passphrase-hint-handling) #@1400 When saving, should topics pending encryption be encrypted? The idea is to prevent file-system exposure of any un-encrypted stuff, and mostly covers both deliberate file writes and auto-saves. - Yes: encrypt all topics pending encryption, even if it's the one currently being edited. (In that case, the currently edited topic will be automatically decrypted before any user interaction, so they can continue editing but the copy on the file system will be encrypted.) Auto-saves will use the "All except current topic" mode if this one is selected, to avoid practical difficulties -- see below. - All except current topic: skip the topic currently being edited, even if it's pending encryption. This may expose the current topic on the file sytem, but avoids the nuisance of prompts for the encryption passphrase in the middle of editing for, eg, autosaves. This mode is used for auto-saves for both this option and "Yes". - No: leave it to the user to encrypt any unencrypted topics. For practical reasons, auto-saves always use the 'except-current policy when auto-encryption is enabled. (Otherwise, spurious passphrase prompts and unavoidable timing collisions are too disruptive.) If security for a file requires that even the current topic is never auto-saved in the clear, disable auto-saves for that file. (custom-declare-variable 'allout-encrypt-unencrypted-on-saves 't '(#$ . 24155) :type '(choice (const :tag "Yes" t) (const :tag "All except current topic" except-current) (const :tag "No" nil)) :version "22.1" :group 'allout-encryption) (byte-code "\300\301!\210\302\303\304\305\306\307%\207" [make-variable-buffer-local allout-encrypt-unencrypted-on-saves custom-declare-group allout-developer nil "Settings for topic encryption features of allout outliner." :group allout] 6) #@358 When non-nil, unit tests will be run at end of loading the allout module. Generally, allout code developers are the only ones who'll want to set this. (If set, this makes it an even better practice to exercise changes by doing byte-compilation with a repeat count, so the file is loaded after compilation.) See `allout-run-unit-tests' to see what's run. (custom-declare-variable 'allout-run-unit-tests-on-load 'nil '(#$ . 26038) :type 'boolean :group 'allout-developer) #@442 If non-nil, some allout outline actions edit Emacs local file var text. This can range from changes to existing entries, addition of new ones, and creation of a new local variables section when necessary. Emacs file variables adjustments are also inhibited if `enable-local-variables' is nil. Operations potentially causing edits include allout encryption routines. For details, see `allout-toggle-current-subtree-encryption's docstring. (custom-declare-variable 'allout-enable-file-variable-adjustment 't '(#$ . 26518) :type 'boolean :group 'allout) (make-variable-buffer-local 'allout-enable-file-variable-adjustment) #@59 Version of currently loaded outline package. (allout.el) (defvar allout-version "2.2.1" (#$ . 27147)) #@54 Return string describing the loaded outline version. (defalias 'allout-version #[(&optional here) "\303P\n\203 c\210\304\305 \"\210 )\207" [allout-version msg here "Allout Outline Mode v " message "%s"] 3 (#$ . 27256) "P"]) #@38 Allout outline mode minor-mode flag. (defvar allout-mode nil (#$ . 27490)) (make-variable-buffer-local 'allout-mode) #@1015 Buffer-specific setting for allout layout. In buffers where this is non-nil (and if `allout-init' has been run, to enable this behavior), `allout-mode' will be automatically activated. The layout dictated by the value will be used to set the initial exposure when `allout-mode' is activated. *You should not setq-default this variable non-nil unless you want every visited file to be treated as an allout file.* The value would typically be set by a file local variable. For example, the following lines at the bottom of an Emacs Lisp file: ;;;Local variables: ;;;allout-layout: (0 : -1 -1 0) ;;;End: dictate activation of `allout-mode' mode when the file is visited (presuming allout-init was already run), followed by the equivalent of `(allout-expose-topic 0 : -1 -1 0)'. (This is the layout used for the allout.el source file.) `allout-default-layout' describes the specification format. `allout-layout' can additionally have the value `t', in which case the value of `allout-default-layout' is used. (defvar allout-layout nil (#$ . 27615)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local allout-layout put safe-local-variable (lambda (x) (or (numberp x) (listp x) (memq x '(: * + -))))] 4) #@216 *Regular expression to match the beginning of a heading line. Any line whose beginning matches this regexp is considered a heading. This var is set according to the user configuration vars by `set-allout-regexp'. (defvar allout-regexp "" (#$ . -28854)) (make-variable-buffer-local 'allout-regexp) #@247 A string dictating the valid set of outline topic bullets. This var should *not* be set by the user -- it is set by `set-allout-regexp', and is produced from the elements of `allout-plain-bullets-string' and `allout-distinctive-bullets-string'. (defvar allout-bullets-string "" (#$ . 29160)) (make-variable-buffer-local 'allout-bullets-string) #@59 Length of current buffers' `allout-plain-bullets-string'. (defvar allout-bullets-string-len 0 (#$ . 29511)) (make-variable-buffer-local 'allout-bullets-string-len) #@455 *Regular expression to match a heading line prefix for a particular depth. This expression is used to search for depth-specific topic headers at depth 2 and greater. Use `allout-depth-one-regexp' for to seek topics at depth one. This var is set according to the user configuration vars by `set-allout-regexp'. It is prepared with format strings for two decimal numbers, which should each be one less than the depth of the topic prefix to be matched. (defvar allout-depth-specific-regexp "" (#$ . -29682)) (make-variable-buffer-local 'allout-depth-specific-regexp) #@290 *Regular expression to match a heading line prefix for depth one. This var is set according to the user configuration vars by `set-allout-regexp'. It is prepared with format strings for two decimal numbers, which should each be one less than the depth of the topic prefix to be matched. (defvar allout-depth-one-regexp "" (#$ . -30257)) (make-variable-buffer-local 'allout-depth-one-regexp) #@111 `allout-regexp' prepended with a newline for the search target. This is properly set by `set-allout-regexp'. (defvar allout-line-boundary-regexp nil (#$ . 30657)) (make-variable-buffer-local 'allout-line-boundary-regexp) #@73 Like `allout-line-boundary-regexp', for headers at beginning of buffer. (defvar allout-bob-regexp nil (#$ . 30885)) (make-variable-buffer-local 'allout-bob-regexp) #@69 Allout-header prefix length to subtract when computing topic depth. (defvar allout-header-subtraction (byte-code "GS\207" [allout-header-prefix] 1) (#$ . 31055)) (make-variable-buffer-local 'allout-header-subtraction) #@74 Length of `allout-plain-bullets-string', updated by `set-allout-regexp'. (defvar allout-plain-bullets-string-len (length allout-plain-bullets-string) (#$ . 31280)) (make-variable-buffer-local 'allout-plain-bullets-string-len) #@1272 Validate apparent topics of this depth and shallower as being non-aberrant. Verified with `allout-aberrant-container-p'. The usefulness of this check is limited to shallow depths, because the determination of aberrance is according to the mistaken item being followed by a legitimate item of excessively greater depth. The classic example of a mistaken item, for a standard allout outline configuration, is a body line that begins with an '...' ellipsis. This happens to contain a legitimate depth-2 header prefix, constituted by two '..' dots at the beginning of the line. The only thing that can distinguish it *in principle* from a legitimate one is if the following real header is at a depth that is discontinuous from the depth of 2 implied by the ellipsis, ie depth 4 or more. As the depth being tested gets greater, the likelihood of this kind of disqualification is lower, and the usefulness of this test is lower. Extending the depth of the doublecheck increases the amount it is applied, increasing the cost of the test - on casual estimation, for outlines with many deep topics, geometrically (O(n)?). Taken together with decreasing likelihood that the test will be useful at greater depths, more modest doublecheck limits are more suitably economical. (defconst allout-doublecheck-at-and-shallower 3 (#$ . 31514)) #@58 Reset the leading string used to identify topic headers. (defalias 'allout-reset-header-lead #[(header-lead) "\211GS\303 \207" [header-lead allout-header-prefix allout-header-subtraction set-allout-regexp] 2 (#$ . 32853) "sNew lead string: "]) #@170 Set the topic-header leading string to specified string. Useful when for encapsulating outline structure in programming language comments. Returns the leading string. (defalias 'allout-lead-with-comment-string #[(&optional header-lead) ";\204 \302\303!\304\305!\210\207" [header-lead allout-reindent-bodies read-string "String prefix for topic headers: " nil allout-reset-header-lead] 2 (#$ . 33107) "P"]) #@326 Determine appropriate `allout-header-prefix' and `allout-primary-bullet'. Works according to settings of: `comment-start' `allout-header-prefix' (default) `allout-use-mode-specific-leader' and `allout-mode-leaders'. Apply this via (re)activation of `allout-mode', rather than invoking it directly. (defalias 'allout-infer-header-lead-and-primary-bullet #[nil "\306\300!\205 ;\204 \307>\203 \202 \310\211\204 \311\202W ;\203( \202W \312>\2035 \n\236A\206W \313>\205W \f\205W \f\211GS\311O\314\230\203Q \f\315\316O\202U \f\211\211Q\317P\211\205i \204g *\207" [allout-use-mode-specific-leader use-leader major-mode allout-mode-leaders comment-start leader boundp (allout-mode-leaders comment-start t) t nil (t allout-mode-leaders) (t comment-start) " " 0 -1 "_" allout-header-prefix allout-old-style-prefixes allout-primary-bullet] 4 (#$ . 33528)]) (defalias 'allout-infer-header-lead 'allout-infer-header-lead-and-primary-bullet) #@215 Determine proper setting for `allout-reindent-bodies'. Depends on default setting of `allout-reindent-bodies' (which see) and presence of setting for `comment-start', to tell whether the file is programming code. (defalias 'allout-infer-body-reindent #[nil "\205 \205 \302=?\205 \303\211\207" [allout-reindent-bodies comment-start force nil] 2 (#$ . 34515)]) #@223 Generate proper topic-header regexp form for outline functions. Works with respect to `allout-plain-bullets-string' and `allout-distinctive-bullets-string'. Also refresh various data structures that hinge on the regexp. (defalias 'set-allout-regexp #[nil "\306\307\310\311E\312\211\211\211\211\203P \313 @J\211G W\203I \f H\n\314=\2031 \315\202@ \n\316=\203; \306\202@ \317\320\n!!P T\211\202 A\211\204 -G%&GS'\312\211\211()*\321\317&!\322\323\324\325\260*\321\317 !\326\317&!\325\327\330 \324\260 )\331(*\326)\326(\260+\332*\326\332)\326\332(\260,\333*\326\333)\326\333(\260-\334\321\211\335\317&!!\336\323\335!\324\325\313'W\203\317 \306\202\353 \337\335\317 !!\335\317 !!\335\317 !!\340\341\335 !\342\260\325\260.\334\321\211\317&!\343\344\324Q\325\313'W\203\306\202\326\317 !\341 \324\260\325\260 \211/+\207" [allout-bullets-string index cur-char cur-len cur-string strings "" allout-plain-bullets-string allout-distinctive-bullets-string allout-primary-bullet nil 0 45 "--" 93 regexp-quote char-to-string "\\(" "[ ]*" "[" "]" "\\)" "\\|" "+" " ?[^" "\\(\f\\)" "\n" "\\`" "\\(^\\|\\`\\)" allout-format-quote " \\{%s\\}" "\\|\\(" "\\{%s\\}" "[^" "]\\)" " *" "[^ " allout-plain-bullets-string-len allout-header-prefix allout-header-subtraction formfeed-part old-part new-part allout-regexp allout-line-boundary-regexp allout-bob-regexp allout-depth-specific-regexp allout-depth-one-regexp] 18 (#$ . 34889) nil]) #@46 Keybindings for (allout) outline minor mode. (defvar allout-mode-map nil (#$ . 36383)) #@212 Produce keymap for use as `allout-mode-map', from KEYMAP-LIST. Built on top of optional BASE-MAP, or empty sparse map if none specified. See doc string for `allout-keybindings-list' for format of binding list. (defalias 'produce-allout-mode-map #[(keymap-list &optional base-map) "\206 \305 C\306\307\f\"\210*\207" [base-map allout-command-prefix pref map keymap-list make-sparse-keymap mapc #[(cell) "AA?@C\305\306\305\307\n\203 \310\f \"\202 \"A@E\"*\207" [cell key-suff add-pref map pref apply define-key vconcat append] 8]] 3 (#$ . 36477)]) (defalias 'produce-allout-mode-menubar-entries #[nil "\301\302!\210\303\304\305\306#\210\307\304!\204 \310\304\311\"\210\312\304\306\313$\210\303\314\305\315#\210\307\314!\204- \310\314\311\"\210\312\314\315\316$\210\303\317\305\320#\210\307\317!\204E \310\317\311\"\210\312\317\320\321$\210\303\322\305\323#\210\307\322!\204] \310\322\311\"\210\312\322\323\324$\207" [allout-mode-map require easymenu put allout-mode-exposure-menu variable-documentation "Allout outline exposure menu." default-boundp set-default nil easy-menu-do-define ("Exposure" ["Show Entry" allout-show-current-entry t] ["Show Children" allout-show-children t] ["Show Subtree" allout-show-current-subtree t] ["Hide Subtree" allout-hide-current-subtree t] ["Hide Leaves" allout-hide-current-leaves t] "----" ["Show All" allout-show-all t]) allout-mode-editing-menu "Allout outline editing menu." ("Headings" ["Open Sibling" allout-open-sibtopic t] ["Open Subtopic" allout-open-subtopic t] ["Open Supertopic" allout-open-supertopic t] "----" ["Shift Topic In" allout-shift-in t] ["Shift Topic Out" allout-shift-out t] ["Rebullet Topic" allout-rebullet-topic t] ["Rebullet Heading" allout-rebullet-current-heading t] ["Number Siblings" allout-number-siblings t] "----" ["Toggle Topic Encryption" allout-toggle-current-subtree-encryption (> (allout-current-depth) 1)]) allout-mode-navigation-menu "Allout outline navigation menu." ("Navigation" ["Next Visible Heading" allout-next-visible-heading t] ["Previous Visible Heading" allout-previous-visible-heading t] "----" ["Up Level" allout-up-current-level t] ["Forward Current Level" allout-forward-current-level t] ["Backward Current Level" allout-backward-current-level t] "----" ["Beginning of Entry" allout-beginning-of-current-entry t] ["End of Entry" allout-end-of-entry t] ["End of Subtree" allout-end-of-current-subtree t]) allout-mode-misc-menu "Allout outlines miscellaneous bindings." ("Misc" ["Version" allout-version t] "----" ["Duplicate Exposed" allout-copy-exposed-to-buffer t] ["Duplicate Exposed, numbered" allout-flatten-exposed-to-buffer t] ["Duplicate Exposed, indented" allout-indented-exposed-to-buffer t] "----" ["Set Header Lead" allout-reset-header-lead t] ["Set New Exposure" allout-expose-topic t])] 5]) #@133 Internal `allout-mode' use; settings to be resumed on mode deactivation. See `allout-add-resumptions' and `allout-do-resumptions'. (defvar allout-mode-prior-settings nil (#$ . 39301)) (make-variable-buffer-local 'allout-mode-prior-settings) #@1124 Set name/value PAIRS. Old settings are preserved for later resumption using `allout-do-resumptions'. The new values are set as a buffer local. On resumption, the prior buffer scope of the variable is restored along with its value. If it was a void buffer-local value, then it is left as nil on resumption. The pairs are lists whose car is the name of the variable and car of the cdr is the new value: '(some-var some-value)'. The pairs can actually be triples, where the third element qualifies the disposition of the setting, as described further below. If the optional third element is the symbol 'extend, then the new value created by `cons'ing the second element of the pair onto the front of the existing value. If the optional third element is the symbol 'append, then the new value is extended from the existing one by `append'ing a list containing the second element of the pair onto the end of the existing value. Extension, and resumptions in general, should not be used for hook functions -- use the 'local mode of `add-hook' for that, instead. The settings are stored on `allout-mode-prior-settings'. (defalias 'allout-add-resumptions #[(&rest pairs) "\205\256 \211A@\211@ \211A@) G\306V\205\"