Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.171
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
cedet
[ 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
image
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
leim
[ 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
vc
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
537
B
-rw-r--r--
abbrev.elc
34.55
KB
-rw-r--r--
align.elc
39.88
KB
-rw-r--r--
allout-widgets.elc
62.37
KB
-rw-r--r--
allout.elc
203.33
KB
-rw-r--r--
ansi-color.elc
17.12
KB
-rw-r--r--
apropos.elc
37.42
KB
-rw-r--r--
arc-mode.elc
58.06
KB
-rw-r--r--
array.elc
27.07
KB
-rw-r--r--
auth-source-pass.elc
11.68
KB
-rw-r--r--
auth-source.elc
64.32
KB
-rw-r--r--
autoarg.elc
6.63
KB
-rw-r--r--
autoinsert.elc
13.41
KB
-rw-r--r--
autorevert.elc
30.71
KB
-rw-r--r--
avoid.elc
11.62
KB
-rw-r--r--
battery.elc
24.42
KB
-rw-r--r--
bindings.elc
42.76
KB
-rw-r--r--
bookmark.elc
77.09
KB
-rw-r--r--
bs.elc
49.32
KB
-rw-r--r--
buff-menu.elc
27.02
KB
-rw-r--r--
button.elc
14.97
KB
-rw-r--r--
calculator.elc
53.9
KB
-rw-r--r--
case-table.elc
4.99
KB
-rw-r--r--
cdl.elc
1.07
KB
-rw-r--r--
char-fold.elc
311.81
KB
-rw-r--r--
chistory.elc
8.16
KB
-rw-r--r--
cmuscheme.elc
18.07
KB
-rw-r--r--
color.elc
12.83
KB
-rw-r--r--
comint.elc
114.46
KB
-rw-r--r--
completion.elc
41.12
KB
-rw-r--r--
composite.elc
27.94
KB
-rw-r--r--
cus-dep.elc
6.42
KB
-rw-r--r--
cus-edit.elc
139.04
KB
-rw-r--r--
cus-face.elc
10.54
KB
-rw-r--r--
cus-load.el
85.19
KB
-rw-r--r--
cus-start.elc
21.92
KB
-rw-r--r--
cus-theme.elc
25.05
KB
-rw-r--r--
custom.elc
47.41
KB
-rw-r--r--
dabbrev.elc
22.28
KB
-rw-r--r--
delim-col.elc
8.95
KB
-rw-r--r--
delsel.elc
9.2
KB
-rw-r--r--
descr-text.elc
26.87
KB
-rw-r--r--
desktop.elc
47.64
KB
-rw-r--r--
dframe.elc
19.92
KB
-rw-r--r--
dired-aux.elc
85.75
KB
-rw-r--r--
dired-loaddefs.el
22.29
KB
-rw-r--r--
dired-x.elc
44.53
KB
-rw-r--r--
dired.elc
127.27
KB
-rw-r--r--
dirtrack.elc
7.75
KB
-rw-r--r--
disp-table.elc
8.76
KB
-rw-r--r--
display-fill-column-indicator....
8.32
KB
-rw-r--r--
display-line-numbers.elc
8.67
KB
-rw-r--r--
dnd.elc
7.13
KB
-rw-r--r--
doc-view.elc
65.25
KB
-rw-r--r--
dom.elc
7.36
KB
-rw-r--r--
dos-fns.elc
6.14
KB
-rw-r--r--
dos-vars.elc
1.1
KB
-rw-r--r--
dos-w32.elc
11.67
KB
-rw-r--r--
double.elc
4.34
KB
-rw-r--r--
dynamic-setting.elc
2.2
KB
-rw-r--r--
ebuff-menu.elc
10.46
KB
-rw-r--r--
echistory.elc
4.75
KB
-rw-r--r--
ecomplete.elc
7.1
KB
-rw-r--r--
edmacro.elc
19.94
KB
-rw-r--r--
ehelp.elc
11.32
KB
-rw-r--r--
elec-pair.elc
21.41
KB
-rw-r--r--
electric.elc
23.69
KB
-rw-r--r--
elide-head.elc
2.65
KB
-rw-r--r--
emacs-lock.elc
9.29
KB
-rw-r--r--
env.elc
6.12
KB
-rw-r--r--
epa-dired.elc
1.62
KB
-rw-r--r--
epa-file.elc
8.65
KB
-rw-r--r--
epa-hook.elc
4.63
KB
-rw-r--r--
epa-mail.elc
9.43
KB
-rw-r--r--
epa.elc
45.25
KB
-rw-r--r--
epg-config.elc
8.97
KB
-rw-r--r--
epg.elc
166.06
KB
-rw-r--r--
expand.elc
9.07
KB
-rw-r--r--
ezimage.elc
9.65
KB
-rw-r--r--
face-remap.elc
16.58
KB
-rw-r--r--
facemenu.elc
27.89
KB
-rw-r--r--
faces.elc
90.21
KB
-rw-r--r--
ffap.elc
50.3
KB
-rw-r--r--
filecache.elc
16.69
KB
-rw-r--r--
fileloop.elc
6.62
KB
-rw-r--r--
filenotify.elc
28.49
KB
-rw-r--r--
files-x.elc
21.9
KB
-rw-r--r--
files.elc
236.95
KB
-rw-r--r--
filesets.elc
72.57
KB
-rw-r--r--
find-cmd.elc
4.9
KB
-rw-r--r--
find-dired.elc
10.41
KB
-rw-r--r--
find-file.elc
18.33
KB
-rw-r--r--
find-lisp.elc
7.66
KB
-rw-r--r--
finder-inf.el
41.27
KB
-rw-r--r--
finder.elc
14.73
KB
-rw-r--r--
flow-ctrl.elc
2.26
KB
-rw-r--r--
foldout.elc
7.25
KB
-rw-r--r--
follow.elc
40.63
KB
-rw-r--r--
font-core.elc
12.41
KB
-rw-r--r--
font-lock.elc
61.63
KB
-rw-r--r--
format-spec.elc
3.93
KB
-rw-r--r--
format.elc
27.56
KB
-rw-r--r--
forms.elc
35.1
KB
-rw-r--r--
frame.elc
85.94
KB
-rw-r--r--
frameset.elc
48.02
KB
-rw-r--r--
fringe.elc
10.23
KB
-rw-r--r--
generic-x.elc
40.27
KB
-rw-r--r--
help-at-pt.elc
11.15
KB
-rw-r--r--
help-fns.elc
45.35
KB
-rw-r--r--
help-macro.elc
4.25
KB
-rw-r--r--
help-mode.elc
23.89
KB
-rw-r--r--
help.elc
52.22
KB
-rw-r--r--
hex-util.elc
1.3
KB
-rw-r--r--
hexl.elc
35.39
KB
-rw-r--r--
hfy-cmap.elc
25.45
KB
-rw-r--r--
hi-lock.elc
29.38
KB
-rw-r--r--
hilit-chg.elc
28.77
KB
-rw-r--r--
hippie-exp.elc
21.52
KB
-rw-r--r--
hl-line.elc
11.23
KB
-rw-r--r--
htmlfontify-loaddefs.el
808
B
-rw-r--r--
htmlfontify.elc
67.51
KB
-rw-r--r--
ibuf-ext.elc
77.15
KB
-rw-r--r--
ibuf-macs.elc
12.47
KB
-rw-r--r--
ibuffer-loaddefs.el
12.68
KB
-rw-r--r--
ibuffer.elc
98.62
KB
-rw-r--r--
icomplete.elc
22.83
KB
-rw-r--r--
ido.elc
127.92
KB
-rw-r--r--
ielm.elc
19.2
KB
-rw-r--r--
iimage.elc
4.92
KB
-rw-r--r--
image-dired.elc
92.97
KB
-rw-r--r--
image-file.elc
6.53
KB
-rw-r--r--
image-mode.elc
42.56
KB
-rw-r--r--
image.elc
34.45
KB
-rw-r--r--
imenu.elc
24.94
KB
-rw-r--r--
indent.elc
23.63
KB
-rw-r--r--
info-look.elc
28.18
KB
-rw-r--r--
info-xref.elc
16.59
KB
-rw-r--r--
info.elc
144.48
KB
-rw-r--r--
informat.elc
9.73
KB
-rw-r--r--
isearch.elc
147.85
KB
-rw-r--r--
isearchb.elc
4.73
KB
-rw-r--r--
jit-lock.elc
23.49
KB
-rw-r--r--
jka-cmpr-hook.elc
13.07
KB
-rw-r--r--
jka-compr.elc
12.09
KB
-rw-r--r--
json.elc
22.76
KB
-rw-r--r--
jsonrpc.elc
31.65
KB
-rw-r--r--
kermit.elc
2.92
KB
-rw-r--r--
kmacro.elc
35.15
KB
-rw-r--r--
ldefs-boot.el
1.41
MB
-rw-r--r--
linum.elc
10.77
KB
-rw-r--r--
loaddefs.el
1.41
MB
-rw-r--r--
loadhist.elc
9.77
KB
-rw-r--r--
loadup.el
20.08
KB
-rw-r--r--
locate.elc
19.57
KB
-rw-r--r--
lpr.elc
9.44
KB
-rw-r--r--
ls-lisp.elc
22.7
KB
-rw-r--r--
macros.elc
7.23
KB
-rw-r--r--
makesum.elc
2.47
KB
-rw-r--r--
man.elc
53.85
KB
-rw-r--r--
master.elc
4.58
KB
-rw-r--r--
mb-depth.elc
3.56
KB
-rw-r--r--
md4.elc
8.12
KB
-rw-r--r--
menu-bar.elc
86.61
KB
-rw-r--r--
midnight.elc
10.22
KB
-rw-r--r--
minibuf-eldef.elc
6.43
KB
-rw-r--r--
minibuffer.elc
104.08
KB
-rw-r--r--
misc.elc
5.4
KB
-rw-r--r--
misearch.elc
12.37
KB
-rw-r--r--
mouse-copy.elc
3.61
KB
-rw-r--r--
mouse-drag.elc
6.43
KB
-rw-r--r--
mouse.elc
71.3
KB
-rw-r--r--
mpc.elc
79.29
KB
-rw-r--r--
msb.elc
26.76
KB
-rw-r--r--
mwheel.elc
12.83
KB
-rw-r--r--
newcomment.elc
39.43
KB
-rw-r--r--
notifications.elc
13.78
KB
-rw-r--r--
novice.elc
4.43
KB
-rw-r--r--
obarray.elc
1.71
KB
-rw-r--r--
outline.elc
37.04
KB
-rw-r--r--
paren.elc
8.69
KB
-rw-r--r--
password-cache.elc
3.57
KB
-rw-r--r--
pcmpl-cvs.elc
6.17
KB
-rw-r--r--
pcmpl-gnu.elc
12.96
KB
-rw-r--r--
pcmpl-linux.elc
3.09
KB
-rw-r--r--
pcmpl-rpm.elc
11.17
KB
-rw-r--r--
pcmpl-unix.elc
7.52
KB
-rw-r--r--
pcmpl-x.elc
8.95
KB
-rw-r--r--
pcomplete.elc
36.16
KB
-rw-r--r--
pixel-scroll.elc
10.82
KB
-rw-r--r--
plstore.elc
14.75
KB
-rw-r--r--
printing.elc
157.7
KB
-rw-r--r--
proced.elc
62.85
KB
-rw-r--r--
profiler.elc
42.81
KB
-rw-r--r--
ps-bdf.elc
12.69
KB
-rw-r--r--
ps-def.elc
2.23
KB
-rw-r--r--
ps-mule.elc
34.89
KB
-rw-r--r--
ps-print-loaddefs.el
2.6
KB
-rw-r--r--
ps-print.elc
141.17
KB
-rw-r--r--
ps-samp.elc
5.26
KB
-rw-r--r--
recentf.elc
48.73
KB
-rw-r--r--
rect.elc
26.88
KB
-rw-r--r--
register.elc
27.63
KB
-rw-r--r--
registry.elc
10.41
KB
-rw-r--r--
repeat.elc
5.14
KB
-rw-r--r--
replace.elc
84.62
KB
-rw-r--r--
reposition.elc
2.66
KB
-rw-r--r--
reveal.elc
7.16
KB
-rw-r--r--
rfn-eshadow.elc
7.23
KB
-rw-r--r--
rot13.elc
2.56
KB
-rw-r--r--
rtree.elc
4.09
KB
-rw-r--r--
ruler-mode.elc
21.87
KB
-rw-r--r--
savehist.elc
10.83
KB
-rw-r--r--
saveplace.elc
11.87
KB
-rw-r--r--
sb-image.elc
2.75
KB
-rw-r--r--
scroll-all.elc
4.41
KB
-rw-r--r--
scroll-bar.elc
16.68
KB
-rw-r--r--
scroll-lock.elc
5.41
KB
-rw-r--r--
select.elc
18.75
KB
-rw-r--r--
server.elc
47.56
KB
-rw-r--r--
ses.elc
131.12
KB
-rw-r--r--
shadowfile.elc
31.16
KB
-rw-r--r--
shell.elc
41.53
KB
-rw-r--r--
simple.elc
301.78
KB
-rw-r--r--
skeleton.elc
15.76
KB
-rw-r--r--
so-long.elc
47.15
KB
-rw-r--r--
sort.elc
15.49
KB
-rw-r--r--
soundex.elc
1.14
KB
-rw-r--r--
speedbar.elc
115.02
KB
-rw-r--r--
startup.elc
68.51
KB
-rw-r--r--
strokes.elc
44.03
KB
-rw-r--r--
subdirs.el
450
B
-rw-r--r--
subr.elc
186.63
KB
-rw-r--r--
svg.elc
12.71
KB
-rw-r--r--
t-mouse.elc
3.8
KB
-rw-r--r--
tab-bar.elc
52.48
KB
-rw-r--r--
tab-line.elc
29.85
KB
-rw-r--r--
tabify.elc
2.17
KB
-rw-r--r--
talk.elc
2.99
KB
-rw-r--r--
tar-mode.elc
57.2
KB
-rw-r--r--
tempo.elc
19.18
KB
-rw-r--r--
term.elc
107.99
KB
-rw-r--r--
thingatpt.elc
16.88
KB
-rw-r--r--
thread.elc
8.08
KB
-rw-r--r--
thumbs.elc
25.74
KB
-rw-r--r--
time-stamp.elc
18.69
KB
-rw-r--r--
time.elc
20.87
KB
-rw-r--r--
timezone.elc
10.94
KB
-rw-r--r--
tmm.elc
13.39
KB
-rw-r--r--
tool-bar.elc
9.76
KB
-rw-r--r--
tooltip.elc
13.19
KB
-rw-r--r--
tree-widget.elc
19.84
KB
-rw-r--r--
tutorial.elc
22.28
KB
-rw-r--r--
type-break.elc
37.35
KB
-rw-r--r--
uniquify.elc
17.68
KB
-rw-r--r--
userlock.elc
6.33
KB
-rw-r--r--
vcursor.elc
23.92
KB
-rw-r--r--
version.elc
6.01
KB
-rw-r--r--
view.elc
34.69
KB
-rw-r--r--
vt-control.elc
1.99
KB
-rw-r--r--
vt100-led.elc
1.33
KB
-rw-r--r--
w32-fns.elc
11.01
KB
-rw-r--r--
w32-vars.elc
5.16
KB
-rw-r--r--
wdired.elc
23.52
KB
-rw-r--r--
whitespace.elc
69.06
KB
-rw-r--r--
wid-browse.elc
8.48
KB
-rw-r--r--
wid-edit.elc
99.52
KB
-rw-r--r--
widget.elc
1.4
KB
-rw-r--r--
windmove.elc
19.82
KB
-rw-r--r--
window.elc
294.5
KB
-rw-r--r--
winner.elc
12.04
KB
-rw-r--r--
woman.elc
109.43
KB
-rw-r--r--
x-dnd.elc
19.56
KB
-rw-r--r--
xdg.elc
10.14
KB
-rw-r--r--
xml.elc
25.31
KB
-rw-r--r--
xt-mouse.elc
14.1
KB
-rw-r--r--
xwidget.elc
18.9
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : allout-widgets.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require allout widget wid-edit] 2) #@46 Allout mode enhanced with graphical widgets. (defvar allout-widgets-mode nil (#$ . 497)) (byte-code "\300\301!\210\302\303\304\305\306\307%\210\302\310\304\311\306\303%\207" [make-variable-buffer-local allout-widgets-mode custom-declare-group allout-widgets nil "Allout extension that highlights outline structure graphically.\n\nCustomize `allout-widgets-auto-activation' to activate allout-widgets\nwith allout-mode." :group allout allout-widgets-developer "Settings for development of allout widgets extension."] 6) #@146 Enable allout-widgets-mode in allout-mode buffers. See `allout-widgets-mode-inhibit' for per-file/per-buffer inhibition of allout-widgets-mode. (defalias 'allout-widgets-mode-enable #[nil "\300\301\302\"\210\300\303\304\"\210\305\207" [add-hook allout-mode-off-hook allout-widgets-mode-off allout-mode-on-hook allout-widgets-mode-on t] 3 (#$ . 1023)]) #@147 Disable allout-widgets-mode in allout-mode buffers. See `allout-widgets-mode-inhibit' for per-file/per-buffer inhibition of allout-widgets-mode. (defalias 'allout-widgets-mode-disable #[nil "\300\301\302\"\210\300\303\304\"\210\305\207" [remove-hook allout-mode-off-hook allout-widgets-mode-off allout-mode-on-hook allout-widgets-mode-on t] 3 (#$ . 1383)]) #@144 Commission or decommission allout-widgets-mode along with allout-mode. Meant to be used by customization of `allout-widgets-auto-activation'. (defalias 'allout-widgets-setup #[(varname value) "\303 \"\210\n\203\f \304 \207\305 \207" [varname value allout-widgets-auto-activation set-default allout-widgets-mode-enable allout-widgets-mode-disable] 3 (#$ . 1748)]) (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313& \210\300\314\315\316\304\305\306\317\310\311& \210\300\320\321\322\304\305\306\317\310\311& \210\300\323\324\325\304\305\306\326\310\311& \210\300\327\330\331\304\305\306\332\310\311& \210\300\333\334\335\304\305\306\336\310\311& \210\300\337\340\341\304\305\306\342\310\311& \210\300\343\302\344\304\305\306\342\310\311& \210\300\345\302\346\304\305\306\307\310\347& \210\300\350\302\351\304\305\306\307\310\347& \210\300\352\353\354\304\305\306\355\310\347& \210\300\356\302\357\304\305\306\307\310\347& \207" [custom-declare-variable allout-widgets-auto-activation nil "Activate to enable allout icon graphics wherever allout mode is active.\n\nAlso enable `allout-auto-activation' for this to take effect upon\nvisiting an outline.\n\nWhen this is set you can disable allout widgets in select files\nby setting `allout-widgets-mode-inhibit'.\n\nInstead of setting `allout-widgets-auto-activation' you can\nexplicitly invoke `allout-widgets-mode' in allout buffers where\nyou want allout widgets operation.\n\nSee `allout-widgets-mode' for allout widgets mode features." :version "24.1" :type boolean :group allout-widgets :set allout-widgets-setup allout-widgets-icons-dark-subdir "icons/allout-widgets/dark-bg/" "Directory on `image-load-path' holding allout icons for dark backgrounds." string allout-widgets-icons-light-subdir "icons/allout-widgets/light-bg/" "Directory on `image-load-path' holding allout icons for light backgrounds." allout-widgets-icon-types '(xpm png) "File extensions for the icon graphic format types, in order of preference." (repeat symbol) allout-widgets-theme-dark-background "allout-dark-bg" "Identify the outline's icon theme to use with a dark background." (string) allout-widgets-theme-light-background "allout-light-bg" "Identify the outline's icon theme to use with a light background." (string) allout-widgets-item-image-properties-emacs '(:ascent center :mask (heuristic t)) "Default properties item widget images in mainline Emacs." plist allout-widgets-item-image-properties-xemacs "Default properties item widget images in XEmacs." allout-widgets-run-unit-tests-on-load "When non-nil, unit tests will be run at end of loading allout-widgets.\n\nGenerally, allout widgets code developers are the only ones who'll want to\nset this.\n\n(If set, this makes it an even better practice to exercise changes by\ndoing byte-compilation with a repeat count, so the file is loaded after\ncompilation.)\n\nSee `allout-widgets-run-unit-tests' to see what's run." allout-widgets-developer allout-widgets-time-decoration-activity "Retain timing info of the last cooperative redecoration.\n\nThe details are retained as the value of\n`allout-widgets-last-decoration-timing'.\n\nGenerally, allout widgets code developers are the only ones who'll want to\nset this." allout-widgets-hook-error-post-time 0 "Amount of time to sit showing hook error messages.\n\n0 is minimal, or nil to not post to the message area.\n\nThis is for debugging purposes." integer allout-widgets-maintain-tally "If non-nil, maintain a collection of widgets, `allout-widgets-tally'.\n\nThis is for debugging purposes.\n\nThe tally shows the total number of item widgets in the current\nbuffer, and tracking increases as new widgets are added and\ndecreases as obsolete widgets are garbage collected."] 12) #@234 Hash-table of existing allout widgets, for debugging. Table is maintained only if `allout-widgets-maintain-tally' is non-nil. The table contents will be out of sync if any widgets are created or deleted while this variable is nil. (defvar allout-widgets-tally nil (#$ . 5493)) (make-variable-buffer-local 'allout-widgets-tally) #@396 Return a string giving the number of tracked widgets, or empty string if not tracking. The string is formed for appending to the allout-mode mode-line lighter. An empty string is also returned if tracking is inhibited or widgets are locally inhibited. The number varies according to the evanescence of objects on a hash table with weak keys, so tracking of widget erasures is often delayed. (defalias 'allout-widgets-tally-string #[nil "\205 ?\205 \n\205 \303\304\305\n!\"\207" [allout-widgets-maintain-tally allout-widgets-mode-inhibit allout-widgets-tally format ":%s" hash-table-count] 4 (#$ . 5830)]) (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\301!\207" [custom-declare-variable allout-widgets-track-decoration nil "If non-nil, show cursor position of each item decoration.\n\nThis is for debugging purposes, and generally set at need in a\nbuffer rather than as a prevailing configuration (but it's handy\nto publicize it by making it a customization variable)." :version "24.1" :type boolean :group allout-widgets-developer make-variable-buffer-local] 10) #@55 Version of currently loaded allout-widgets extension. (defvar allout-widgets-version "1.0" (#$ . 6927)) #@54 Return string describing the loaded outline version. (defalias 'allout-widgets-version #[(&optional here) "\303P\n\203 c\210\304\305 \"\210 )\207" [allout-widgets-version msg here "Allout Outline Widgets Extension v " message "%s"] 3 (#$ . 7037) "P"]) #@476 Inhibit `allout-widgets-mode' from activating widgets. This also inhibits automatic adjustment of widgets to track allout outline changes. You can use this as a file local variable setting to disable allout widgets enhancements in selected buffers while generally enabling widgets by customizing `allout-widgets-auto-activation'. In addition, you can invoked `allout-widgets-mode' allout-mode buffers where this is set to enable and disable widget enhancements, directly. (defvar allout-widgets-mode-inhibit nil (#$ . 7300)) (byte-code "\300\301\302\303\304!\203 \304\202 \305#\210\306\301!\207" [put allout-widgets-mode-inhibit safe-local-variable fboundp booleanp #[(x) "\301>\207" [x (t nil)] 2] make-variable-buffer-local] 5) #@250 Override de-escaping of text-prefixes in item bodies during specific changes. This is used by `allout-buffer-modification-handler' to signal such changes to `allout-body-modification-handler', and is always reset by `allout-post-command-business'. (defvar allout-inhibit-body-modification-hook nil (#$ . 8043)) (make-variable-buffer-local 'allout-inhibit-body-modification-hook) #@314 Cache allout icon images, as an association list. `allout-fetch-icon-image' uses this cache transparently, keying images with lists containing the name of the icon directory (as found on the `load-path') and the icon name. Set this variable to nil to empty the cache, and have it replenish from the filesystem. (defvar allout-widgets-icons-cache nil (#$ . 8430)) #@123 Tell `allout-widgets-post-command-business' to unset `inhibit-read-only'. Used by `allout-graphics-modification-handler' (defvar allout-widgets-unset-inhibit-read-only nil (#$ . 8802)) #@167 Tell `allout-widgets-post-command-business' to reequip the handler. Necessary because the handler sometimes deliberately raises an error, causing it to be disabled. (defvar allout-widgets-reenable-before-change-handler nil (#$ . 8995)) #@153 List of body-overlays that did before-change business but not after-change. See `allout-post-command-business' and `allout-body-modification-handler'. (defvar allout-unresolved-body-mod-workroster (make-hash-table :size 16) (#$ . 9239)) #@139 Informative message presented on improper editing of outline structure. The structure includes the guides lines, bullet, and bullet cue. (defvar allout-structure-unruly-deletion-message "Unruly edit prevented --\nTo change the bullet character: \\[allout-rebullet-current-heading]\nTo promote this item: \\[allout-shift-out]\nTo demote it: \\[allout-shift-in]\nTo delete it and offspring: \\[allout-kill-topic]\nSee \\[describe-mode] for many more options." (#$ . 9484)) #@386 Record outline changes for processing by post-command hook. Entries on the list are lists whose first element is a symbol indicating the change type and subsequent elements are data specific to that change type. For example: (exposure ALLOUT-EXPOSURE-FROM ALLOUT-EXPOSURE-TO ALLOUT-EXPOSURE-FLAG) The changes are recorded in reverse order, with new values pushed onto the front. (defvar allout-widgets-changes-record nil (#$ . 9963)) (make-variable-buffer-local 'allout-widgets-changes-record) #@148 Record outline undo traces for processing by post-command hook. The changes are recorded in reverse order, with new values pushed onto the front. (defvar allout-widgets-undo-exposure-record nil (#$ . 10470)) (make-variable-buffer-local 'allout-widgets-undo-exposure-record) #@59 String holding last error string, for debugging purposes. (defvar allout-widgets-last-hook-error nil (#$ . 10751)) #@75 Display "Adjusting widgets" message above this number of pending changes. (defvar allout-widgets-adjust-message-length-threshold 100 (#$ . 10872)) #@73 Display "Adjusting widgets" message above this size of pending changes. (defvar allout-widgets-adjust-message-size-threshold 10000 (#$ . 11025)) #@65 Maintained true during `allout-widgets-exposure-undo-processor' (defvar allout-undo-exposure-in-progress nil (#$ . 11176)) #@110 Regular expression for body text that would look like an item prefix if not altered with an escape sequence. (defvar allout-escaped-prefix-regexp "" (#$ . 11306)) (make-variable-buffer-local 'allout-escaped-prefix-regexp) #@33 General tree-node key bindings. (defvar allout-item-icon-keymap (byte-code "\303 \304\305\211\203 \n@\306 \307#\210\nA\211\204 *\306\310\311#\210\306\312\313#\210\306\314\315#\210\306\316\317#\210)\207" [km digit --dolist-tail-- make-sparse-keymap ("0" "1" "2" "3" "4" "5" "6" "7" "8" "9") nil define-key digit-argument "-" negative-argument [(mouse-1)] #[nil "\300\207" [nil] 1 nil nil] [(mouse-2)] #[nil "\300\207" [nil] 1 nil nil] [t] allout-item-icon-key-handler] 5) (#$ . 11534)) #@61 General key bindings for the text content of outline items. (defvar allout-item-body-keymap (byte-code "\302 \303 \203 \304 \"\210 *\207" [local-map km make-sparse-keymap current-local-map set-keymap-parent] 3) (#$ . 12038)) (make-variable-buffer-local 'allout-item-body-keymap) #@54 Symbol carrying allout body-text overlay properties. (defvar allout-body-span-category nil (#$ . 12328)) #@77 Keymap used in the item cue area - the space between the icon and headline. (defvar allout-cue-span-keymap (byte-code "\302 \303 \"\210)\207" [km allout-item-icon-keymap make-sparse-keymap set-keymap-parent] 3) (#$ . 12439)) #@102 Symbol for category of text property used to hide escapes of prefix-like text in allout item bodies. (defvar allout-escapes-category nil (#$ . 12674)) #@56 Symbol carrying allout icon-guides overlay properties. (defvar allout-guides-category nil (#$ . 12831)) #@65 Symbol carrying allout icon and guide lines overlay properties. (defvar allout-guides-span-category nil (#$ . 12941)) #@65 Symbol carrying allout icon and guide lines overlay properties. (defvar allout-icon-span-category nil (#$ . 13065)) #@299 Symbol carrying common properties of the space following the outline icon. (That space is used to convey selected cues indicating body qualities, including things like: - encryption `~' - numbering `#' - indirect reference `@' - distinctive bullets - see `allout-distinctive-bullets-string'.) (defvar allout-cue-span-category nil (#$ . 13188)) #@66 Association list mapping span identifier to category identifier. (defvar allout-span-to-category '((:guides-span . allout-guides-span-category) (:cue-span . allout-cue-span-category) (:icon-span . allout-icon-span-category) (:body-span . allout-body-span-category)) (#$ . 13543)) #@69 Symbol carrying common properties of an overlay's trailing newline. (defvar allout-trailing-category nil (#$ . 13829)) #@396 Timing details for the last cooperative decoration action. This is maintained when `allout-widgets-time-decoration-activity' is set. The value is a list containing two elements: - the elapsed time as a number of seconds - the list of changes processed, a la `allout-widgets-changes-record'. When active, the value is revised each time automatic decoration activity happens in the buffer. (defvar allout-widgets-last-decoration-timing nil (#$ . 13955)) (make-variable-buffer-local 'allout-widgets-last-decoration-timing) #@107 Non-nil if Allout-Widgets mode is enabled. Use the command `allout-widgets-mode' to change this variable. (defvar allout-widgets-mode nil (#$ . 14489)) (make-variable-buffer-local 'allout-widgets-mode) #@1021 Toggle Allout Widgets mode. If called interactively, enable Allout-Widgets mode if ARG is positive, and disable it if ARG is zero or negative. If called from Lisp, also enable the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'; disable the mode otherwise. Allout Widgets mode is an extension of Allout mode that provides graphical decoration of outline structure. It is meant to operate along with `allout-mode', via `allout-mode-hook'. The graphics include: - guide lines connecting item bullet-icons with those of their subitems. - icons for item bullets, varying to indicate whether or not the item has subitems, and if so, whether or not the item is expanded. - cue area between the bullet-icon and the start of the body headline, for item numbering, encryption indicator, and distinctive bullets. The bullet-icon and guide line graphics provide keybindings and mouse bindings for easy outline navigation and exposure control, extending outline hot-spot navigation (see `allout-mode'). (defalias 'allout-widgets-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203\313 \312\313\314\315\316\317\305\320 \321QD&\210\312\304\fD\322\323 P\324DD\"\210\325\326\327\330\331$\210\332 \210\333\334!\210\333\335!\210\336 \203R \337@\336 \"\210\325\340\341\330\342$\210\325\343\344\330\342$\210\325\345\346\330\342$\210\325\347\350\330\342$\210\325\351\352\330\342$\210\325\353\354\330\342$\210\325\355\356\330\342$\210\325\357\360\330\342$\210\325\361\362\330\342$\210\f\204\234 \363\364\365\366\367$\370 A\371A@B\"\211 C?\205\264 \372B\236B>\211 D\203\304 DADAB\241\210+\373 \210\2029\331\374 E F\375ed\"\210\376\377!\210\376\335!\210\201G \326\327\342#\210\201G \340\341\342#\210\201G \343\344\342#\210\201G \345\346\342#\210\201G \347\350\342#\210\201G \351\352\342#\210\201G \355\356\342#\210\201G \357\360\342#\210\201G \361\362\342#\210\201H \201I B\"\210\201J E!\210*\201K \201L \n\203I\201M \202L\201N \"\210\201O \201P !\203\201\306 \203d\306 \232\203\201\201Q \"\201R \201S \n\203y\201T \202|\201U \"#\210))\201V \210\n\207" [#1=#:last-message arg allout-widgets-mode allout-regexp allout-widgets-tally allout-escaped-prefix-regexp current-message toggle prefix-numeric-value 0 allout-add-resumptions (truncate-lines t) (auto-hscroll-mode t) (line-move-ignore-fields t) (widget-push-button-prefix #2="") (widget-push-button-suffix #2#) "\\(\\\\\\)\\(" "\\)" allout-widgets-escapes-sanitization-regexp-pair "\\(\n\\|\\`\\)" "\\1\\3" add-hook after-change-functions allout-widgets-after-change-handler nil t allout-setup-text-properties add-to-invisibility-spec (allout-torso . t) allout-escapes current-local-map set-keymap-parent allout-exposure-change-functions allout-widgets-exposure-change-recorder local allout-structure-added-functions allout-widgets-additions-recorder allout-structure-deleted-functions allout-widgets-deletions-recorder allout-structure-shifted-functions allout-widgets-shifts-recorder allout-after-copy-or-kill-hook allout-widgets-after-copy-or-kill-function allout-post-undo-hook allout-widgets-after-undo-function before-change-functions allout-widgets-before-change-handler post-command-hook allout-widgets-post-command-business pre-command-hook allout-widgets-pre-command-business make-hash-table :test eq :weakness key (allout-widgets-mode-inhibit #2# (:eval (allout-widgets-tally-string))) assoc allout-mode allout-widgets-prepopulate-buffer buffer-modified-p allout-widgets-undecorate-region remove-from-invisibility-spec (allout-torso . t) allout-item-body-keymap mode-line-entry minor-mode-alist associated after was-modified inhibit-read-only remove-hook assq-delete-all allout-widgets-mode-inhibit set-buffer-modified-p run-hooks allout-widgets-mode-hook allout-widgets-mode-on-hook allout-widgets-mode-off-hook called-interactively-p any " in current buffer" message "Allout-Widgets mode %sabled%s" "en" "dis" force-mode-line-update] 11 (#$ . 14699) (list (or current-prefix-arg 'toggle))]) (defvar allout-widgets-mode-hook nil) (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [allout-widgets-mode-map allout-widgets-mode-hook variable-documentation put "Hook run after entering or leaving `allout-widgets-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode allout-widgets-mode nil boundp] 6) #@43 Explicitly disable `allout-widgets-mode'. (defalias 'allout-widgets-mode-off #[nil "\300\301!\207" [allout-widgets-mode -1] 2 (#$ . 19156)]) #@42 Explicitly enable `allout-widgets-mode'. (defalias 'allout-widgets-mode-on #[nil "\300\301!\207" [allout-widgets-mode 1] 2 (#$ . 19303)]) #@49 Configure category and literal text properties. (defalias 'allout-setup-text-properties #[nil "\304\305\306\"\210\307\305\310\311#\210\307\305\312#\210\307\305\313 #\210\307\305\314\315#\210\304\316\317\320\305!!\"\210\307\316\314\315#\210\304\321\306\"\210\307\321\322\323#\210\307\321\312\n#\210\304\324\306\"\210\307\324\322\323#\210\307\324\310\325#\210\307\324\312 #\210\307\324\313 #\210\307\324\326\327#\210\307\324\314\315#\210\304\330\306\"\210\307\330\322\323#\210\307\330\312\n#\210\304\331\306\"\210\307\331\332\333#\210\307\331\322\323#\207" [allout-item-icon-keymap widget-button-face allout-item-body-keymap allout-cue-span-keymap setplist allout-guides-span-category nil put modification-hooks (allout-graphics-modification-handler) local-map mouse-face field structure allout-icon-span-category allout-widgets-copy-list symbol-plist allout-body-span-category evaporate t allout-cue-span-category (allout-body-modification-handler) pointer arrow allout-trailing-category allout-escapes-category invisible allout-escapes] 5 (#$ . 19447)]) #@72 Step over the current buffers exposed items to do initial widgetizing. (defalias 'allout-widgets-prepopulate-buffer #[nil "?\205 \212eb\210\301\302!\205 \303`!\204 \304 \210\202 )\207" [allout-widgets-mode-inhibit allout-next-visible-heading 1 widget-at allout-get-or-create-item-widget] 2 (#$ . 20508)]) #@156 A widget for the current outline's overarching container as an item. The item has settings (of the file/connection) and maybe a body, but no icon/bullet. (defvar allout-container-item-widget nil (#$ . 20825)) (make-variable-buffer-local 'allout-container-item-widget) #@55 Handle actions pending before `allout-mode' activity. (defalias 'allout-widgets-pre-command-business #[(&optional _recursing) "\300\207" ["Handle actions pending before `allout-mode' activity."] 1 (#$ . 21100)]) #@119 Handle actions pending after any `allout-mode' commands. Optional RECURSING is for internal use, to limit recursion. (defalias 'allout-widgets-post-command-business #[(&optional _recursing) "\3061\307\300!\205\205 \203 \310\211 \203# \311\312\313\310\314$\210\310\f\204+ \203\201 \315\211 * +\316 ,\317 -\320-! .\321 /\f\203R \315 0\322 \210\323 \210)\202X \322 \210\323 \2101\203f \324\310/\" D2\310.\203 .;\203{ \325.!\210\202 \325\326!\210.\327`!\206\222 `d=?\205\222 \327`T!\310 3 4\2124\205\3304\331\"b\205n?\205\3321\266 \333\334!0\202\270 \210\310\204\342 `S\335] 5\3365\206\310 `\337\")\340=\203\333 \212`S\335]b\210\341 \210)\3424!\202`36?\205\354 \315\315 7\343\344!\210*\345u\210\3463\211T\310#\210\347\350!\210\325\351!\2103\205`3V\205\345u+0\207\210\310\211\207" [allout-mode allout-widgets-unset-inhibit-read-only inhibit-read-only allout-widgets-reenable-before-change-handler allout-widgets-undo-exposure-record allout-widgets-changes-record (error) boundp nil add-hook before-change-functions allout-widgets-before-change-handler local t allout-widgets-hook-error-handler " Adjusting widgets..." allout-widgets-adjusting-message current-time allout-widgets-exposure-undo-processor allout-widgets-changes-dispatcher allout-elapsed-time-seconds message "" widget-at widget-get :from (quit) yes-or-no-p "Misplaced item won't be recognizable as part of outline - rectify? " 1 get-char-property invisible allout allout-show-to-offshoot allout-widgets-undecorate-item insert-before-markers "\n" -1 allout-flag-region allout-widgets-post-command-business recursing "outline structure corrected - item moved to beginning of new line" debug-on-signal debug-on-error debugger adjusting-message replaced-message start-time buffer-undo-list allout-widgets-time-decoration-activity allout-widgets-last-decoration-timing inserted-at this-widget pos buffer-read-only inhibit-field-text-motion] 6 (#$ . 21319)]) #@68 Business to be done before changes in a widgetized allout outline. (defalias 'allout-widgets-before-change-handler #[(beg end) "\203 \306 \307\"\310=\205i \212 b\210\311 \211\205 \312\n!*\207 \203# \313\207\314\304!\203- \f\204/ \313\207 \315=\2037 \313\207\316 \232\203G Td^\202I \317\320$\204Q \313\207\321\322!\203_ ?\313\211\207\313\323\324\325!\"\207" [undo-in-progress beg item-widget inhibit-read-only allout-mode this-command get-text-property category allout-icon-span-category allout-get-item-widget allout-widgets-exposure-undo-recorder t boundp quoted-insert text-property-any field structure yes-or-no-p "Unruly edit of outline structure - allow? " error "%s" substitute-command-keys end allout-widgets-unset-inhibit-read-only allout-widgets-reenable-before-change-handler allout-structure-unruly-deletion-message] 6 (#$ . 23287)]) #@71 Reconcile what needs to be reconciled for allout widgets after edits. (defalias 'allout-widgets-after-change-handler #[(_beg _end _prelength) "\300\207" ["Reconcile what needs to be reconciled for allout widgets after edits."] 1 (#$ . 24156)]) #@44 True if the current item is not decorated. (defalias 'allout-current-decorated-p #[nil "\212\302 \205 \303V\203 \304 \205 \305\202 )\207" [allout-recent-depth allout-container-item-widget allout-back-to-current-heading 0 allout-get-item-widget t] 2 (#$ . 24406)]) #@284 Process errors which occurred in the course of command hook operation. We store a backtrace of the error information in the variable, `allout-widgets-last-hook-error', unset the error handlers, and reraise the error, so that processing continues to the encompassing condition-case. (defalias 'allout-widgets-hook-error-handler #[(mode args) "\306\307\211\310\311!\312\216 \313 \210)r q\210\314 + \315 \316\317 \320\321!% \322\323\316\324 \f#\211 \"\210\322 !\210\325 !\210\326=\203O \327\330\"\202W \326\331 $+\207" [debugger debug-on-error debug-on-signal standard-output bt this debug nil generate-new-buffer " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string "allout-widgets-hook-error-handler" format "allout-widgets-last-hook-error stored, %s/%s %s %s" format-time-string "%e-%b-%Y %r" message "%s" "%s:\n%s" sit-for error apply signal "%s: unexpected mode, %s %s" mode args header allout-widgets-last-hook-error allout-widgets-hook-error-post-time] 8 (#$ . 24683)]) #@629 Post MESSAGE when pending are likely to make a big enough delay. If posting of the MESSAGE is warranted and there already is a `current-message' in the minibuffer, the MESSAGE is appended to the current one, and the previously pending `current-message' is returned for later posting on completion. If posting of the MESSAGE is warranted, but no `current-message' is pending, then t is returned to indicate that case. If posting of the MESSAGE is not warranted, then nil is returned. See `allout-widgets-adjust-message-length-threshold', `allout-widgets-adjust-message-size-threshold' for message posting threshold criteria. (defalias 'allout-widgets-adjusting-message #[(message) "G V\204 d\306\307\211 \310\311\"\210\f ZV,\205< \312 \313\2031 \314 Q\2023 !\210\206; \315)\207" [allout-widgets-changes-record allout-widgets-adjust-message-length-threshold second first max min 0 nil mapc #[(entry) "@\305=?\205* A@AA@ \n^ W\203 \n^ \n]\fV\205* \n]\211\207" [entry first second min max :undone-exposure] 2] current-message message " - " t allout-widgets-adjust-message-size-threshold prior] 4 (#$ . 25729)]) #@72 Dispatch CHANGES-RECORD items to respective widgets change processors. (defalias 'allout-widgets-changes-dispatcher #[nil "\204| \211\205 \306\307\211 \307\211 \307 \205y \n\203T \n\211A\242\211@\211 \310\267\202P \f B\202P \fB\202P \fB\202P \fB)\202 \203\\ \311 !\210\203f \312!\210\203p \313!\210\205y \314!.\207\315=?\205\213 \316ed\"\210\315\211\207" [allout-widgets-mode-inhibit allout-widgets-changes-record changes-record changes-pending entry exposures t nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:exposed 49 :added 56 :deleted 65 :shifted 74)) allout-widgets-exposure-change-processor allout-widgets-additions-processor allout-widgets-deletions-processor allout-widgets-shifts-processor undecorated allout-widgets-undecorate-region additions deletions shifts #1=#:val] 4 (#$ . 26875)]) #@130 Record allout exposure changes for tracking during post-command processing. Records changes in `allout-widgets-changes-record'. (defalias 'allout-widgets-exposure-change-recorder #[(from to flag) "\304 \nF B\211\207" [from to flag allout-widgets-changes-record :exposed] 4 (#$ . 27769)]) #@136 Widgetize and adjust item widgets tracking allout outline exposure changes. Generally invoked via `allout-exposure-change-functions'. (defalias 'allout-widgets-exposure-change-processor #[(changes) "\306\307\"\310\211\211\211\310 \211 \205\361 @\310\fA@\310\211\fAA@\fAAA@\310 W\203H \203Q \311\202R \303 \312 J#\211@ A@L\210\n\204\347 \212b\210\203\232 \313\"\210\314 \210\315 \211 \204\220 \316 \210\202\226 \317 \320\"\210)\202\346 `W\203\346 \314 \210\315 \211\204\263 \316 \202\271 \317\320\"\210\321\322!\210\323\324\"\203\312 \325!\210`V\203\337 \312` #\211@ A@\321\322!\210\202\232 ). A\211\204 \310.\207" [changes deactivate-mark covered handled-expose change --dolist-tail-- sort #[(this next) "A@ A@W\207" [this next] 2] nil handled-conceal allout-range-overlaps allout-widgets-undecorate-region allout-beginning-of-current-line allout-get-item-widget allout-get-or-create-item-widget widget-apply :redecorate allout-next-visible-heading 1 widget-get :has-subitems allout-redecorate-visible-subtree parent flag to got bucket from handling widget] 8 (#$ . 28067)]) #@278 Record allout item additions for tracking during post-command processing. Intended for use on `allout-structure-added-functions'. FROM point at the start of the first new item and TO is point at the start of the last one. Records changes in `allout-widgets-changes-record'. (defalias 'allout-widgets-additions-recorder #[(from to) "\303 E\nB\211\207" [from to allout-widgets-changes-record :added] 3 (#$ . 29234)]) #@206 Widgetize and adjust items tracking allout outline structure additions. Dispatched by `allout-widgets-post-command-business' in response to :added entries recorded by `allout-widgets-additions-recorder'. (defalias 'allout-widgets-additions-processor #[(changes) "\212\306\211\n\306\211 \205\220 \f@\211A@\306 AA@ W\203. \307 #\211@ A@\204\207 b\210\310 \203O \311\312\313!!\210`W\203Z b\210` W\203s m\204s \314 \210\311\312 !\210\315\316!\210\202Z ` V\203\207 \307` #\211@ A@+\fA\211\204 \306-\207" [covered handled changes change --dolist-tail-- to nil allout-range-overlaps allout-ascend allout-redecorate-visible-subtree allout-get-or-create-item-widget redecorate allout-beginning-of-current-line allout-next-visible-heading 1 bucket from] 5 (#$ . 29661)]) #@288 Record allout item deletions for tracking during post-command processing. Intended for use on `allout-structure-deleted-functions'. DEPTH is the depth of the deleted subtree, and FROM is the point from which the subtree was deleted. Records changes in `allout-widgets-changes-record'. (defalias 'allout-widgets-deletions-recorder #[(depth from) "\303 E\nB\211\207" [depth from allout-widgets-changes-record :deleted] 3 (#$ . 30471)]) #@194 Adjust items tracking allout outline structure deletions. Dispatched by `allout-widgets-post-command-business' in response to :deleted entries recorded by `allout-widgets-deletions-recorder'. (defalias 'allout-widgets-deletions-processor #[(changes) "\212\305\211\2058 \n@\211A@ AA@ b\210\306\307!\203/ \f\307V\203) \310\fS!\210\311\312\313!!\210*\nA\211\204 \305+\207" [changes change --dolist-tail-- from depth nil allout-previous-visible-heading 1 allout-ascend-to-depth allout-redecorate-visible-subtree allout-get-or-create-item-widget redecorate] 4 (#$ . 30916)]) #@292 Record outline subtree shifts for tracking during post-command processing. Intended for use on `allout-structure-shifted-functions'. SHIFTED-AMOUNT is the depth change and AT is the point at the start of the subtree that's been shifted. Records changes in `allout-widgets-changes-record'. (defalias 'allout-widgets-shifts-recorder #[(shifted-amount at) "\303 E\nB\211\207" [shifted-amount at allout-widgets-changes-record :shifted] 3 (#$ . 31502)]) #@205 Widgetize and adjust items tracking allout outline structure additions. Dispatched by `allout-widgets-post-command-business' in response to :shifted entries recorded by `allout-widgets-shifts-recorder'. (defalias 'allout-widgets-shifts-processor #[(changes) "\212\303\211\205 \n@\211AA@b\210\304 \210\305 \210\nA\211\204 \303+\207" [changes change --dolist-tail-- nil allout-ascend allout-redecorate-visible-subtree] 3 (#$ . 31962)]) #@123 Do allout-widgets processing of text just placed in the kill ring. Intended for use on `allout-after-copy-or-kill-hook'. (defalias 'allout-widgets-after-copy-or-kill-function #[nil "@\205 \301@!\240\207" [kill-ring allout-widgets-undecorate-text] 3 (#$ . 32411)]) #@99 Do allout-widgets processing of text after an undo. Intended for use on `allout-post-undo-hook'. (defalias 'allout-widgets-after-undo-function #[nil "\212\300 \205\n \301\302 !)\207" [allout-goto-prefix allout-redecorate-item allout-get-or-create-item-widget] 2 (#$ . 32686)]) #@226 Record outline exposure undo for tracking during post-command processing. Intended for use by `allout-graphics-modification-handler'. WIDGET is the widget being changed. Records changes in `allout-widgets-changes-record'. (defalias 'allout-widgets-exposure-undo-recorder #[(widget) "?\205\n \nB\211\207" [allout-undo-exposure-in-progress widget allout-widgets-undo-exposure-record] 2 (#$ . 32971)]) #@213 Adjust items tracking undo of allout outline structure exposure. Dispatched by `allout-widgets-post-command-business' in response to :undone-exposure entries recorded by `allout-widgets-exposure-undo-recorder'. (defalias 'allout-widgets-exposure-undo-processor #[nil "\306 \307\211 \307\211 \307\211 \307\211 \212\n\307 \211 \205\311 @ \310 \311\"\310 \312\"\310 \313\"\314 \315\316#\317\313\"\320 \f #\211 @ A@ \204\277 \310 \311\"b\210\307 \321 \206q `\322\")\323=\204\277 \324=\203\221 \325=\203\221 \326 \210\327 !\210\202\277 \325=\203\277 \324=\203\277 \212\330 \307 !\211 \203\276 @\211!b\210\331 \210 A\211 \204\252 + A\211 \204# \307.\f\207" [allout-undo-exposure-in-progress allout-widgets-undo-exposure-record widgets widget-start-marker widget-end-marker from-state t nil widget-get :from :to :icon-state widget-apply :actual-position :icon-start get-text-property allout-range-overlaps get-char-property invisible allout closed opened allout-hide-current-subtree allout-decorate-item-and-context allout-chart-exposure-contour-by-icon allout-show-to-offshoot icon-start-point to-state handled covered widget --dolist-tail-- pos expose-to] 5 (#$ . 33383)]) #@287 Return points of subtree items to which exposure should be extended. The qualifying items are ones with a widget icon that is in the closed or empty state, or items with undecorated subitems. The resulting list of points is in reverse order. Optional FROM-DEPTH is for internal use. (defalias 'allout-chart-exposure-contour-by-icon #[(&optional from-depth) "\306\211\211\211\211\211 \211\203 \307 \202\212 `\307 \310 \311\216\312 !\203/ \313u\210\314 \306\315#\205\204 \313\225\206D \316\225\206D \317\225 \313\224\206R \316\224\206R \317\224 \313\320 !#]\" \210 b\210n\204q \321u\210\202g #\204\201 \"$X\203\201 \322 \210 b*?\" \2045\"V\2035\323 \211\2035\f\"W\203\271 \324\f!\211@ A\211\203\212 \325 \n\"\202\212 \326 \327\"\330>\203\311 `\nB\331 \210\310 \332\216\312 !\203\331 \313u\210\314 \306\315#\205.\313\225\206\356 \316\225\206\356 \317\225 \313\224\206\374 \316\224\206\374 \317\224 \313\320 !#]\" \210 b\210n\204\321u\210\202#\204+\"$X\203+\322 \210 b*?\211\203\216 \204@ \nB\202Eb\210\n.\207" [from-depth subgot got this-widget level-depth at-end nil allout-depth match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] looking-at 1 re-search-forward 0 2 3 - -1 allout-aberrant-container-p allout-get-item-widget allout-chart-exposure-contour-by-icon append widget-get :icon-state (closed empty) allout-end-of-subtree #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] start-point save-match-data-internal allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 8 (#$ . 34613)]) #@370 Return a pair indicating overlap of FROM and TO subtree range in RANGES. First element of result indicates whether candidate range FROM, TO overlapped any of the existing ranges. Second element of result is a new version of RANGES incorporating the candidate range with overlaps consolidated. FROM and TO must be in increasing order, as must be the pairs in RANGES. (defalias 'allout-range-overlaps #[(from to ranges) "\306\211\211\211\211 \203\301 \204\301 @ A\n\203Q @ V\2037 \n D\fB \fB \307\202\n A@ Y\203\n \n A@D\fB A@\307\202\n @ V\203m \n D\fB \fB \307\202\n @\nY\203\222 \n A@ Y\203\n \n A@D\fB A@\307\202\n A@ Y\203\253 \fB @ A@\307\202\n A@\nY\203\272 @\202\n \fB\202\n \n\203\311 \204\347 \n\204\334 \204\334 \n D\fB\202\347 \n\203\347 \n D\fB\f\237 \203\363 \310\f \"\n\205\370 \307\f-D\207" [done included-to included-from entry new-ranges ranges nil t append to from] 5 (#$ . 36417)]) #@37 `allout-range-overlaps' unit tests. (defalias 'allout-test-range-overlaps #[nil "\303\211\304\303\n\305\306\"\307\232\204 \310\311!\210\n\312\313\"\314\232\204\" \310\315!\210\n\316\317\"\320\232\204/ \310\321!\210\n\322\323\"\324\232\204< \310\325!\210\n\306\326\"\327\232\204I \310\330!\210\n\331\332\"\333\232\204V \310\334!\210\n\335\336\"\337\232\204c \310\340!\210\n\341\342\"\343\232\204p \310\344!\210\n\317\345\"\346\232\204} \310\347!\210\303\n\335\345\"\350\232\204\214 \310\351!\210\n\352\353\"\354\232\204\231 \310\355!\210\n\356\357\"\360\232\204\246 \310\361!\210\n\331\335\"\362\232\204\263 \310\363!\210\n\312\352\"\364\232\204\300 \310\365!\210\n\306\366\"\367\232\204\315 \310\370!\210\n\317\371\"\372\232\204\332 \310\373!\210\303\211+\207" [ranges got try nil #[(from to) "\304 \n#\211A@ \207" [from to ranges got allout-range-overlaps] 5] 3 5 #1=(nil ((3 5))) cl--assertion-failed (equal (funcall try 3 5) '#1#) 10 12 #2=(nil ((3 5) (10 12))) (equal (funcall try 10 12) '#2#) 1 2 #3=(nil ((1 2) (3 5) (10 12))) (equal (funcall try 1 2) '#3#) 7 9 #4=(nil ((1 2) (3 5) (7 9) (10 12))) (equal (funcall try 7 9) '#4#) 8 #5=(t ((1 2) (3 9) (10 12))) (equal (funcall try 5 8) '#5#) 15 17 #6=(nil ((1 2) (3 9) (10 12) (15 17))) (equal (funcall try 15 17) '#6#) 20 22 #7=(nil ((1 2) (3 9) (10 12) (15 17) (20 22))) (equal (funcall try 20 22) '#7#) 4 11 #8=(t ((1 2) (3 12) (15 17) (20 22))) (equal (funcall try 4 11) '#8#) 25 #9=(t ((1 25))) (equal (funcall try 2 25) '#9#) #10=(nil ((20 25))) (equal (funcall try 20 25) '#10#) 30 35 #11=(nil ((20 25) (30 35))) (equal (funcall try 30 35) '#11#) 26 28 #12=(nil ((20 25) (26 28) (30 35))) (equal (funcall try 26 28) '#12#) #13=(t ((15 25) (26 28) (30 35))) (equal (funcall try 15 20) '#13#) #14=(t ((10 35))) (equal (funcall try 10 30) '#14#) 6 #15=(nil ((5 6) (10 35))) (equal (funcall try 5 6) '#15#) 100 #16=(t ((2 100))) (equal (funcall try 2 100) '#16#)] 4 (#$ . 37387)]) #@244 EXAMPLE FUNCTION. Widgetize items in buffer using allout-chart-subtree. We economize by just focusing on the first of local-maximum depth siblings. Optional DOING is for internal use - a chart of the current level, for recursive operation. (defalias 'allout-widgetize-buffer #[(&optional doing) "\204- \212eb\210\306 \307\211\205+ \n@\211b\210\310 \211\203\" \311 !\210)\nA\211\204 \307+\207\307 \307 \211\203L \n@\211<\203E \312\311 !\210\nA\211\2047 *\f?\205` \313@!?\205` @b\210\314 )\207" [doing top-level-sibling --dolist-tail-- subchart have-sublists sibling allout-chart-siblings nil allout-chart-subtree allout-widgetize-buffer t widget-at allout-get-or-create-item-widget] 3 (#$ . 39344) nil]) (byte-code "\301\302\303\304\305\306\307\306\310\311\312\313\314\315\316\317\320\321\322\323\324\306\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\306\344\306\345\306\346\306\347\306\350\306\351\306\352\306\353\306\354\306\355\306\356\306\357\360\361\306\362\360\363\306\364\360\365\306\366\306\367\370\371\372\373\306\374\306\375\306\376\306\377\306\201@ \306\201A \201B \201C \306\201D \360\201E \201F \201G \201H &e\207" [allout-item-icon-keymap define-widget allout-item-widget default "A widget presenting an allout outline item." button nil real-field :create allout-decorate-item-and-context :value-delete allout-widgets-undecorate-item :expander allout-tree-event-dispatcher :expander-p identity :action allout-tree-widget-action :redecorate allout-redecorate-item :last-decorated-tick :parse-item allout-parse-item-at-point :decorate-item-span allout-decorate-item-span :decorate-guides allout-decorate-item-guides :decorate-icon allout-decorate-item-icon :decorate-cue allout-decorate-item-cue :decorate-body allout-decorate-item-body :actual-position allout-item-actual-position :is-container :from :to :span-overlay :icon-start :icon-end :distinctive-start :distinctive-end :body-start :body-end :depth :has-subitems :was-has-subitems init :expanded :was-expanded :brief :was-brief :does-encrypt :is-encrypted :location allout-item-location :button-keymap :keymap :guides-span :icon-span :cue-span :bullet :was-bullet :body-span :body-brevity-p allout-body-brevity-p :guide-column-flags :was-guide-column-flags :populous-p allout-item-populous-p :help-echo allout-tree-widget-help-echo] 102) #@54 create a new item widget, not yet situated anywhere. (defalias 'allout-new-item-widget #[nil "\203 \303\304!\305 \306\n#\210 )\207\303\304!\207" [allout-widgets-maintain-tally widget allout-widgets-tally widget-convert allout-item-widget puthash nil] 4 (#$ . 41690)]) (put 'allout-new-item-widget 'byte-optimizer 'byte-compile-inline-expand) #@928 Create or adjust widget decorations for ITEM-WIDGET and neighbors at point. The neighbors include its siblings and parent. ITEM-WIDGET can be a created or converted `allout-item-widget'. If you're only trying to get or create a widget for an item, use `allout-get-or-create-item-widget'. If you have the item-widget, applying :redecorate will do the right thing. Optional BLANK-CONTAINER is for internal use. It is used to fabricate a container widget for an empty-bodied container, in the course of decorating a proper (non-container) item which starts at the beginning of the file. Optional REDECORATE causes redecoration of the item-widget and its siblings, even if already decorated in this cycle of the command loop. Optional PARENT, when provided, bypasses some navigation and computation necessary to obtain the parent of the items being processed. We return the item-widget corresponding to the item at point. (defalias 'allout-decorate-item-and-context #[(item-widget &optional redecorate blank-container _parent) "\204 \306 \307\"\n\232?\205\247\310\311 ` \312 ,-\206* \313 \211,?\206* ,W\211 .\2033 \314b\210\315 /\316/\310\"\210/ /.?\205I \317 0\312\211 1 2\312 3\310 4.\203i \320 \321\310#\210\314C3\202\372 \3220\323\324#b\210\3060\321\"\203 \313 \210\202\346 \325 5\326\216\3276!\203\217 \314u\210\3307\312\331#\203\345 \314\225\206\244 \332\225\206\244 \333\2258\314\224\206\262 \332\224\206\262 \333\2249\314\33489:#];9\2109b\210n\204\321 \335u\210\202\307 <\204\341 ;=X\203\341 \336 \2109b\210*9C3\337 \203\372 93B3\202\353 3\312 >\211 ?\203\225?@\211>b\210@\203\340\331!\210>/U\203\" \202B\341 \206BA\203?\342\343! B\344B\312C#\210B)\202B\342\343!2\204R\3062\307\"\n\232\204\210\3222\345\310-$\210\3222\346\"\210\3222\34701\205m\310$\210\3222\350\"\210\3222\351\"\210\3222\352\"\210\3202\307\n#\210>1?A\211?\204*\353\f!\210/b\210/\312\211\223\210 .\f\207" [redecorate item-widget allout-command-counter allout-inhibit-body-modification-hook was-modified was-point widget-get :last-decorated-tick t buffer-modified-p nil allout-goto-prefix 1 point-marker set-marker-insertion-type allout-get-or-create-parent-widget widget-put :is-container widget-apply :actual-position :from match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] looking-at re-search-forward 0 2 3 - -1 allout-aberrant-container-p allout-next-sibling sit-for allout-get-item-widget widget-convert allout-item-widget puthash :parse-item :decorate-item-span :decorate-guides :decorate-icon :decorate-cue :decorate-body set-buffer-modified-p prefix-start blank-container is-container steady-point parent successor-sibling doing-item reverse-siblings-chart buffer-undo-list save-match-data-internal allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower doing-at --dolist-tail-- allout-widgets-track-decoration allout-widgets-maintain-tally widget allout-widgets-tally] 6 (#$ . 42042)]) #@321 Resituate ITEM-WIDGET decorations, disregarding context. Use this to redecorate only the item, when you know that its situation with respect to siblings, parent, and offspring is unchanged from its last decoration. Use `allout-decorate-item-and-context' instead to reassess and adjust relevant context, when suitable. (defalias 'allout-redecorate-item #[(item-widget) "\304\305\" \232?\205, \306 \307\310\311\"\210\310\312\"\210\310\313\"\210\310\314\"\210\310\315\"\210\316 !*\207" [item-widget allout-command-counter buffer-undo-list was-modified widget-get :last-decorated-tick buffer-modified-p t widget-apply :parse-item :decorate-guides :decorate-icon :decorate-cue :decorate-body set-buffer-modified-p] 3 (#$ . 45206)]) #@339 Redecorate all visible items in subtree at point. Optional PARENT-WIDGET is for optimization, when the parent widget is already available. Optional DEPTH restricts the excursion depth of covered. Optional CHART is for internal recursion, to carry a chart of the target items. Point is left at the last sibling in the visible subtree. (defalias 'allout-redecorate-visible-subtree #[(&optional parent-widget depth chart) "\203 \306\307\310#\203 \306\307\310#b\210\202) \311 \211\203% \312 \313\"\202( \314\313!)\n\2061 \315\316\317\"\316\211\211 \237\211\316 \211 \203\254 @\211\250\203y \f\204p b\210\311\316!\211\203m \312 \313\316$\210\202p \314 \210\202\243 <\203\243 \203\213 \320V\203\243 \321\f\204\224 \202\227 \314\313!\205\237 S#\210A\211\204I * \205\271 ` W\205\271 b-\207" [parent-widget got chart recent-sibling-point previous-sibling-point item-widget widget-apply :actual-position :from allout-get-item-widget allout-decorate-item-and-context redecorate allout-get-or-create-item-widget allout-chart-subtree nil visible 1 allout-redecorate-visible-subtree pending-chart sibling-point --dolist-tail-- depth] 6 (#$ . 45950)]) #@335 Set widget ITEM-WIDGET layout parameters per item-at-point's actual layout. If optional AT-BEGINNING is t, then point is assumed to be at the start of the item prefix. If optional BLANK-CONTAINER is true, then the parameters of a container which has an empty body are set. (Though the body is blank, the object may have subitems.) (defalias 'allout-parse-item-at-point #[(item-widget &optional at-beginning blank-container) "\306 \203 \307\202\f \206 \307U\211?\205 \310 \211\205# \311 \211 #S $\312\211 % &\312 '\313(\314#\210\n\203g \313(\315\316\315e\317(\315\"##\210\313(\320\312#\210\313(\321\312#\210\313(\322\323#%\202\303 \313(\315\316\315)\203v `\202x *\317(\315\"##\210\313(\321$#\210\313(\320##\210 \203\242 \313(\324\325#\210\313(\326\f#\210#%\313(\327\330 #\210%f\331\232\203\273 %T%\313(\322%#\210\313(\332 \203\317 \323\202\321 \333 \211&#\210\313(\334\316\334 \203\344 e\202\353 \335 \206\353 db\317(\334\"##\210\313(\336&dU?\205+W\211'#\210\313(\337'\205&\212*b\210\312 ,\340,\206 `\341\"*\342=?#.\n\207" [depth blank-container is-container does-encrypt is-encrypted allout-recent-prefix-end allout-depth 0 allout-encrypted-type-prefix allout-encrypted-topic-p nil widget-put :depth :from allout-set-boundary-marker widget-get :icon-end :icon-start :body-start 1 :does-encrypt t :is-encrypted :bullet allout-get-bullet 32 :body-end allout-end-of-entry :to allout-pre-next-prefix :has-subitems :expanded get-char-property invisible allout icon-end icon-start body-start body-end has-subitems item-widget at-beginning allout-recent-prefix-beginning allout-recent-depth pos] 10 (#$ . 47148)]) #@225 Set or create item widget BOUNDARY type marker at POSITION. Optional CURRENT-MARKER is the marker currently being used for the boundary, if any. BOUNDARY type is either :from or :to, determining the marker insertion type. (defalias 'allout-set-boundary-marker #[(_boundary position &optional current-marker) "\204 ` \203 \303\223\207\304 \305\n\303\"\210\n\303\223)\207" [position current-marker marker nil make-marker set-marker-insertion-type] 3 (#$ . 48821)]) #@204 Equip the item with a span, as an entirety. This span is implemented so it can be used to detect displacement of the widget in absolute terms, and provides an offset bias for the various element spans. (defalias 'allout-decorate-item-span #[(item-widget) "\301\302\"\205 \301\303\"\301\304\"=?\205 \305\301\303\"\301\304\"#\207" [item-widget widget-get :is-container :from :to allout-item-span] 6 (#$ . 49301)]) #@569 Add ITEM-WIDGET guide icon-prefix descender and connector text properties. Optional arguments provide context for deriving the guides. In their absence, the current guide column flags are used. Optional PARENT-WIDGET is the widget for the item's parent item. Optional HAS-SUCCESSOR is true if the item is followed by a sibling. We also hide the header-prefix string. Guides are established according to the item-widget's :guide-column-flags, when different from :was-guide-column-flags. Changing that property and reapplying this method will rectify the glyphs. (defalias 'allout-decorate-item-guides #[(item-widget &optional parent-widget has-successor) "\306\307\"?\205(\306\310\"\n\205 \306\n\311\"\211G \f\312\\Z \313V\203@ \n\203@ \314\311\315\"C\316 W\205: \317 \320\" ##\206D \306\311\" #\306\321\" $\306\322\" %\306\323\" &% '(G )\324\211 * +\324 ,\325 -$#\232\204 \326#!\211*\203*A\204\223 *@\203\217 \327\202\263 \330\202\263 *@\320=\203\250 ,\206\241 \316T,\324\202\263 *@\203\262 \331\202\263 \332\211+\203\333'\211)\\\211'\334\335+!$\210)\313V\203\324 \313),\203,\316 . /./W\203\n\333'\211T\211'\334\335+\336>\203\375 \337\202\376 \332!$\210.T\211.\202\342 *\324,*A\211*\204 \314\321##\210\340\341%&$.\207" [item-widget depth parent-widget parent-flags parent-flags-depth extender-length widget-get :is-container :depth :guide-column-flags 2 1 widget-put append 0 make-list - :was-guide-column-flags :from :icon-start nil t reverse mid-connector end-connector through-descender skip-descender put-text-property display allout-fetch-icon-image (mid-connector end-connector) extender-connector allout-item-element-span-is :guides-span has-successor flags was-flags guides-start guides-end position allout-header-prefix increment reverse-flags guide-name extenders inhibit-read-only i --dotimes-limit--] 9 (#$ . 49729)]) #@76 Add item icon glyph and distinctive bullet text properties to ITEM-WIDGET. (defalias 'allout-decorate-item-icon #[(item-widget) "\306\307\"?\205X\306\310\"\306\311\"\306\312\"\211 \306\313\" \314 ! *\306\315\" +\306\316\" ,\306\317\"\211 -\205= \306\320\" .\306\321\" /\306\322\" 0\323 1\324 2\306\325\"/\232\203y \306\326\"0\232\203y \306\327\"-\232\203y \306\330\".\232\204\326 -\203\213 .\203\207 \331\202\236 \332\202\236 /\203\224 \333\202\236 0\203\235 \334\202\236 \3352\336 \211T\337\3402!$\210\341\325/#\210\341\3260#\210\341\327-#\210\341\330.#\210\341\3422#\210\336 \n\3422$\210\343\344 \n$\210 \230?\205V*\204\345\n\211T\346#\210\n+\n,\341\315+#\210\341\316,#\210\202: 3\230\204\n+\nT,\202:-\203'\n+\nT,\202:\nb\210\347\350!\210\n\351\225{\n+\351\225,\336+,\337\f$\210\341\313 #\210\341\315+#\210\341\316,#.\207" [item-widget icon-start icon-end bullet use-bullet was-bullet widget-get :is-container :icon-start :icon-end :bullet :was-bullet allout-distinctive-bullet :distinctive-start :distinctive-end :does-encrypt :is-encrypted :expanded :has-subitems t nil :was-expanded :was-has-subitems :was-does-encrypt :was-is-encrypted locked-encrypted unlocked-encrypted opened closed empty put-text-property display allout-fetch-icon-image widget-put :icon-state allout-item-element-span-is :icon-span remove-text-properties (display nil) looking-at "[0-9]+" 0 distinctive distinctive-start distinctive-end does-encrypt is-encrypted expanded has-subitems inhibit-read-only icon-state allout-numbered-bullet] 7 (#$ . 51632)]) #@68 Incorporate space between bullet icon and body to the ITEM-WIDGET. (defalias 'allout-decorate-item-cue #[(item-widget) "\304\305\"?\205* \304\306\"\206 \304\307\"\304\310\"\311\312\313 \n$\210\314\nS\n\315\311$+\207" [item-widget cue-start body-start inhibit-read-only widget-get :is-container :distinctive-end :icon-end :body-start t allout-item-element-span-is :cue-span put-text-property rear-nonsticky] 5 (#$ . 53246)]) #@118 Incorporate item body text as part the ITEM-WIDGET. Optional FORCE means force reassignment of the region property. (defalias 'allout-decorate-item-body #[(item-widget &optional force) "\306\307 \310\"\307 \311\"\306 \312 \313\n Td^ %,\207" [allout-inhibit-body-modification-hook item-widget body-start body-end inhibit-read-only force t widget-get :body-start :body-end allout-item-element-span-is :body-span] 6 (#$ . 53686)]) #@74 Return ITEM-WIDGET FIELD position taking item displacement into account. (defalias 'allout-item-actual-position #[(item-widget field) "\306=\204 \307 \310\"\207\307 \311\"\307 \306\"\n\205 \312\n! \205, \n\205, \f\206* \313 Z \307 \" \2066 \313\\,\207" [field item-widget span-overlay body-end-position ref-marker-position offset :body-end widget-get :from :span-overlay overlay-end 0] 3 (#$ . 54124)]) #@78 Eliminate widgets and decorations for all items in region from START to END. (defalias 'allout-widgets-undecorate-region #[(start end) "\304\212b\210\305\n\306p $\211 W\205' \nb\210\307 \211\203 \310 \311\"\210\202 +\207" [start widget next end nil next-single-char-property-change display allout-get-item-widget allout-widgets-undecorate-item t] 5 (#$ . 54540)]) #@58 Eliminate widgets and decorations for all items in TEXT. (defalias 'allout-widgets-undecorate-text #[(text) "\301\302G\303$\210\207" [text remove-text-properties 0 (display nil :icon-state nil rear-nonsticky nil category nil button nil field nil)] 5 (#$ . 54918)]) #@143 Remove widget decorations from ITEM-WIDGET. Any concealed content head lines and item body is exposed, unless optional NO-EXPOSE is non-nil. (defalias 'allout-widgets-undecorate-item #[(item-widget &optional no-expose) "\306\307\"\306\310\"\311\306\312\"\306\313\"\314 \315\211 \204- \316\317#\210?\2054 \315\315 \320#\210* \203P \321 !\210\322\312\317#\210\f\203^ \321\f!\210\322\313\317#\210\317\211\223\210\317\211\223\210 ?\205r \323\317!.\207" [item-widget inhibit-read-only buffer-undo-list was-modified button-overlay span-overlay widget-get :from :to (display nil :icon-state nil rear-nonsticky nil category nil button nil field nil) :span-overlay :button buffer-modified-p t allout-flag-region nil remove-text-properties delete-overlay widget-put set-buffer-modified-p text-properties-to-remove to from no-expose buffer-read-only inhibit-field-text-motion] 8 (#$ . 55193)]) #@363 Return or register the location of an ITEM-WIDGET's actual START and END. If START and END are not passed in, return either a dotted pair of the current span, if established, or nil if not yet set. When the START and END are passed, return the distance that the start of the item moved. We return 0 if the span was not previously established or is not moved. (defalias 'allout-item-span #[(item-widget &optional start end) "\304\305\"\211\204+ \n\205T \306\n \307\310\307%\311 \312#\210\311 \313\310#\210\314\305 #\210\310\202T \n\2049 \315 !\316 !B\202T \315 !\n\232\203I \316 ! \232\204S \317 \n #\210\310\202T \307)\207" [item-widget overlay start end widget-get :span-overlay make-overlay nil t overlay-put button evaporate widget-put overlay-start overlay-end move-overlay] 7 (#$ . 56121)]) #@578 Return or register the location of the indicated ITEM-WIDGET ELEMENT. ELEMENT is one of :guides-span, :icon-span, :cue-span, or :body-span. When optional START is specified, optional END must also be. START and END are the actual bounds of the region, if provided. If START and END are not passed in, we return either a dotted pair of the current span, if established, or nil if not yet set. When the START and END are passed, we return t if the region changed or nil if not. Optional FORCE means force assignment of the region's text property, even if it's already set. (defalias 'allout-item-element-span-is #[(item-widget element &optional start end force) "\306 \"\211\203 \203) \f\205J \307 \f B#\210\310\f \311\312 \"A$\210\313\202J \f\2041 \n\202J \n@\f=\203? \nA =\204I \307 \n#\210\313\202J \314)\207" [item-widget element span force start end widget-get widget-put put-text-property category assoc t nil allout-span-to-category] 8 (#$ . 56932)]) #@318 Return the widget for the item at point, or nil if no widget yet exists. Point must be situated *before* the start of the target item's body, so we don't get an existing containing item when we're in the process of creating an item in the middle of another. Optional CONTAINER is used to obtain the container item. (defalias 'allout-get-item-widget #[(&optional container) "\204 \304 \305U\203 \207\306\n!\211\205@ <\205@ \307\310 \311\"!\203; `\312 \313\311#Y\205@ `\312 \313\314#X\205@ \202@ \315 !\210\316)\207" [container allout-container-item-widget allout-recent-prefix-beginning got allout-depth 0 widget-at marker-position widget-get :from widget-apply :actual-position :body-start allout-widgets-undecorate-item nil] 6 (#$ . 57909)]) #@456 Return a widget for the item at point, creating the widget if necessary. When creating a widget, we assume there has been a context change and decorate its siblings and parent, as well. Optional BLANK-CONTAINER is for internal use, to fabricate a meta-container item with an empty body when the first proper (non-container) item starts at the beginning of the file. Optional REDECORATE, if non-nil, means to redecorate the widget if it already exists. (defalias 'allout-get-or-create-item-widget #[(&optional redecorate blank-container) "\305!\306\211\203 \203 \307\n!\210\n\2026 \204! \310 \311U\2031 \f\2066 \312\313\314!\315#\211\2026 \312\313\314!!*\207" [blank-container buffer-undo-list widget redecorate allout-container-item-widget allout-get-item-widget t allout-redecorate-item allout-depth 0 allout-decorate-item-and-context widget-convert allout-item-widget nil] 5 (#$ . 58668)]) #@331 Return widget for parent of item at point, decorating it if necessary. We return the container widget if we're above the first proper item in the file. Optional REDECORATE, if non-nil, means to redecorate the widget if it already exists. Point will wind up positioned on the beginning of the parent or beginning of the buffer. (defalias 'allout-get-or-create-parent-widget #[(&optional redecorate) "o\204 \303 \204 \304\305!)\262\203 \306\n\307\"\207\306\n!\207" [allout-regexp inhibit-changing-match-data redecorate allout-ascend t looking-at allout-get-or-create-item-widget blank-container] 3 (#$ . 59579)]) #@138 Do routine processing of body text before and after modification. Operation is inhibited by `allout-inhibit-body-modification-handler'. (defalias 'allout-body-modification-handler #[(_beg _end) "\205 \301\207" [allout-inhibit-body-modification-hook nil] 1 (#$ . 60207)]) #@114 Protect against incoherent deletion of decoration graphics. Deletes allowed only when `inhibit-read-only' is t. (defalias 'allout-graphics-modification-handler #[(beg _end) "\203 \306 \307\"\310=\205L \212 b\210\311 \211\205 \312\n!*\207 \203# \313\207\314\304!\203- \f\204/ \313\207 \315=\2037 \313\207\316\317!\203E ?\313\211\207\320\321\322!\"\207" [undo-in-progress beg item-widget inhibit-read-only allout-mode this-command get-text-property category allout-icon-span-category allout-get-item-widget allout-widgets-exposure-undo-recorder t boundp quoted-insert yes-or-no-p "Unruly edit of outline structure - allow? " error "%s" substitute-command-keys allout-widgets-unset-inhibit-read-only allout-structure-unruly-deletion-message] 5 (#$ . 60488)]) #@158 Catchall handling of key bindings in item icon/cue hot-spots. Applies `allout-hotspot-key-handler' and calls the result, if any, as an interactive command. (defalias 'allout-item-icon-key-handler #[nil "\301 \211\205\n \302!)\207" [mapped-binding allout-hotspot-key-handler call-interactively] 3 (#$ . 61262) nil]) #@43 Location of the start of the item's text. (defalias 'allout-item-location #[(item-widget) "\301\302\303\"!\207" [item-widget overlay-start widget-get :span-overlay] 4 (#$ . 61586)]) #@101 Fetch allout icon for symbol NAME. We use a caching strategy, so the caller doesn't need to do so. (defalias 'allout-fetch-icon-image #[(name) "\306\307\310\"\311=\203 \n\202 \fD \312\"\211 \203+ \313A@!\202d \203S \204S \314\315\316 @\317\f\320 !\321\320 @!RF\"C! A\211\204/ \203b DB,\207" [allout-widgets-icon-types types allout-widgets-icons-light-subdir allout-widgets-icons-dark-subdir use-dir name allout-frame-property nil background-mode light assoc allout-widgets-copy-list allout-find-image append :type :file symbol-name "." key allout-widgets-icons-cache got allout-widgets-item-image-properties-emacs] 11 (#$ . 61776)]) #@47 Return seconds between START/END time values. (defalias 'allout-elapsed-time-seconds #[(end start) "\303 \"\304\n!)\207" [end start elapsed time-subtract float-time] 3 (#$ . 62451)]) (byte-code "\300\301\302\303!\203\f \303\202 \302\304!\203 \304\202 \305\"\210\300\306\302\307!\205\" \307\"\207" [defalias allout-frame-property fboundp frame-parameter frame-property nil allout-find-image find-image] 4) #@121 Return a copy of LIST, which may be a dotted list. The elements of LIST are not copied, just the list structure itself. (defalias 'allout-widgets-copy-list #[(list) ":\203 \302:\203 \211A\242 B\202 \237 \241\210)\207@\207" [list res nil] 3 (#$ . 62868)]) #@78 Debugging/diagnostic tool - count overlays with `button' property in region. (defalias 'allout-widgets-count-buttons-in-region #[(start end) "\206 e \206 d V\203 \n)\304\305\306\307\310 \"\"\"\211G)\207" [start end interim button-overlays delq nil mapcar #[(o) "\301\302\"\205 \207" [o overlay-get button] 3] overlays-in] 8 (#$ . 63141) "r"]) (defalias 'allout-widgets-run-unit-tests #[nil "\300\301!\210\302 \210\300\303!\210\304\305!\207" [message "Running allout-widget tests..." allout-test-range-overlaps "Running allout-widget tests... Done." sit-for 0.5] 2]) (byte-code "\203 \301 \210\302\303!\207" [allout-widgets-run-unit-tests-on-load allout-widgets-run-unit-tests provide allout-widgets] 2)
Close
