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 : whitespace.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:28 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/whitespace.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters ;;; and therefore cannot be loaded into Emacs 21 or earlier. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "23"))) (error "`whitespace.el' was compiled for Emacs 23 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'whitespace nil "Visualize blanks (TAB, (HARD) SPACE and NEWLINE)." :link '(emacs-library-link :tag "Source Lisp File" "whitespace.el") :version "23.1" :group 'wp :group 'data) #@3002 Specify which kind of blank is visualized. It's a list containing some or all of the following values: trailing trailing blanks are visualized via faces. tabs TABs are visualized via faces. spaces SPACEs and HARD SPACEs are visualized via faces. lines lines whose have columns beyond `whitespace-line-column' are highlighted via faces . Whole line is highlighted. It has precedence over `lines-tail' (see below). lines-tail lines whose have columns beyond `whitespace-line-column' are highlighted via faces. But only the part of line which goes beyond `whitespace-line-column' column. It has effect only if `lines' (see above) is not present in `whitespace-style'. newline NEWLINEs are visualized via faces. empty empty lines at beginning and/or end of buffer are visualized via faces. indentation::tab 8 or more SPACEs at beginning of line are visualized via faces. indentation::space TABs at beginning of line are visualized via faces. indentation 8 or more SPACEs at beginning of line are visualized, if `indent-tabs-mode' (which see) is non-nil; otherwise, TABs at beginning of line are visualized via faces. space-after-tab::tab 8 or more SPACEs after a TAB are visualized via faces. space-after-tab::space TABs are visualized when occurs 8 or more SPACEs after a TAB via faces. space-after-tab 8 or more SPACEs after a TAB are visualized, if `indent-tabs-mode' (which see) is non-nil; otherwise, the TABs are visualized via faces. space-before-tab::tab SPACEs before TAB are visualized via faces. space-before-tab::space TABs are visualized when occurs SPACEs before TAB via faces. space-before-tab SPACEs before TAB are visualized, if `indent-tabs-mode' (which see) is non-nil; otherwise, the TABs are visualized via faces. space-mark SPACEs and HARD SPACEs are visualized via display table. tab-mark TABs are visualized via display table. newline-mark NEWLINEs are visualized via display table. Any other value is ignored. If nil, don't visualize TABs, (HARD) SPACEs and NEWLINEs via faces and via display table. There is an evaluation order for some values, if some values are included in `whitespace-style' list. For example, if indentation, indentation::tab and/or indentation::space are included in `whitespace-style' list. The evaluation order for these values is: * For indentation: 1. indentation 2. indentation::tab 3. indentation::space * For SPACEs after TABs: 1. space-after-tab 2. space-after-tab::tab 3. space-after-tab::space * For SPACEs before TABs: 1. space-before-tab 2. space-before-tab::tab 3. space-before-tab::space So, for example, if indentation and indentation::space are included in `whitespace-style' list, the indentation value is evaluated instead of indentation::space value. See also `whitespace-display-mappings' for documentation. (custom-declare-variable 'whitespace-style ''(tabs spaces trailing lines space-before-tab newline indentation empty space-after-tab space-mark tab-mark newline-mark) '(#$ . 812) :type '(repeat :tag "Kind of Blank" (choice :tag "Kind of Blank Face" (const :tag "(Face) Trailing TABs, SPACEs and HARD SPACEs" trailing) (const :tag "(Face) SPACEs and HARD SPACEs" spaces) (const :tag "(Face) TABs" tabs) (const :tag "(Face) Lines" lines) (const :tag "(Face) SPACEs before TAB" space-before-tab) (const :tag "(Face) NEWLINEs" newline) (const :tag "(Face) Indentation SPACEs" indentation) (const :tag "(Face) Empty Lines At BOB And/Or EOB" empty) (const :tag "(Face) SPACEs after TAB" space-after-tab) (const :tag "(Mark) SPACEs and HARD SPACEs" space-mark) (const :tag "(Mark) TABs" tab-mark) (const :tag "(Mark) NEWLINEs" newline-mark))) :group 'whitespace) #@97 Symbol face used to visualize SPACE. Used when `whitespace-style' includes the value `spaces'. (custom-declare-variable 'whitespace-space ''whitespace-space '(#$ . 4674) :type 'face :group 'whitespace) (custom-declare-face 'whitespace-space '((((class color) (background dark)) (:background "grey20" :foreground "aquamarine3")) (((class color) (background light)) (:background "LightYellow" :foreground "aquamarine3")) (t (:inverse-video t))) "Face used to visualize SPACE." :group 'whitespace) #@102 Symbol face used to visualize HARD SPACE. Used when `whitespace-style' includes the value `spaces'. (custom-declare-variable 'whitespace-hspace ''whitespace-hspace '(#$ . 5177) :type 'face :group 'whitespace) (custom-declare-face 'whitespace-hspace '((((class color) (background dark)) (:background "grey24" :foreground "aquamarine3")) (((class color) (background light)) (:background "LemonChiffon3" :foreground "aquamarine3")) (t (:inverse-video t))) "Face used to visualize HARD SPACE." :group 'whitespace) #@93 Symbol face used to visualize TAB. Used when `whitespace-style' includes the value `tabs'. (custom-declare-variable 'whitespace-tab ''whitespace-tab '(#$ . 5694) :type 'face :group 'whitespace) (custom-declare-face 'whitespace-tab '((((class color) (background dark)) (:background "grey22" :foreground "aquamarine3")) (((class color) (background light)) (:background "beige" :foreground "aquamarine3")) (t (:inverse-video t))) "Face used to visualize TAB." :group 'whitespace) #@169 Symbol face used to visualize NEWLINE char mapping. See `whitespace-display-mappings'. Used when `whitespace-style' includes the values `newline-mark' and `newline'. (custom-declare-variable 'whitespace-newline ''whitespace-newline '(#$ . 6179) :type 'face :group 'whitespace) (custom-declare-face 'whitespace-newline '((((class color) (background dark)) (:foreground "darkgray" :bold nil)) (((class color) (background light)) (:foreground "lightgray" :bold nil)) (t (:underline t :bold nil))) "Face used to visualize NEWLINE char mapping.\n\nSee `whitespace-display-mappings'." :group 'whitespace) #@109 Symbol face used to visualize trailing blanks. Used when `whitespace-style' includes the value `trailing'. (custom-declare-variable 'whitespace-trailing ''whitespace-trailing '(#$ . 6787) :type 'face :group 'whitespace) (custom-declare-face 'whitespace-trailing '((((class mono)) (:inverse-video t :bold t :underline t)) (t (:background "red1" :foreground "yellow" :bold t))) "Face used to visualize trailing blanks." :group 'whitespace) #@133 Symbol face used to visualize "long" lines. See `whitespace-line-column'. Used when `whitespace-style' includes the value `line'. (custom-declare-variable 'whitespace-line ''whitespace-line '(#$ . 7233) :type 'face :group 'whitespace) (custom-declare-face 'whitespace-line '((((class mono)) (:inverse-video t :bold t :underline t)) (t (:background "gray20" :foreground "violet"))) "Face used to visualize \"long\" lines.\n\nSee `whitespace-line-column'." :group 'whitespace) #@119 Symbol face used to visualize SPACEs before TAB. Used when `whitespace-style' includes the value `space-before-tab'. (custom-declare-variable 'whitespace-space-before-tab ''whitespace-space-before-tab '(#$ . 7717) :type 'face :group 'whitespace) (custom-declare-face 'whitespace-space-before-tab '((((class mono)) (:inverse-video t :bold t :underline t)) (t (:background "DarkOrange" :foreground "firebrick"))) "Face used to visualize SPACEs before TAB." :group 'whitespace) #@134 Symbol face used to visualize 8 or more SPACEs at beginning of line. Used when `whitespace-style' includes the value `indentation'. (custom-declare-variable 'whitespace-indentation ''whitespace-indentation '(#$ . 8200) :type 'face :group 'whitespace) (custom-declare-face 'whitespace-indentation '((((class mono)) (:inverse-video t :bold t :underline t)) (t (:background "yellow" :foreground "firebrick"))) "Face used to visualize 8 or more SPACEs at beginning of line." :group 'whitespace) #@136 Symbol face used to visualize empty lines at beginning and/or end of buffer. Used when `whitespace-style' includes the value `empty'. (custom-declare-variable 'whitespace-empty ''whitespace-empty '(#$ . 8699) :type 'face :group 'whitespace) (custom-declare-face 'whitespace-empty '((((class mono)) (:inverse-video t :bold t :underline t)) (t (:background "yellow" :foreground "firebrick"))) "Face used to visualize empty lines at beginning and/or end of buffer." :group 'whitespace) #@127 Symbol face used to visualize 8 or more SPACEs after TAB. Used when `whitespace-style' includes the value `space-after-tab'. (custom-declare-variable 'whitespace-space-after-tab ''whitespace-space-after-tab '(#$ . 9190) :type 'face :group 'whitespace) (custom-declare-face 'whitespace-space-after-tab '((((class mono)) (:inverse-video t :bold t :underline t)) (t (:background "yellow" :foreground "firebrick"))) "Face used to visualize 8 or more SPACEs after TAB." :group 'whitespace) #@641 Specify HARD SPACE characters regexp. If you're using `mule' package, there may be other characters besides: "\xA0" "\x8A0" "\x920" "\xE20" "\xF20" that should be considered HARD SPACE. Here are some examples: "\\(^\xA0+\\)" visualize only leading HARD SPACEs. "\\(\xA0+$\\)" visualize only trailing HARD SPACEs. "\\(^\xA0+\\|\xA0+$\\)" visualize leading and/or trailing HARD SPACEs. "\t\\(\xA0+\\)\t" visualize only HARD SPACEs between TABs. NOTE: Enclose always by \\( and \\) the elements to highlight. Use exactly one pair of enclosing \\( and \\). Used when `whitespace-style' includes `spaces'. (custom-declare-variable 'whitespace-hspace-regexp '"\\(\\(\240\\|ࢠ\\|ठ\\|ภ\\|༠\\)+\\)" '(#$ . 9683) :type '(regexp :tag "HARD SPACE Chars") :group 'whitespace) #@546 Specify SPACE characters regexp. If you're using `mule' package, there may be other characters besides " " that should be considered SPACE. Here are some examples: "\\(^ +\\)" visualize only leading SPACEs. "\\( +$\\)" visualize only trailing SPACEs. "\\(^ +\\| +$\\)" visualize leading and/or trailing SPACEs. "\t\\( +\\)\t" visualize only SPACEs between TABs. NOTE: Enclose always by \\( and \\) the elements to highlight. Use exactly one pair of enclosing \\( and \\). Used when `whitespace-style' includes `spaces'. (custom-declare-variable 'whitespace-space-regexp '"\\( +\\)" '(#$ . 10499) :type '(regexp :tag "SPACE Chars") :group 'whitespace) #@538 Specify TAB characters regexp. If you're using `mule' package, there may be other characters besides "\t" that should be considered TAB. Here are some examples: "\\(^\t+\\)" visualize only leading TABs. "\\(\t+$\\)" visualize only trailing TABs. "\\(^\t+\\|\t+$\\)" visualize leading and/or trailing TABs. " \\(\t+\\) " visualize only TABs between SPACEs. NOTE: Enclose always by \\( and \\) the elements to highlight. Use exactly one pair of enclosing \\( and \\). Used when `whitespace-style' includes `tabs'. (custom-declare-variable 'whitespace-tab-regexp '"\\( +\\)" '(#$ . 11182) :type '(regexp :tag "TAB Chars") :group 'whitespace) #@377 Specify trailing characters regexp. If you're using `mule' package, there may be other characters besides: " " "\t" "\xA0" "\x8A0" "\x920" "\xE20" "\xF20" that should be considered blank. NOTE: Enclose always by "\\(" and "\\)$" the elements to highlight. Use exactly one pair of enclosing elements above. Used when `whitespace-style' includes `trailing'. (custom-declare-variable 'whitespace-trailing-regexp '"\\(\\( \\| \\|\240\\|ࢠ\\|ठ\\|ภ\\|༠\\)+\\)$" '(#$ . 11853) :type '(regexp :tag "Trailing Chars") :group 'whitespace) #@313 Specify SPACEs before TAB regexp. If you're using `mule' package, there may be other characters besides: " " "\t" "\xA0" "\x8A0" "\x920" "\xE20" "\xF20" that should be considered blank. Used when `whitespace-style' includes `space-before-tab', `space-before-tab::tab' or `space-before-tab::space'. (custom-declare-variable 'whitespace-space-before-tab-regexp '"\\( +\\)\\( +\\)" '(#$ . 12415) :type '(regexp :tag "SPACEs Before TAB") :group 'whitespace) #@437 Specify regexp for 8 or more SPACEs at beginning of line. It is a cons where the cons car is used for SPACEs visualization and the cons cdr is used for TABs visualization. If you're using `mule' package, there may be other characters besides: " " "\t" "\xA0" "\x8A0" "\x920" "\xE20" "\xF20" that should be considered blank. Used when `whitespace-style' includes `indentation', `indentation::tab' or `indentation::space'. (custom-declare-variable 'whitespace-indentation-regexp ''("^ *\\(\\( \\{%d\\}\\)+\\)[^\n ]" . "^ *\\( +\\)[^\n]") '(#$ . 12890) :type '(cons (regexp :tag "Indentation SPACEs") (regexp :tag "Indentation TABs")) :group 'whitespace) #@268 Specify regexp for empty lines at beginning of buffer. If you're using `mule' package, there may be other characters besides: " " "\t" "\xA0" "\x8A0" "\x920" "\xE20" "\xF20" that should be considered blank. Used when `whitespace-style' includes `empty'. (custom-declare-variable 'whitespace-empty-at-bob-regexp '"\\`\\(\\([ ]*\n\\)+\\)" '(#$ . 13564) :type '(regexp :tag "Empty Lines At Beginning Of Buffer") :group 'whitespace) #@262 Specify regexp for empty lines at end of buffer. If you're using `mule' package, there may be other characters besides: " " "\t" "\xA0" "\x8A0" "\x920" "\xE20" "\xF20" that should be considered blank. Used when `whitespace-style' includes `empty'. (custom-declare-variable 'whitespace-empty-at-eob-regexp '"^\\([ \n]+\\)\\'" '(#$ . 14014) :type '(regexp :tag "Empty Lines At End Of Buffer") :group 'whitespace) #@437 Specify regexp for 8 or more SPACEs after TAB. It is a cons where the cons car is used for SPACEs visualization and the cons cdr is used for TABs visualization. If you're using `mule' package, there may be other characters besides: " " "\t" "\xA0" "\x8A0" "\x920" "\xE20" "\xF20" that should be considered blank. Used when `whitespace-style' includes `space-after-tab', `space-after-tab::tab' or `space-after-tab::space'. (custom-declare-variable 'whitespace-space-after-tab-regexp ''(" +\\(\\( \\{%d\\}\\)+\\)" . "\\( +\\) +") '(#$ . 14446) :type '(regexp :tag "SPACEs After TAB") :group 'whitespace) #@118 Specify column beyond which the line is highlighted. Used when `whitespace-style' includes `lines' or `lines-tail'. (custom-declare-variable 'whitespace-line-column '80 '(#$ . 15069) :type '(integer :tag "Line Length") :group 'whitespace) #@751 Specify an alist of mappings for displaying characters. Each element has the following form: (KIND CHAR VECTOR...) Where: KIND is the kind of character. It can be one of the following symbols: tab-mark for TAB character space-mark for SPACE or HARD SPACE character newline-mark for NEWLINE character CHAR is the character to be mapped. VECTOR is a vector of characters to be displayed in place of CHAR. The first display vector that can be displayed is used; if no display vector for a mapping can be displayed, then that character is displayed unmodified. The NEWLINE character is displayed using the face given by `whitespace-newline' variable. Used when `whitespace-style' includes `tab-mark', `space-mark' or `newline-mark'. (custom-declare-variable 'whitespace-display-mappings ''((space-mark 32 [183] [46]) (space-mark 160 [164] [95]) (space-mark 2208 [2212] [95]) (space-mark 2336 [2340] [95]) (space-mark 3616 [3620] [95]) (space-mark 3872 [3876] [95]) (newline-mark 10 [36 10]) (tab-mark 9 [187 9] [92 9])) '(#$ . 15316) :type '(repeat (list :tag "Character Mapping" (choice :tag "Char Kind" (const :tag "Tab" tab-mark) (const :tag "Space" space-mark) (const :tag "Newline" newline-mark)) (character :tag "Char") (repeat :inline t :tag "Vector List" (vector :tag "" (repeat :inline t :tag "Vector Characters" (character :tag "Char")))))) :group 'whitespace) #@597 Modes for which global `whitespace-mode' is automagically turned on. Global `whitespace-mode' is controlled by the command `global-whitespace-mode'. If nil, means no modes have `whitespace-mode' automatically turned on. If t, all modes that support `whitespace-mode' have it automatically turned on. Else it should be a list of `major-mode' symbol names for which `whitespace-mode' should be automatically turned on. The sense of the list is negated if it begins with `not'. For example: (c-mode c++-mode) means that `whitespace-mode' is turned on for buffers in C and C++ modes only. (custom-declare-variable 'whitespace-global-modes 't '(#$ . 16711) :type '(choice :tag "Global Modes" (const :tag "None" nil) (const :tag "All" t) (set :menu-tag "Mode Specific" :tag "Modes" :value (not) (const :tag "Except" not) (repeat :inline t (symbol :tag "Mode")))) :group 'whitespace) #@817 Specify which action is taken when a buffer is visited or written. It's a list containing some or all of the following values: nil no action is taken. cleanup cleanup any bogus whitespace always when local whitespace is turned on. See `whitespace-cleanup' and `whitespace-cleanup-region'. report-on-bogus report if there is any bogus whitespace always when local whitespace is turned on. auto-cleanup cleanup any bogus whitespace when buffer is written. See `whitespace-cleanup' and `whitespace-cleanup-region'. abort-on-bogus abort if there is any bogus whitespace and the buffer is written. warn-if-read-only give a warning if `cleanup' or `auto-cleanup' is included in `whitespace-action' and the buffer is read-only. Any other value is treated as nil. (custom-declare-variable 'whitespace-action 'nil '(#$ . 17606) :type '(choice :tag "Actions" (const :tag "None" nil) (repeat :tag "Action List" (choice :tag "Action" (const :tag "Cleanup When On" cleanup) (const :tag "Report On Bogus" report-on-bogus) (const :tag "Auto Cleanup" auto-cleanup) (const :tag "Abort On Bogus" abort-on-bogus) (const :tag "Warn If Read-Only" warn-if-read-only)))) :group 'whitespace) #@99 Non-nil if Whitespace mode is enabled. Use the command `whitespace-mode' to change this variable. (defvar whitespace-mode nil (#$ . 18840)) (make-variable-buffer-local 'whitespace-mode) #@333 Toggle whitespace minor mode visualization ("ws" on modeline). If ARG is null, toggle whitespace visualization. If ARG is a number greater than zero, turn on visualization; otherwise, turn off visualization. Only useful with a windowing system. See also `whitespace-style', `whitespace-newline' and `whitespace-display-mappings'. (defalias 'whitespace-mode #[(&optional arg) "\304 \305=\203 \n?\202( \203 \306 !\307V\202( \n\204\" \310\202( \311\312\302\"\210\313 \2032 \313\202B \n\203? \314 \210\315 \210\202B \316 \210\317\320\n\203L \321\202M \322\"\210\323 \203m \304 \203` \304 \232\203m \311\324\n\203j \325\202k \326\"\210)\327 \210\n\207" [#1=#:last-message arg whitespace-mode noninteractive current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil whitespace-turn-on whitespace-action-when-on whitespace-turn-off run-hooks whitespace-mode-hook whitespace-mode-on-hook whitespace-mode-off-hook called-interactively-p "Whitespace mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 19033) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode whitespace-mode " ws" boundp whitespace-mode-map] 5) #@115 Non-nil if Whitespace-Newline mode is enabled. Use the command `whitespace-newline-mode' to change this variable. (defvar whitespace-newline-mode nil (#$ . 20270)) (make-variable-buffer-local 'whitespace-newline-mode) #@513 Toggle NEWLINE minor mode visualization ("nl" on modeline). If ARG is null, toggle NEWLINE visualization. If ARG is a number greater than zero, turn on visualization; otherwise, turn off visualization. Only useful with a windowing system. Use `whitespace-newline-mode' only for NEWLINE visualization exclusively. For other visualizations, including NEWLINE visualization together with (HARD) SPACEs and/or TABs, please, use `whitespace-mode'. See also `whitespace-newline' and `whitespace-display-mappings'. (defalias 'whitespace-newline-mode #[(&optional arg) "\305 \306=\203 \n?\202( \203 \307 !\310V\202( \n\204\" \311\202( \312\313\302\"\210\314\315\304\n!\210\f)\316\317\n\203< \320\202= \321\"\210\322 \203] \305 \203P \305 \232\203] \312\323\n\203Z \324\202[ \325\"\210)\326 \210\n\207" [#1=#:last-message arg whitespace-newline-mode whitespace-style whitespace-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil (newline-mark newline) run-hooks whitespace-newline-mode-hook whitespace-newline-mode-on-hook whitespace-newline-mode-off-hook called-interactively-p "Whitespace-Newline mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 20495) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode whitespace-newline-mode " nl" boundp whitespace-newline-mode-map] 5) #@287 Non-nil if Global-Whitespace mode is enabled. See the command `global-whitespace-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-whitespace-mode'. (custom-declare-variable 'global-whitespace-mode 'nil '(#$ . 21913) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'whitespace :type 'boolean) #@340 Toggle whitespace global minor mode visualization ("WS" on modeline). If ARG is null, toggle whitespace visualization. If ARG is a number greater than zero, turn on visualization; otherwise, turn off visualization. Only useful with a windowing system. See also `whitespace-style', `whitespace-newline' and `whitespace-display-mappings'. (defalias 'global-whitespace-mode #[(&optional arg) "\306 \307=\203 \n?\202( \203 \310 !\311V\202( \n\204\" \312\202( \313\314\302\"\210\315 \2032 \315\202\203 \n\203^ \212\316\317\320\"\210\321 \315 \211 \203Z @\211q\210 \204S \320 \210 A\211\204E +\202\203 \212\322\317\320\"\210\321 \315 \211 \203\202 @\211q\210 \204{ \323 \210 A\211\204m +\324\325\n\203\215 \326\202\216 \327\"\210\330 \203\262 \331\302!\210\306 \203\245 \306 \232\203\262 \313\332\n\203\257 \333\202\260 \334\"\210)\335 \210\n\207" [#1=#:last-message arg global-whitespace-mode noninteractive buffer --dolist-tail-- current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil add-hook find-file-hook whitespace-turn-on-if-enabled buffer-list remove-hook whitespace-turn-off run-hooks global-whitespace-mode-hook global-whitespace-mode-on-hook global-whitespace-mode-off-hook called-interactively-p customize-mark-as-set "Global-Whitespace mode %sabled" "en" "dis" force-mode-line-update whitespace-mode] 4 (#$ . 22376) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode global-whitespace-mode " WS" boundp global-whitespace-mode-map] 5) (defalias 'whitespace-turn-on-if-enabled #[nil "\304=\204$ <\203 \242\305=\203 A>?\202! >\202! \306\205G \306 \206F \307 \310H\311=\206F \307 \310H\312=\203D \307 \313\230?\206F \314 )\207" [whitespace-global-modes major-mode inhibit-quit noninteractive t not nil buffer-name 0 32 42 "*scratch*" whitespace-turn-on] 2]) #@311 Non-nil if Global-Whitespace-Newline mode is enabled. See the command `global-whitespace-newline-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-whitespace-newline-mode'. (custom-declare-variable 'global-whitespace-newline-mode 'nil '(#$ . 24288) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'whitespace :type 'boolean) #@534 Toggle NEWLINE global minor mode visualization ("NL" on modeline). If ARG is null, toggle NEWLINE visualization. If ARG is a number greater than zero, turn on visualization; otherwise, turn off visualization. Only useful with a windowing system. Use `global-whitespace-newline-mode' only for NEWLINE visualization exclusively. For other visualizations, including NEWLINE visualization together with (HARD) SPACEs and/or TABs, please, use `global-whitespace-mode'. See also `whitespace-newline' and `whitespace-display-mappings'. (defalias 'global-whitespace-newline-mode #[(&optional arg) "\305 \306=\203 \n?\202( \203 \307 !\310V\202( \n\204\" \311\202( \312\313\302\"\210\314\315\304\n!\210\f)\316\317\n\203< \320\202= \321\"\210\322 \203a \323\302!\210\305 \203T \305 \232\203a \312\324\n\203^ \325\202_ \326\"\210)\327 \210\n\207" [#1=#:last-message arg global-whitespace-newline-mode whitespace-style global-whitespace-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil (newline-mark newline) run-hooks global-whitespace-newline-mode-hook global-whitespace-newline-mode-on-hook global-whitespace-newline-mode-off-hook called-interactively-p customize-mark-as-set "Global-Whitespace-Newline mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 24783) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode global-whitespace-newline-mode " NL" boundp global-whitespace-newline-mode-map] 5) #@42 List of valid `whitespace-style' values. (defconst whitespace-style-value-list '(tabs spaces trailing lines lines-tail newline empty indentation indentation::tab indentation::space space-after-tab space-after-tab::tab space-after-tab::space space-before-tab space-before-tab::tab space-before-tab::space help-newline tab-mark space-mark newline-mark) (#$ . 26319)) #@216 Alist of toggle options. Each element has the form: (CHAR . SYMBOL) Where: CHAR is a char which the user will have to type. SYMBOL is a valid symbol associated with CHAR. See `whitespace-style-value-list'. (defconst whitespace-toggle-option-alist '((116 . tabs) (115 . spaces) (114 . trailing) (108 . lines) (76 . lines-tail) (110 . newline) (101 . empty) (9 . indentation) (73 . indentation::tab) (105 . indentation::space) (1 . space-after-tab) (65 . space-after-tab::tab) (97 . space-after-tab::space) (2 . space-before-tab) (66 . space-before-tab::tab) (98 . space-before-tab::space) (84 . tab-mark) (83 . space-mark) (78 . newline-mark) (120 . whitespace-style)) (#$ . 26691)) #@48 Used to save locally `whitespace-style' value. (defvar whitespace-active-style nil (#$ . 27388)) #@48 Used to save locally `indent-tabs-mode' value. (defvar whitespace-indent-tabs-mode indent-tabs-mode (#$ . 27491)) #@41 Used to save locally `tab-width' value. (defvar whitespace-tab-width tab-width (#$ . 27611)) #@2613 Toggle local `whitespace-mode' options. If local whitespace-mode is off, toggle the option given by ARG and turn on local whitespace-mode. If local whitespace-mode is on, toggle the option given by ARG and restart local whitespace-mode. Interactively, it reads one of the following chars: CHAR MEANING (VIA FACES) t toggle TAB visualization s toggle SPACE and HARD SPACE visualization r toggle trailing blanks visualization l toggle "long lines" visualization L toggle "long lines" tail visualization n toggle NEWLINE visualization e toggle empty line at bob and/or eob visualization C-i toggle indentation SPACEs visualization (via `indent-tabs-mode') I toggle indentation SPACEs visualization i toggle indentation TABs visualization C-a toggle SPACEs after TAB visualization (via `indent-tabs-mode') A toggle SPACEs after TAB: SPACEs visualization a toggle SPACEs after TAB: TABs visualization C-b toggle SPACEs before TAB visualization (via `indent-tabs-mode') B toggle SPACEs before TAB: SPACEs visualization b toggle SPACEs before TAB: TABs visualization (VIA DISPLAY TABLE) T toggle TAB visualization S toggle SPACEs before TAB visualization N toggle NEWLINE visualization x restore `whitespace-style' value ? display brief help Non-interactively, ARG should be a symbol or a list of symbols. The valid symbols are: tabs toggle TAB visualization spaces toggle SPACE and HARD SPACE visualization trailing toggle trailing blanks visualization lines toggle "long lines" visualization lines-tail toggle "long lines" tail visualization newline toggle NEWLINE visualization empty toggle empty line at bob and/or eob visualization indentation toggle indentation SPACEs visualization indentation::tab toggle indentation SPACEs visualization indentation::space toggle indentation TABs visualization space-after-tab toggle SPACEs after TAB visualization space-after-tab::tab toggle SPACEs after TAB: SPACEs visualization space-after-tab::space toggle SPACEs after TAB: TABs visualization space-before-tab toggle SPACEs before TAB visualization space-before-tab::tab toggle SPACEs before TAB: SPACEs visualization space-before-tab::space toggle SPACEs before TAB: TABs visualization tab-mark toggle TAB visualization space-mark toggle SPACEs before TAB visualization newline-mark toggle NEWLINE visualization whitespace-style restore `whitespace-style' value Only useful with a windowing system. See `whitespace-style' and `indent-tabs-mode' for documentation. (defalias 'whitespace-toggle-options #[(arg) "\303\304 #\305\306!\210\305\307!)\207" [arg whitespace-active-style whitespace-style whitespace-toggle-list t whitespace-mode 0 1] 4 (#$ . 27712) (whitespace-interactive-char t)]) #@53 Used to toggle the global `whitespace-style' value. (defvar whitespace-toggle-style nil (#$ . 30558)) #@2620 Toggle global `whitespace-mode' options. If global whitespace-mode is off, toggle the option given by ARG and turn on global whitespace-mode. If global whitespace-mode is on, toggle the option given by ARG and restart global whitespace-mode. Interactively, it accepts one of the following chars: CHAR MEANING (VIA FACES) t toggle TAB visualization s toggle SPACE and HARD SPACE visualization r toggle trailing blanks visualization l toggle "long lines" visualization L toggle "long lines" tail visualization n toggle NEWLINE visualization e toggle empty line at bob and/or eob visualization C-i toggle indentation SPACEs visualization (via `indent-tabs-mode') I toggle indentation SPACEs visualization i toggle indentation TABs visualization C-a toggle SPACEs after TAB visualization (via `indent-tabs-mode') A toggle SPACEs after TAB: SPACEs visualization a toggle SPACEs after TAB: TABs visualization C-b toggle SPACEs before TAB visualization (via `indent-tabs-mode') B toggle SPACEs before TAB: SPACEs visualization b toggle SPACEs before TAB: TABs visualization (VIA DISPLAY TABLE) T toggle TAB visualization S toggle SPACEs before TAB visualization N toggle NEWLINE visualization x restore `whitespace-style' value ? display brief help Non-interactively, ARG should be a symbol or a list of symbols. The valid symbols are: tabs toggle TAB visualization spaces toggle SPACE and HARD SPACE visualization trailing toggle trailing blanks visualization lines toggle "long lines" visualization lines-tail toggle "long lines" tail visualization newline toggle NEWLINE visualization empty toggle empty line at bob and/or eob visualization indentation toggle indentation SPACEs visualization indentation::tab toggle indentation SPACEs visualization indentation::space toggle indentation TABs visualization space-after-tab toggle SPACEs after TAB visualization space-after-tab::tab toggle SPACEs after TAB: SPACEs visualization space-after-tab::space toggle SPACEs after TAB: TABs visualization space-before-tab toggle SPACEs before TAB visualization space-before-tab::tab toggle SPACEs before TAB: SPACEs visualization space-before-tab::space toggle SPACEs before TAB: TABs visualization tab-mark toggle TAB visualization space-mark toggle SPACEs before TAB visualization newline-mark toggle NEWLINE visualization whitespace-style restore `whitespace-style' value Only useful with a windowing system. See `whitespace-style' and `indent-tabs-mode' for documentation. (defalias 'global-whitespace-toggle-options #[(arg) "\303\304 #\211\305\306!\210\305\307!)\207" [arg whitespace-toggle-style whitespace-style whitespace-toggle-list nil global-whitespace-mode 0 1] 5 (#$ . 30668) (whitespace-interactive-char nil)]) #@2046 Cleanup some blank problems in all buffer or at region. It usually applies to the whole buffer, but in transient mark mode when the mark is active, it applies to the region. It also applies to the region when it is not in transient mark mode, the mark is active and \[universal-argument] was pressed just before calling `whitespace-cleanup' interactively. See also `whitespace-cleanup-region'. The problems cleaned up are: 1. empty lines at beginning of buffer. 2. empty lines at end of buffer. If `whitespace-style' includes the value `empty', remove all empty lines at beginning and/or end of buffer. 3. 8 or more SPACEs at beginning of line. If `whitespace-style' includes the value `indentation': replace 8 or more SPACEs at beginning of line by TABs, if `indent-tabs-mode' is non-nil; otherwise, replace TABs by SPACEs. If `whitespace-style' includes the value `indentation::tab', replace 8 or more SPACEs at beginning of line by TABs. If `whitespace-style' includes the value `indentation::space', replace TABs by SPACEs. 4. SPACEs before TAB. If `whitespace-style' includes the value `space-before-tab': replace SPACEs by TABs, if `indent-tabs-mode' is non-nil; otherwise, replace TABs by SPACEs. If `whitespace-style' includes the value `space-before-tab::tab', replace SPACEs by TABs. If `whitespace-style' includes the value `space-before-tab::space', replace TABs by SPACEs. 5. SPACEs or TABs at end of line. If `whitespace-style' includes the value `trailing', remove all SPACEs or TABs at end of line. 6. 8 or more SPACEs after TAB. If `whitespace-style' includes the value `space-after-tab': replace SPACEs by TABs, if `indent-tabs-mode' is non-nil; otherwise, replace TABs by SPACEs. If `whitespace-style' includes the value `space-after-tab::tab', replace SPACEs by TABs. If `whitespace-style' includes the value `space-after-tab::space', replace TABs by SPACEs. See `whitespace-style', `indent-tabs-mode' and `tab-width' for documentation. (defalias 'whitespace-cleanup #[nil "\203 \306\307!\207 \204 \n\203 \203 \310\311 \312 \"\207\212\313 \314\216\315 >\203L \316 eb\210\317\316\320#\203< \321\224\321\225|\210\317\316\320#\203K \321\224\321\225|\210)+\310ed\"\207" [buffer-read-only transient-mark-mode current-prefix-arg mark-active save-match-data-internal whitespace-style whitespace-warn-read-only "cleanup" whitespace-cleanup-region region-beginning region-end match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) empty nil re-search-forward t 1 overwrite-mode whitespace-empty-at-bob-regexp whitespace-empty-at-eob-regexp] 4 (#$ . 33546) "@"]) #@1501 Cleanup some blank problems at region. The problems cleaned up are: 1. 8 or more SPACEs at beginning of line. If `whitespace-style' includes the value `indentation': replace 8 or more SPACEs at beginning of line by TABs, if `indent-tabs-mode' is non-nil; otherwise, replace TABs by SPACEs. If `whitespace-style' includes the value `indentation::tab', replace 8 or more SPACEs at beginning of line by TABs. If `whitespace-style' includes the value `indentation::space', replace TABs by SPACEs. 2. SPACEs before TAB. If `whitespace-style' includes the value `space-before-tab': replace SPACEs by TABs, if `indent-tabs-mode' is non-nil; otherwise, replace TABs by SPACEs. If `whitespace-style' includes the value `space-before-tab::tab', replace SPACEs by TABs. If `whitespace-style' includes the value `space-before-tab::space', replace TABs by SPACEs. 3. SPACEs or TABs at end of line. If `whitespace-style' includes the value `trailing', remove all SPACEs or TABs at end of line. 4. 8 or more SPACEs after TAB. If `whitespace-style' includes the value `space-after-tab': replace SPACEs by TABs, if `indent-tabs-mode' is non-nil; otherwise, replace TABs by SPACEs. If `whitespace-style' includes the value `space-after-tab::tab', replace SPACEs by TABs. If `whitespace-style' includes the value `space-after-tab::space', replace TABs by SPACEs. See `whitespace-style', `indent-tabs-mode' and `tab-width' for documentation. (defalias 'whitespace-cleanup-region #[(start end) "\203 \306\307!\207 \n^\310 \n]! \f\311\211 % & ' ( )\212\312 *\313\216\314+>\203W \315 ,)b\210\316,(\317#\203S \320 \321\224b\210\322 \210l\2045 j\210\2025 )\202\200 \323+>\203m \324\325)(\315\326!\321%\210\202\200 \327+>\203\200 \324\330)(\315\331!\321%\210\332+>\203\222 \324\333)(-\334%\210\335+>\203\257 \324 \203\242 \325\202\243 \330)(\336 \334%\210\202\330 \337+>\203\305 \324\325)(\336\326!\334%\210\202\330 \340+>\203\330 \324\330)(\336\331!\334%\210\341+>\203\375 \324 \203\350 \325\202\351 \330)(. \203\367 \334\202\370 \342%\210\202$\343+>\203\324\325)(.\334%\210\202$\344+>\203$\324\330)(.\342%\210+(\311\211\223.\207" [buffer-read-only start end whitespace-indent-tabs-mode whitespace-tab-width tmp whitespace-warn-read-only "cleanup region" copy-marker nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) indentation whitespace-indentation-regexp re-search-forward t current-indentation 0 delete-horizontal-space indentation::tab whitespace-replace-action tabify tab indentation::space untabify space trailing delete-region 1 space-after-tab whitespace-space-after-tab-regexp space-after-tab::tab space-after-tab::space space-before-tab 2 space-before-tab::tab space-before-tab::space overwrite-mode tab-width indent-tabs-mode rend rstart save-match-data-internal whitespace-style regexp whitespace-trailing-regexp whitespace-space-before-tab-regexp] 6 (#$ . 36269) "@r"]) #@155 Do ACTION in the string matched by REGEXP between RSTART and REND. INDEX is the level group matched by REGEXP and used by ACTION. See also `tab-width'. (defalias 'whitespace-replace-action #[(action rstart rend regexp index) "b\210\305 \n\306#\205 \225b\210\f \224 \225\"\210\202 \207" [rstart regexp rend index action re-search-forward t] 4 (#$ . 39314)]) #@59 Return REGEXP depending on `whitespace-indent-tabs-mode'. (defalias 'whitespace-regexp #[(regexp &optional kind) "\304=\204\n \203 \305\n@ \"\207\306=\204 ?\205 \nA\207" [kind whitespace-indent-tabs-mode regexp whitespace-tab-width tab format space] 3 (#$ . 39683)]) #@75 Return the indentation regexp depending on `whitespace-indent-tabs-mode'. (defalias 'whitespace-indentation-regexp #[(&optional kind) "\302 \"\207" [whitespace-indentation-regexp kind whitespace-regexp] 3 (#$ . 39963)]) #@79 Return the space-after-tab regexp depending on `whitespace-indent-tabs-mode'. (defalias 'whitespace-space-after-tab-regexp #[(&optional kind) "\302 \"\207" [whitespace-space-after-tab-regexp kind whitespace-regexp] 3 (#$ . 40190)]) #@59 List of whitespace bogus symbol and corresponding regexp. (defconst whitespace-report-list (byte-code "\304B\304 B\305\nB\306\307B\310\307B\311\307B\312 B\313 B\314 B\315\307B\316\307B\317\307B\257\f\207" [whitespace-empty-at-bob-regexp whitespace-empty-at-eob-regexp whitespace-trailing-regexp whitespace-space-before-tab-regexp empty trailing indentation nil indentation::tab indentation::space space-before-tab space-before-tab::tab space-before-tab::space space-after-tab space-after-tab::tab space-after-tab::space] 13) (#$ . 40429)) #@181 Text for whitespace bogus report. It is a cons of strings, where the car part is used when `indent-tabs-mode' is non-nil, and the cdr part is used when `indent-tabs-mode' is nil. (defconst whitespace-report-text '(" Whitespace Report\n\n Current Setting Whitespace Problem\n\n empty [] [] empty lines at beginning of buffer\n empty [] [] empty lines at end of buffer\n trailing [] [] SPACEs or TABs at end of line\n indentation [] [] 8 or more SPACEs at beginning of line\n indentation::tab [] [] 8 or more SPACEs at beginning of line\n indentation::space [] [] TABs at beginning of line\n space-before-tab [] [] SPACEs before TAB\n space-before-tab::tab [] [] SPACEs before TAB: SPACEs\n space-before-tab::space [] [] SPACEs before TAB: TABs\n space-after-tab [] [] 8 or more SPACEs after TAB\n space-after-tab::tab [] [] 8 or more SPACEs after TAB: SPACEs\n space-after-tab::space [] [] 8 or more SPACEs after TAB: TABs\n\n indent-tabs-mode =\n tab-width = \n\n" . " Whitespace Report\n\n Current Setting Whitespace Problem\n\n empty [] [] empty lines at beginning of buffer\n empty [] [] empty lines at end of buffer\n trailing [] [] SPACEs or TABs at end of line\n indentation [] [] TABs at beginning of line\n indentation::tab [] [] 8 or more SPACEs at beginning of line\n indentation::space [] [] TABs at beginning of line\n space-before-tab [] [] SPACEs before TAB\n space-before-tab::tab [] [] SPACEs before TAB: SPACEs\n space-before-tab::space [] [] SPACEs before TAB: TABs\n space-after-tab [] [] 8 or more SPACEs after TAB\n space-after-tab::tab [] [] 8 or more SPACEs after TAB: SPACEs\n space-after-tab::space [] [] 8 or more SPACEs after TAB: TABs\n\n indent-tabs-mode =\n tab-width = \n\n") (#$ . 40976)) #@46 The buffer name for whitespace bogus report. (defconst whitespace-report-buffer-name "*Whitespace Report*" (#$ . 43098)) #@1276 Report some whitespace problems in buffer. Return nil if there is no whitespace problem; otherwise, return non-nil. If FORCE is non-nil or \[universal-argument] was pressed just before calling `whitespace-report' interactively, it forces `whitespace-style' to have: empty trailing indentation space-before-tab space-after-tab If REPORT-IF-BOGUS is non-nil, it reports only when there are any whitespace problems in buffer. Report if some of the following whitespace problems exist: * If `indent-tabs-mode' is non-nil: empty 1. empty lines at beginning of buffer. empty 2. empty lines at end of buffer. trailing 3. SPACEs or TABs at end of line. indentation 4. 8 or more SPACEs at beginning of line. space-before-tab 5. SPACEs before TAB. space-after-tab 6. 8 or more SPACEs after TAB. * If `indent-tabs-mode' is nil: empty 1. empty lines at beginning of buffer. empty 2. empty lines at end of buffer. trailing 3. SPACEs or TABs at end of line. indentation 4. TABS at beginning of line. space-before-tab 5. SPACEs before TAB. space-after-tab 6. 8 or more SPACEs after TAB. See `whitespace-style' for documentation. See also `whitespace-cleanup' and `whitespace-cleanup-region' for cleaning up these problems. (defalias 'whitespace-report #[(&optional force report-if-bogus) "\302ed $\207" [force report-if-bogus whitespace-report-region] 5 (#$ . 43227) (list current-prefix-arg)]) #@1285 Report some whitespace problems in a region. Return nil if there is no whitespace problem; otherwise, return non-nil. If FORCE is non-nil or \[universal-argument] was pressed just before calling `whitespace-report-region' interactively, it forces `whitespace-style' to have: empty indentation space-before-tab trailing space-after-tab If REPORT-IF-BOGUS is non-nil, it reports only when there are any whitespace problems in buffer. Report if some of the following whitespace problems exist: * If `indent-tabs-mode' is non-nil: empty 1. empty lines at beginning of buffer. empty 2. empty lines at end of buffer. trailing 3. SPACEs or TABs at end of line. indentation 4. 8 or more SPACEs at beginning of line. space-before-tab 5. SPACEs before TAB. space-after-tab 6. 8 or more SPACEs after TAB. * If `indent-tabs-mode' is nil: empty 1. empty lines at beginning of buffer. empty 2. empty lines at end of buffer. trailing 3. SPACEs or TABs at end of line. indentation 4. TABS at beginning of line. space-before-tab 5. SPACEs before TAB. space-after-tab 6. 8 or more SPACEs after TAB. See `whitespace-style' for documentation. See also `whitespace-cleanup' and `whitespace-cleanup-region' for cleaning up these problems. (defalias 'whitespace-report-region #[(start end &optional force report-if-bogus) "\206 \212\306 \307\216\310\f ^ \f ] \311\312 \" \203( \202) \313\203\254 \314 !\210 ! \" #r\315 !q\210\316 \210#\203N $@\202Q $Ac\210eb\210\317y\210 \310 %\211 &\203\213 &@%\320y\210\321\322%@'>\"\210\321\323 @\"\210 A &A\211&\204d *\320y\210\324#!\210\324\"!\210 \203\247 db\210\325\326\327\330\261\210\331p!\210+ .\207" [current-prefix-arg force save-match-data-internal has-bogus start end match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil mapcar #[(option) "\203\n \306\307 @\"\210\nb\210 @\310=\203 \311 \202[ @\312=\203& \311\313!\202[ @\314=\2033 \311\315!\202[ @\316=\203? \317 \202[ @\320=\203L \317\313!\202[ @\321=\203Y \317\315!\202[ A\322 \f\323#\205g \323\211)\207" [force option rstart regexp rend has-bogus add-to-list whitespace-style indentation whitespace-indentation-regexp indentation::tab tab indentation::space space space-after-tab whitespace-space-after-tab-regexp space-after-tab::tab space-after-tab::space re-search-forward t] 4] t whitespace-kill-buffer get-buffer-create erase-buffer 3 1 whitespace-mark-x 27 7 whitespace-insert-value " Type `M-x whitespace-cleanup'" " to cleanup the buffer.\n\n" " Type `M-x whitespace-cleanup-region'" " to cleanup a region.\n\n" whitespace-display-window rstart rend whitespace-report-list bogus-list report-if-bogus whitespace-report-buffer-name whitespace-indent-tabs-mode whitespace-tab-width ws-tab-width ws-indent-tabs-mode whitespace-report-text option --dolist-tail-- whitespace-style] 5 (#$ . 44683) "r"]) #@65 Used to remember whether a buffer had font lock mode on or not. (defvar whitespace-font-lock-mode nil (#$ . 47632)) #@70 Used to remember whether a buffer initially had font lock on or not. (defvar whitespace-font-lock nil (#$ . 47754)) #@50 Used to save locally `font-lock-keywords' value. (defvar whitespace-font-lock-keywords nil (#$ . 47876)) #@37 Text for whitespace toggle options. (defconst whitespace-help-text " Whitespace Toggle Options\n\n FACES\n [] t - toggle TAB visualization\n [] s - toggle SPACE and HARD SPACE visualization\n [] r - toggle trailing blanks visualization\n [] l - toggle \"long lines\" visualization\n [] L - toggle \"long lines\" tail visualization\n [] n - toggle NEWLINE visualization\n [] e - toggle empty line at bob and/or eob visualization\n [] C-i - toggle indentation SPACEs visualization (via `indent-tabs-mode')\n [] I - toggle indentation SPACEs visualization\n [] i - toggle indentation TABs visualization\n [] C-a - toggle SPACEs after TAB visualization (via `indent-tabs-mode')\n [] A - toggle SPACEs after TAB: SPACEs visualization\n [] a - toggle SPACEs after TAB: TABs visualization\n [] C-b - toggle SPACEs before TAB visualization (via `indent-tabs-mode')\n [] B - toggle SPACEs before TAB: SPACEs visualization\n [] b - toggle SPACEs before TAB: TABs visualization\n\n DISPLAY TABLE\n [] T - toggle TAB visualization\n [] S - toggle SPACE and HARD SPACE visualization\n [] N - toggle NEWLINE visualization\n\n x - restore `whitespace-style' value\n\n ? - display this text\n\n" (#$ . 47987)) #@48 The buffer name for whitespace toggle options. (defconst whitespace-help-buffer-name "*Whitespace Toggle Options*" (#$ . 49242)) #@41 Insert VALUE at column 20 of next line. (defalias 'whitespace-insert-value #[(value) "\301y\210\302\303\304\"\210\305\306\"c\207" [value 1 move-to-column 20 t format "%s"] 3 (#$ . 49377)]) #@67 Insert the mark ('X' or ' ') after NCHARS depending on CONDITION. (defalias 'whitespace-mark-x #[(nchars condition) "u\210 \203 \302\202\f \303c\207" [nchars condition "X" " "] 1 (#$ . 49573)]) #@63 Insert the option mark ('X' or ' ') in toggle options buffer. (defalias 'whitespace-insert-option-mark #[(the-list the-value) "eb\210\304y\210\305\211\205/ \n@\211\306=\203 \304y\210\202' \307y\210\310\304 >\"\210\nA\211\204 \305*\207" [the-list sym --dolist-tail-- the-value 2 nil help-newline 1 whitespace-mark-x] 5 (#$ . 49775)]) #@40 Display the whitespace toggle options. (defalias 'whitespace-help-on #[(style) "\305!?\205! \306 \210\307!\212 q\210\310 \210\nc\210\311 \f\"\210\312 !*\207" [whitespace-help-buffer-name buffer whitespace-help-text whitespace-style-value-list style get-buffer delete-other-windows get-buffer-create erase-buffer whitespace-insert-option-mark whitespace-display-window] 3 (#$ . 50122)]) #@33 Display BUFFER in a new window. (defalias 'whitespace-display-window #[(buffer) "eb\210\303\304!\210\305 \306ed\"T]Z\211\307X\203 \310\n!\210\311\312!\210\313\314\304 \"\n\")\207" [window-min-height size buffer set-buffer-modified-p nil window-height count-lines 0 kill-buffer error "Frame height is too small; can't split window to display whitespace toggle options" set-window-buffer split-window] 6 (#$ . 50517)]) #@54 Kill buffer BUFFER-NAME and windows related with it. (defalias 'whitespace-kill-buffer #[(buffer-name) "\302!\211\205 \303 !\210\304 !)\207" [buffer-name buffer get-buffer delete-windows-on kill-buffer] 3 (#$ . 50943)]) #@64 Remove the buffer and window of the whitespace toggle options. (defalias 'whitespace-help-off #[nil "\301!\207" [whitespace-help-buffer-name whitespace-kill-buffer] 2 (#$ . 51172)]) #@1249 Interactive function to read a char and return a symbol. If LOCAL-P is non-nil, it uses a local context; otherwise, it uses a global context. It accepts one of the following chars: CHAR MEANING (VIA FACES) t toggle TAB visualization s toggle SPACE and HARD SPACE visualization r toggle trailing blanks visualization l toggle "long lines" visualization L toggle "long lines" tail visualization n toggle NEWLINE visualization e toggle empty line at bob and/or eob visualization C-i toggle indentation SPACEs visualization (via `indent-tabs-mode') I toggle indentation SPACEs visualization i toggle indentation TABs visualization C-a toggle SPACEs after TAB visualization (via `indent-tabs-mode') A toggle SPACEs after TAB: SPACEs visualization a toggle SPACEs after TAB: TABs visualization C-b toggle SPACEs before TAB visualization (via `indent-tabs-mode') B toggle SPACEs before TAB: SPACEs visualization b toggle SPACEs before TAB: TABs visualization (VIA DISPLAY TABLE) T toggle TAB visualization S toggle SPACE and HARD SPACE visualization N toggle NEWLINE visualization x restore `whitespace-style' value ? display brief help See also `whitespace-toggle-option-alist'. (defalias 'whitespace-interactive-char #[(local-p) "\203 \202 \n?\211\203 \f\202 \203 \202 \f \306\307\203) \310\202* \311\" \312\211 \313\213\210-C\207" [local-p whitespace-mode global-whitespace-mode is-off whitespace-style whitespace-active-style format "Whitespace Toggle %s (type ? for further options)-" "Local" "Global" nil ((byte-code "\300\301\302\217\207" [data (byte-code "\305!\211\n\236A\211\204 \306=\203 \307\f!\210\202 \310 \210\202 \311 \210\312\313!\207" [prompt ch whitespace-toggle-option-alist sym style read-char 63 whitespace-help-on ding whitespace-help-off message " "] 3) (((quit error) (byte-code "\301 \210\302\303!!\207" [data whitespace-help-off error error-message-string] 3)))] 3)) whitespace-toggle-style style prompt ch sym] 4 (#$ . 51363)]) #@274 Toggle options in THE-LIST based on list ARG. If LOCAL-P is non-nil, it uses a local context; otherwise, it uses a global context. ARG is a list of options to be toggled. THE-LIST is a list of options. This list will be toggled and the resultant list will be returned. (defalias 'whitespace-toggle-list #[(local-p arg the-list) "\203 \202 \n\204 \306\f! <\203 \202 C\307 \n\211 \203b @\211\n\310=\204Y \n\303=\203= \202Y \n\f>\203Y \n\f>\203T \311\n\f\"\202X \n\fB A\211 \204& *\f\207" [local-p whitespace-mode global-whitespace-mode whitespace-style the-list arg copy-sequence nil help-newline delq sym --dolist-tail-- whitespace-style-value-list] 4 (#$ . 53423)]) #@37 Used to save a local display table. (defvar whitespace-display-table nil (#$ . 54126)) #@72 Used to remember whether a buffer initially had a local display table. (defvar whitespace-display-table-was-local nil (#$ . 54219)) #@35 Turn on whitespace visualization. (defalias 'whitespace-turn-on #[nil "\306\307\310\311\312$\210\313\300!\210\311\313\301!\210\311\313\302!\210\311\313\303!\210\311\313\304!\210\311\313\314!\210 <\2032 \2024 C\f\313\315!\210 \313\316!\210\f\205P \317 \210\320 \207" [whitespace-font-lock-mode whitespace-font-lock whitespace-font-lock-keywords whitespace-display-table whitespace-display-table-was-local whitespace-style add-hook write-file-functions whitespace-write-file-hook nil t make-local-variable whitespace-active-style whitespace-indent-tabs-mode whitespace-tab-width whitespace-color-on whitespace-display-char-on indent-tabs-mode tab-width] 5 (#$ . 54357)]) #@36 Turn off whitespace visualization. (defalias 'whitespace-turn-off #[nil "\301\302\303\304#\210\205 \305 \210\306 \207" [whitespace-active-style remove-hook write-file-functions whitespace-write-file-hook t whitespace-color-off whitespace-display-char-off] 4 (#$ . 55048)]) #@51 Return t if there is some visualization via face. (defalias 'whitespace-style-face-p #[nil "\301>\206] \302>\206] \303>\206] \304>\206] \305>\206] \306>\206] \307>\206] \310>\206] \311>\206] \312>\206] \313>\206] \314>\206] \315>\206] \316>\206] \317>\206] \320>\207" [whitespace-active-style tabs spaces trailing lines lines-tail newline empty indentation indentation::tab indentation::space space-after-tab space-after-tab::tab space-after-tab::space space-before-tab space-before-tab::tab space-before-tab::space] 2 (#$ . 55329)]) #@30 Turn on color visualization. (defalias 'whitespace-color-on #[nil "\306 \205\213\204 \307\310 !\311\304!\210 \303\312!\210\313 >\2033 \314\315'\316(\307F)\316*\307FD\307#\210\317 >\203F \314\315+\316,\307FC\307#\210\320 >\203Y \314\315-\316.\307FC\307#\210\321 >\204e \322 >\203\236 \314\315\323\324/\211S01\2450/\246 2\3252!\203\204 \326\202\211 \323\3272\")%\321 >\203\225 \312\202\226 \3303\307FC\307#\210\331 >\203\275 \314\31545\203\261 \316\202\262 \3306\307FC\307#\210\202\346 \332 >\203\323 \314\3154\3166\307FC\307#\210\202\346 \333 >\203\346 \314\3154\3306\307FC\307#\210\334 >\203\374 \314\315\335 \3167\307FC\307#\210\202'\336 >\203\314\315\335\337!\3167\307FC\307#\210\202'\340 >\203'\314\315\335\341!\3167\307FC\307#\210\342 >\203G\314\3158\3169\307FC\307#\210\314\315:\3169\307FC\307#\210\343 >\203]\314\315\344 \316;\307FC\307#\210\202\210\345 >\203t\314\315\344\337!\316;\307FC\307#\210\202\210\346 >\203\210\314\315\344\341!\316;\307FC\307#\210\303\316!\207" [whitespace-font-lock font-lock-keywords whitespace-font-lock-keywords font-lock-mode whitespace-font-lock-mode whitespace-active-style whitespace-style-face-p t copy-sequence make-local-variable 0 spaces font-lock-add-keywords nil 1 tabs trailing lines lines-tail format "^\\([^ \n]\\{%s\\}\\|[^ \n]\\{0,%s\\} \\)\\{%d\\}%s\\(.+\\)$" zerop "" ".\\{%d\\}" 2 space-before-tab space-before-tab::tab space-before-tab::space indentation whitespace-indentation-regexp indentation::tab tab indentation::space space empty space-after-tab whitespace-space-after-tab-regexp space-after-tab::tab space-after-tab::space whitespace-space-regexp whitespace-space whitespace-hspace-regexp whitespace-hspace whitespace-tab-regexp whitespace-tab whitespace-trailing-regexp whitespace-trailing whitespace-tab-width whitespace-line-column tab-width rem whitespace-line whitespace-space-before-tab-regexp whitespace-indent-tabs-mode whitespace-space-before-tab whitespace-indentation whitespace-empty-at-bob-regexp whitespace-empty whitespace-empty-at-eob-regexp whitespace-space-after-tab] 10 (#$ . 55885)]) #@31 Turn off color visualization. (defalias 'whitespace-color-off #[nil "\304 \205 \305\306!\210\203 \307 \305 !\207" [whitespace-font-lock whitespace-font-lock-keywords font-lock-keywords whitespace-font-lock-mode whitespace-style-face-p font-lock-mode 0 nil] 2 (#$ . 58008)]) #@60 Return t if there is some visualization via display table. (defalias 'whitespace-style-mark-p #[nil "\301>\206 \302>\206 \303>\207" [whitespace-active-style tab-mark space-mark newline-mark] 2 (#$ . 58293)]) (defalias 'whitespace-char-valid-p #[(char) "\301W\206 \302!\207" [char 256 characterp] 2]) (put 'whitespace-char-valid-p 'byte-optimizer 'byte-compile-inline-expand) #@64 Return true if every character in vector VEC can be displayed. (defalias 'whitespace-display-vector-p #[(vec) "G\211\303V\205& S\211\303Y\203# H\211\304W\206 \305\n!)\204 \303W)\207" [vec i char 0 256 characterp] 3 (#$ . 58682)]) #@36 Turn on character display mapping. (defalias 'whitespace-display-char-on #[nil "\205\263 \306 \205\263 \307\211 \204 \310\311\f!\f\204 \312 \307 \211 \205\262 @\211@>\203\250 \211 AA)\211\203P \313\n@!\204P \nA\211\204B \n\203\250 \311\n@!\211 A@)\314=\203\234 \315>\203\234 G\316 W\203\233 H\314=\204\222 \317 H\"I\210T\211\202v *\f\211 A@) I\210A\211\204( \307,\207" [whitespace-display-mappings vec vecs whitespace-display-table-was-local buffer-display-table whitespace-display-table whitespace-style-mark-p nil t copy-sequence make-display-table whitespace-display-vector-p 10 newline 0 make-glyph-code entry --dolist-tail-- whitespace-style x whitespace-active-style i --dotimes-limit-- whitespace-newline] 6 (#$ . 58928)]) #@37 Turn off character display mapping. (defalias 'whitespace-display-char-off #[nil "\205 \304 \205 \205 \305\n\211\207" [whitespace-display-mappings whitespace-display-table-was-local whitespace-display-table buffer-display-table whitespace-style-mark-p nil] 2 (#$ . 59721)]) #@63 Action to be taken always when local whitespace is turned on. (defalias 'whitespace-action-when-on #[nil "\301>\203 \302 \207\303>\205 \304\305\306\"\207" [whitespace-action cleanup whitespace-cleanup report-on-bogus whitespace-report nil t] 3 (#$ . 60008)]) #@105 Action to be taken when buffer is written. It should be added buffer-locally to `write-file-functions'. (defalias 'whitespace-write-file-hook #[nil "\301>\203\f \302 \210\202 \303>\203 \304\305\306\"\203 \307\310\311 \"\210\305\207" [whitespace-action auto-cleanup whitespace-cleanup abort-on-bogus whitespace-report nil t error "Abort write due to whitespace problems in %s" buffer-name] 3 (#$ . 60278)]) #@30 Warn if buffer is read-only. (defalias 'whitespace-warn-read-only #[(msg) "\302>\205\f \303\304 \305 #\207" [whitespace-action msg warn-if-read-only message "Can't %s: %s is read-only" buffer-name] 4 (#$ . 60695)]) #@32 Unload the whitespace library. (defalias 'whitespace-unload-function #[nil "\302\303!\210r\304 \305\211\203 @\211q\210\306\303!\210 A\211\204 +\305\207" [buf --dolist-tail-- global-whitespace-mode -1 buffer-list nil whitespace-mode] 3 (#$ . 60917)]) (byte-code "\300\301!\210\302\303!\207" [provide whitespace run-hooks whitespace-load-hook] 2)
Close
