Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
cedet
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
image
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
leim
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
vc
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
537
B
-rw-r--r--
abbrev.elc
34.55
KB
-rw-r--r--
align.elc
39.88
KB
-rw-r--r--
allout-widgets.elc
62.37
KB
-rw-r--r--
allout.elc
203.33
KB
-rw-r--r--
ansi-color.elc
17.12
KB
-rw-r--r--
apropos.elc
37.42
KB
-rw-r--r--
arc-mode.elc
58.06
KB
-rw-r--r--
array.elc
27.07
KB
-rw-r--r--
auth-source-pass.elc
11.68
KB
-rw-r--r--
auth-source.elc
64.32
KB
-rw-r--r--
autoarg.elc
6.63
KB
-rw-r--r--
autoinsert.elc
13.41
KB
-rw-r--r--
autorevert.elc
30.71
KB
-rw-r--r--
avoid.elc
11.62
KB
-rw-r--r--
battery.elc
24.42
KB
-rw-r--r--
bindings.elc
42.76
KB
-rw-r--r--
bookmark.elc
77.09
KB
-rw-r--r--
bs.elc
49.32
KB
-rw-r--r--
buff-menu.elc
27.02
KB
-rw-r--r--
button.elc
14.97
KB
-rw-r--r--
calculator.elc
53.9
KB
-rw-r--r--
case-table.elc
4.99
KB
-rw-r--r--
cdl.elc
1.07
KB
-rw-r--r--
char-fold.elc
311.81
KB
-rw-r--r--
chistory.elc
8.16
KB
-rw-r--r--
cmuscheme.elc
18.07
KB
-rw-r--r--
color.elc
12.83
KB
-rw-r--r--
comint.elc
114.46
KB
-rw-r--r--
completion.elc
41.12
KB
-rw-r--r--
composite.elc
27.94
KB
-rw-r--r--
cus-dep.elc
6.42
KB
-rw-r--r--
cus-edit.elc
139.04
KB
-rw-r--r--
cus-face.elc
10.54
KB
-rw-r--r--
cus-load.el
85.19
KB
-rw-r--r--
cus-start.elc
21.92
KB
-rw-r--r--
cus-theme.elc
25.05
KB
-rw-r--r--
custom.elc
47.41
KB
-rw-r--r--
dabbrev.elc
22.28
KB
-rw-r--r--
delim-col.elc
8.95
KB
-rw-r--r--
delsel.elc
9.2
KB
-rw-r--r--
descr-text.elc
26.87
KB
-rw-r--r--
desktop.elc
47.64
KB
-rw-r--r--
dframe.elc
19.92
KB
-rw-r--r--
dired-aux.elc
85.75
KB
-rw-r--r--
dired-loaddefs.el
22.29
KB
-rw-r--r--
dired-x.elc
44.53
KB
-rw-r--r--
dired.elc
127.27
KB
-rw-r--r--
dirtrack.elc
7.75
KB
-rw-r--r--
disp-table.elc
8.76
KB
-rw-r--r--
display-fill-column-indicator....
8.32
KB
-rw-r--r--
display-line-numbers.elc
8.67
KB
-rw-r--r--
dnd.elc
7.13
KB
-rw-r--r--
doc-view.elc
65.25
KB
-rw-r--r--
dom.elc
7.36
KB
-rw-r--r--
dos-fns.elc
6.14
KB
-rw-r--r--
dos-vars.elc
1.1
KB
-rw-r--r--
dos-w32.elc
11.67
KB
-rw-r--r--
double.elc
4.34
KB
-rw-r--r--
dynamic-setting.elc
2.2
KB
-rw-r--r--
ebuff-menu.elc
10.46
KB
-rw-r--r--
echistory.elc
4.75
KB
-rw-r--r--
ecomplete.elc
7.1
KB
-rw-r--r--
edmacro.elc
19.94
KB
-rw-r--r--
ehelp.elc
11.32
KB
-rw-r--r--
elec-pair.elc
21.41
KB
-rw-r--r--
electric.elc
23.69
KB
-rw-r--r--
elide-head.elc
2.65
KB
-rw-r--r--
emacs-lock.elc
9.29
KB
-rw-r--r--
env.elc
6.12
KB
-rw-r--r--
epa-dired.elc
1.62
KB
-rw-r--r--
epa-file.elc
8.65
KB
-rw-r--r--
epa-hook.elc
4.63
KB
-rw-r--r--
epa-mail.elc
9.43
KB
-rw-r--r--
epa.elc
45.25
KB
-rw-r--r--
epg-config.elc
8.97
KB
-rw-r--r--
epg.elc
166.06
KB
-rw-r--r--
expand.elc
9.07
KB
-rw-r--r--
ezimage.elc
9.65
KB
-rw-r--r--
face-remap.elc
16.58
KB
-rw-r--r--
facemenu.elc
27.89
KB
-rw-r--r--
faces.elc
90.21
KB
-rw-r--r--
ffap.elc
50.3
KB
-rw-r--r--
filecache.elc
16.69
KB
-rw-r--r--
fileloop.elc
6.62
KB
-rw-r--r--
filenotify.elc
28.49
KB
-rw-r--r--
files-x.elc
21.9
KB
-rw-r--r--
files.elc
236.95
KB
-rw-r--r--
filesets.elc
72.57
KB
-rw-r--r--
find-cmd.elc
4.9
KB
-rw-r--r--
find-dired.elc
10.41
KB
-rw-r--r--
find-file.elc
18.33
KB
-rw-r--r--
find-lisp.elc
7.66
KB
-rw-r--r--
finder-inf.el
41.27
KB
-rw-r--r--
finder.elc
14.73
KB
-rw-r--r--
flow-ctrl.elc
2.26
KB
-rw-r--r--
foldout.elc
7.25
KB
-rw-r--r--
follow.elc
40.63
KB
-rw-r--r--
font-core.elc
12.41
KB
-rw-r--r--
font-lock.elc
61.63
KB
-rw-r--r--
format-spec.elc
3.93
KB
-rw-r--r--
format.elc
27.56
KB
-rw-r--r--
forms.elc
35.1
KB
-rw-r--r--
frame.elc
85.94
KB
-rw-r--r--
frameset.elc
48.02
KB
-rw-r--r--
fringe.elc
10.23
KB
-rw-r--r--
generic-x.elc
40.27
KB
-rw-r--r--
help-at-pt.elc
11.15
KB
-rw-r--r--
help-fns.elc
45.35
KB
-rw-r--r--
help-macro.elc
4.25
KB
-rw-r--r--
help-mode.elc
23.89
KB
-rw-r--r--
help.elc
52.22
KB
-rw-r--r--
hex-util.elc
1.3
KB
-rw-r--r--
hexl.elc
35.39
KB
-rw-r--r--
hfy-cmap.elc
25.45
KB
-rw-r--r--
hi-lock.elc
29.38
KB
-rw-r--r--
hilit-chg.elc
28.77
KB
-rw-r--r--
hippie-exp.elc
21.52
KB
-rw-r--r--
hl-line.elc
11.23
KB
-rw-r--r--
htmlfontify-loaddefs.el
808
B
-rw-r--r--
htmlfontify.elc
67.51
KB
-rw-r--r--
ibuf-ext.elc
77.15
KB
-rw-r--r--
ibuf-macs.elc
12.47
KB
-rw-r--r--
ibuffer-loaddefs.el
12.68
KB
-rw-r--r--
ibuffer.elc
98.62
KB
-rw-r--r--
icomplete.elc
22.83
KB
-rw-r--r--
ido.elc
127.92
KB
-rw-r--r--
ielm.elc
19.2
KB
-rw-r--r--
iimage.elc
4.92
KB
-rw-r--r--
image-dired.elc
92.97
KB
-rw-r--r--
image-file.elc
6.53
KB
-rw-r--r--
image-mode.elc
42.56
KB
-rw-r--r--
image.elc
34.45
KB
-rw-r--r--
imenu.elc
24.94
KB
-rw-r--r--
indent.elc
23.63
KB
-rw-r--r--
info-look.elc
28.18
KB
-rw-r--r--
info-xref.elc
16.59
KB
-rw-r--r--
info.elc
144.48
KB
-rw-r--r--
informat.elc
9.73
KB
-rw-r--r--
isearch.elc
147.85
KB
-rw-r--r--
isearchb.elc
4.73
KB
-rw-r--r--
jit-lock.elc
23.49
KB
-rw-r--r--
jka-cmpr-hook.elc
13.07
KB
-rw-r--r--
jka-compr.elc
12.09
KB
-rw-r--r--
json.elc
22.76
KB
-rw-r--r--
jsonrpc.elc
31.65
KB
-rw-r--r--
kermit.elc
2.92
KB
-rw-r--r--
kmacro.elc
35.15
KB
-rw-r--r--
ldefs-boot.el
1.41
MB
-rw-r--r--
linum.elc
10.77
KB
-rw-r--r--
loaddefs.el
1.41
MB
-rw-r--r--
loadhist.elc
9.77
KB
-rw-r--r--
loadup.el
20.08
KB
-rw-r--r--
locate.elc
19.57
KB
-rw-r--r--
lpr.elc
9.44
KB
-rw-r--r--
ls-lisp.elc
22.7
KB
-rw-r--r--
macros.elc
7.23
KB
-rw-r--r--
makesum.elc
2.47
KB
-rw-r--r--
man.elc
53.85
KB
-rw-r--r--
master.elc
4.58
KB
-rw-r--r--
mb-depth.elc
3.56
KB
-rw-r--r--
md4.elc
8.12
KB
-rw-r--r--
menu-bar.elc
86.61
KB
-rw-r--r--
midnight.elc
10.22
KB
-rw-r--r--
minibuf-eldef.elc
6.43
KB
-rw-r--r--
minibuffer.elc
104.08
KB
-rw-r--r--
misc.elc
5.4
KB
-rw-r--r--
misearch.elc
12.37
KB
-rw-r--r--
mouse-copy.elc
3.61
KB
-rw-r--r--
mouse-drag.elc
6.43
KB
-rw-r--r--
mouse.elc
71.3
KB
-rw-r--r--
mpc.elc
79.29
KB
-rw-r--r--
msb.elc
26.76
KB
-rw-r--r--
mwheel.elc
12.83
KB
-rw-r--r--
newcomment.elc
39.43
KB
-rw-r--r--
notifications.elc
13.78
KB
-rw-r--r--
novice.elc
4.43
KB
-rw-r--r--
obarray.elc
1.71
KB
-rw-r--r--
outline.elc
37.04
KB
-rw-r--r--
paren.elc
8.69
KB
-rw-r--r--
password-cache.elc
3.57
KB
-rw-r--r--
pcmpl-cvs.elc
6.17
KB
-rw-r--r--
pcmpl-gnu.elc
12.96
KB
-rw-r--r--
pcmpl-linux.elc
3.09
KB
-rw-r--r--
pcmpl-rpm.elc
11.17
KB
-rw-r--r--
pcmpl-unix.elc
7.52
KB
-rw-r--r--
pcmpl-x.elc
8.95
KB
-rw-r--r--
pcomplete.elc
36.16
KB
-rw-r--r--
pixel-scroll.elc
10.82
KB
-rw-r--r--
plstore.elc
14.75
KB
-rw-r--r--
printing.elc
157.7
KB
-rw-r--r--
proced.elc
62.85
KB
-rw-r--r--
profiler.elc
42.81
KB
-rw-r--r--
ps-bdf.elc
12.69
KB
-rw-r--r--
ps-def.elc
2.23
KB
-rw-r--r--
ps-mule.elc
34.89
KB
-rw-r--r--
ps-print-loaddefs.el
2.6
KB
-rw-r--r--
ps-print.elc
141.17
KB
-rw-r--r--
ps-samp.elc
5.26
KB
-rw-r--r--
recentf.elc
48.73
KB
-rw-r--r--
rect.elc
26.88
KB
-rw-r--r--
register.elc
27.63
KB
-rw-r--r--
registry.elc
10.41
KB
-rw-r--r--
repeat.elc
5.14
KB
-rw-r--r--
replace.elc
84.62
KB
-rw-r--r--
reposition.elc
2.66
KB
-rw-r--r--
reveal.elc
7.16
KB
-rw-r--r--
rfn-eshadow.elc
7.23
KB
-rw-r--r--
rot13.elc
2.56
KB
-rw-r--r--
rtree.elc
4.09
KB
-rw-r--r--
ruler-mode.elc
21.87
KB
-rw-r--r--
savehist.elc
10.83
KB
-rw-r--r--
saveplace.elc
11.87
KB
-rw-r--r--
sb-image.elc
2.75
KB
-rw-r--r--
scroll-all.elc
4.41
KB
-rw-r--r--
scroll-bar.elc
16.68
KB
-rw-r--r--
scroll-lock.elc
5.41
KB
-rw-r--r--
select.elc
18.75
KB
-rw-r--r--
server.elc
47.56
KB
-rw-r--r--
ses.elc
131.12
KB
-rw-r--r--
shadowfile.elc
31.16
KB
-rw-r--r--
shell.elc
41.53
KB
-rw-r--r--
simple.elc
301.78
KB
-rw-r--r--
skeleton.elc
15.76
KB
-rw-r--r--
so-long.elc
47.15
KB
-rw-r--r--
sort.elc
15.49
KB
-rw-r--r--
soundex.elc
1.14
KB
-rw-r--r--
speedbar.elc
115.02
KB
-rw-r--r--
startup.elc
68.51
KB
-rw-r--r--
strokes.elc
44.03
KB
-rw-r--r--
subdirs.el
450
B
-rw-r--r--
subr.elc
186.63
KB
-rw-r--r--
svg.elc
12.71
KB
-rw-r--r--
t-mouse.elc
3.8
KB
-rw-r--r--
tab-bar.elc
52.48
KB
-rw-r--r--
tab-line.elc
29.85
KB
-rw-r--r--
tabify.elc
2.17
KB
-rw-r--r--
talk.elc
2.99
KB
-rw-r--r--
tar-mode.elc
57.2
KB
-rw-r--r--
tempo.elc
19.18
KB
-rw-r--r--
term.elc
107.99
KB
-rw-r--r--
thingatpt.elc
16.88
KB
-rw-r--r--
thread.elc
8.08
KB
-rw-r--r--
thumbs.elc
25.74
KB
-rw-r--r--
time-stamp.elc
18.69
KB
-rw-r--r--
time.elc
20.87
KB
-rw-r--r--
timezone.elc
10.94
KB
-rw-r--r--
tmm.elc
13.39
KB
-rw-r--r--
tool-bar.elc
9.76
KB
-rw-r--r--
tooltip.elc
13.19
KB
-rw-r--r--
tree-widget.elc
19.84
KB
-rw-r--r--
tutorial.elc
22.28
KB
-rw-r--r--
type-break.elc
37.35
KB
-rw-r--r--
uniquify.elc
17.68
KB
-rw-r--r--
userlock.elc
6.33
KB
-rw-r--r--
vcursor.elc
23.92
KB
-rw-r--r--
version.elc
6.01
KB
-rw-r--r--
view.elc
34.69
KB
-rw-r--r--
vt-control.elc
1.99
KB
-rw-r--r--
vt100-led.elc
1.33
KB
-rw-r--r--
w32-fns.elc
11.01
KB
-rw-r--r--
w32-vars.elc
5.16
KB
-rw-r--r--
wdired.elc
23.52
KB
-rw-r--r--
whitespace.elc
69.06
KB
-rw-r--r--
wid-browse.elc
8.48
KB
-rw-r--r--
wid-edit.elc
99.52
KB
-rw-r--r--
widget.elc
1.4
KB
-rw-r--r--
windmove.elc
19.82
KB
-rw-r--r--
window.elc
294.5
KB
-rw-r--r--
winner.elc
12.04
KB
-rw-r--r--
woman.elc
109.43
KB
-rw-r--r--
x-dnd.elc
19.56
KB
-rw-r--r--
xdg.elc
10.14
KB
-rw-r--r--
xml.elc
25.31
KB
-rw-r--r--
xt-mouse.elc
14.1
KB
-rw-r--r--
xwidget.elc
18.9
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : hilit-chg.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\304\305\306\307\310\311\312\313&\210\314\305\315\316\312\305%\210\314\317\320\321\312\305%\210\322\323\324\325\326\327\312\305&\210\330\331\332\306#\210\333\306\211\203V @\331N\203O \332N\204O \334\332\331N#\210 A\211\2048 *\335\331\332\336#\210\322\332\337\340\326\341\312\305&\210\330\342\343\306#\210\333\306\211\203\224 @\342N\203\215 \343N\204\215 \334\343\342N#\210 A\211\204v *\335\342\343\336#\210\322\343\344\345\326\346\312\305&\210\330\347\350\306#\210\333\306\211\203\322 @\347N\203\313 \350N\204\313 \334\350\347N#\210 A\211\204\264 *\335\347\350\336#\210\322\350\351\352\326\353\312\305&\210\322\354\337\355\326\356\312\305&\210\322\357\306\360\326\341\312\305&\207" [prop --dolist-tail-- 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." 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." 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")) "Colors used by `highlight-changes-rotate-faces'.\nThe newest rotated change will be displayed in the first element of this list,\nthe next older will be in the second element etc.\n\nThis list is used if `highlight-changes-face-list' is nil, otherwise that\nvariable overrides this list. If you only care about foreground\ncolors then use this, if you want fancier faces then set\n`highlight-changes-face-list'." :type (repeat color) defvaralias highlight-changes-initial-state highlight-changes-visibility-initial-state (saved-value saved-variable-comment) put make-obsolete-variable "23.1" t "Controls whether changes are initially visible in Highlight Changes mode.\n\nThis controls the initial value of `highlight-changes-visible-mode'.\nWhen a buffer is in Highlight Changes mode the function\n`highlight-changes-visible-mode' is used to toggle the mode on or off." boolean highlight-changes-active-string highlight-changes-visible-string " +Chg" "The string used when in Highlight Changes mode and changes are visible.\nThis should be set to nil if no indication is desired, or to\na string with a leading space." (choice string (const :tag "None" nil)) highlight-changes-passive-string highlight-changes-invisible-string " -Chg" "The string used when in Highlight Changes mode and changes are hidden.\nThis should be set to nil if no indication is desired, or to\na string with a leading space." (choice string (const :tag "None" nil)) highlight-changes-global-modes "Determine whether a buffer is suitable for global Highlight Changes mode.\n\nA function means call that function to decide: if it returns non-nil,\nthe buffer is suitable.\n\nA list means the elements are major modes suitable for Highlight\nChanges mode, or a list whose first element is `not' followed by major\nmodes which are not suitable.\n\nA value of t means the buffer is suitable if it is visiting a file and\nits name does not begin with ` ' or `*'.\n\nA value of nil means no buffers are suitable for `global-highlight-changes-mode'\n(effectively disabling the mode).\n\nExample:\n (c-mode c++-mode)\nmeans that Highlight Changes mode is turned on for buffers in C and C++\nmodes only." (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)) highlight-changes-global-changes-existing-buffers "If non-nil, toggling global Highlight Changes mode affects existing buffers.\nNormally, `global-highlight-changes-mode' affects only new buffers (to be\ncreated). However, if `highlight-changes-global-changes-existing-buffers'\nis non-nil, then turning on `global-highlight-changes-mode' will turn on\nHighlight Changes mode in suitable buffers, and turning the mode off will\nremove it from existing buffers."] 9) (defvar hilit-chg-list nil) (defvar hilit-chg-string " ??") (make-variable-buffer-local 'hilit-chg-string) #@113 Non-nil if Highlight-Changes mode is enabled. Use the command `highlight-changes-mode' to change this variable. (defvar highlight-changes-mode nil (#$ . 4969)) (make-variable-buffer-local 'highlight-changes-mode) #@1088 Toggle highlighting changes in this buffer (Highlight Changes mode). If called interactively, enable Highlight-Changes mode if ARG is positive, and disable it if ARG is zero or negative. If called from Lisp, also enable the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'; disable the mode otherwise. When Highlight Changes is enabled, changes are marked with a text property. Normally they are displayed in a distinctive face, but command \[highlight-changes-visible-mode] can be used to toggle 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) "\306 \307=\203 \n?\202 \310 !\311V\312 \204$ \313\314!\203A \314 \203A \315=\2031 \f\2041 \n?\n\203; \316 \210\202E \317 \210\202E \320\321!\210\322\323\n\203O \324\202P \325\"\210\326\327!\203u \306 \203d \306 \232\203u \330 \320\331\n\203p \332\202q \333 #\210))\334 \210\n\207" [#1=#:last-message arg highlight-changes-mode this-command highlight-changes-global-changes-existing-buffers local current-message toggle prefix-numeric-value 0 display-color-p fboundp x-display-grayscale-p global-highlight-changes-mode hilit-chg-set hilit-chg-clear message "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 any " in current buffer" "Highlight-Changes mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 5190) (list (or current-prefix-arg 'toggle))]) (defvar highlight-changes-mode-hook nil) (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [highlight-changes-mode-map highlight-changes-mode-hook variable-documentation put "Hook run after entering or leaving `highlight-changes-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode highlight-changes-mode hilit-chg-string boundp nil] 6) #@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 (#$ . 7712)) (make-variable-buffer-local 'highlight-changes-visible-mode) #@633 Toggle visibility of highlighting due to Highlight Changes mode. If called interactively, enable Highlight-Changes-Visible mode if ARG is positive, and disable it if ARG is zero or negative. If called from Lisp, also enable the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'; disable the mode otherwise. Highlight Changes Visible mode only has an effect when Highlight Changes mode is on. When enabled, 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) "\304 \305=\203 \n?\202 \306 !\307V\310 \210\311\312\n\203! \313\202\" \314\"\210\315\316!\203G \304 \2036 \304 \232\203G \317\320\321\n\203B \322\202C \323 #\210))\324 \210\n\207" [#1=#:last-message arg highlight-changes-visible-mode local current-message toggle prefix-numeric-value 0 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 any " in current buffer" message "Highlight-Changes-Visible mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 7962) (list (or current-prefix-arg 'toggle))]) (defvar highlight-changes-visible-mode-hook nil) (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [highlight-changes-visible-mode-map highlight-changes-visible-mode-hook variable-documentation put "Hook run after entering or leaving `highlight-changes-visible-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode highlight-changes-visible-mode nil boundp] 6) (defalias 'hilit-chg-cust-fix-changes-face-list #[(w _wc &optional event) "\306!\307 >\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 '(#$ . 10345) :type '(choice (repeat :notify hilit-chg-cust-fix-changes-face-list face) (const :tag "Derive from highlight-changes-colors" nil)) :group 'highlight-changes) #@215 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 three 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 (#$ . 11010)]) #@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 (#$ . 11565)]) (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 (#$ . 12349)]) #@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 (#$ . 12843)]) #@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\211\307\310\216\311\f \312#\210\313\f \"-\207" [#1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks beg end buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] remove-text-properties (hilit-chg nil) hilit-chg-fixup] 5 (#$ . 13159) "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\311 \203 \f\205\212 \205\212 \312\"\202\212 \313 \314\211 \314 \315\216U\203I \316V\203I \n\\d^\317\202k \320\311\"\317=\203k \214~\210\321\211T\311\211$\210 \203j \312\211T\"\210)\204y \321\311 $\210 \204\202 \205\211 \322 #-,\207" [save-match-data-internal type end-incr undo-in-progress highlight-changes-mode highlight-changes-visible-mode match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 1 hilit-chg hilit-chg-fixup buffer-modified-p t #[nil "?\205 \301\302!\207" [#1=#:modified restore-buffer-modified-p nil] 2] 0 hilit-chg-delete get-text-property put-text-property hilit-chg-make-ov beg end #1# buffer-undo-list inhibit-read-only inhibit-modification-hooks leng-before no-property-change] 6 (#$ . 13673)]) #@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 (#$ . 14731)]) #@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 (#$ . 15080)]) #@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\211\314 \316\216\317 \210\320\321!\210-\322\323 \207" [buffer-read-only #1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks highlight-changes-mode 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 "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] hilit-chg-hide-changes hilit-chg-map-changes #[(_prop start stop) "\302 \303#\207" [start stop remove-text-properties (hilit-chg nil)] 4] nil force-mode-line-update] 5 (#$ . 15503)]) #@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 (#$ . 16282) 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 (#$ . 16713) 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 (#$ . 17210)]) #@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 (#$ . 17799)]) #@605 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 #[nil "?\205 \301\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 (#$ . 18165) 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) "\306\307!\210\310 \311\216\312\211\312\211 \312\211 \312\211 \312 \313 ! =?\2052 \313 ! r q\210 ) !r q\210 ) \"\312\211 # $%\203w \203w \314\315\316 \"!\203t r q\210\317 \210\313 ! )\202w \312%%\204\206 \320 \312\"\211%#&\203\257 \203\257 \314\315\316 \"!\203\254 r q\210\317 \210\313 ! )\202\257 \312&&\204\276 \320 \312\"\211&$ q\210\321\322!\210'\204\325 r q\210\321\322!\210)\323 % &$\211@ A@\324 \210\n\203:\n@@\n@A@ @@ @A@ \fZZ q\210\325\f !$\210'\2041r q\210\325\"$\210)\nA A\202\352 \204Ir q\210\326\312!\210) \204Xr q\210\326\312!\210)#\203b\327#!\210$\205k\327$!.\207" [#1=#:wconfig change-info change-a change-b a-start a-end require ediff-util current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] 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 len-a 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 (#$ . 19233)]) #@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 (#$ . 20705) (list (get-buffer (read-buffer "buffer-a " (current-buffer) t)) (get-buffer (read-buffer "buffer-b " (window-buffer (next-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\305 \306\n!\211\206 \307\n! \310 \f\n ?%\210 ?\205\" \311\f!,\207" [buf-a file-a file-b existing-buf buf-b buffer-file-name get-file-buffer find-file-noselect highlight-markup-buffers kill-buffer] 7 (#$ . 21524) (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)) (if (file-exists-p file-name) nil (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\211\205& \313!\205& \314\313!!\262\2037 r\nq\210\315\306!\210)\202C \316=\204C \317!\210 +D\207" [hilit-y hilit-x hilit-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\320 \310!\210\311\312\"A\266\202JH\313H\211\203B \314\f\307\"\202V \311\312\"A\266\202JH\211\306\234C\n \203v \315 @!\316 @!D A\314C\"\202X \317\312\"A\266\202JH\313H\211\203\223 \314 \307\"\202\247 \317\312\"A\266\202JH\211\306\234C \203\307 \315 @!\316 @!D A\314C\"\202\251 T\211\202 .\207" [hilit-e b a vb va p 0 nil ediff-make-fine-diffs A assoc 1 append overlay-start overlay-end B extent n hilit-x hilit-y ediff-number-of-differences ediff-difference-vector-alist] 8]) (put 'global-highlight-changes-mode 'globalized-minor-mode t) (defvar highlight-changes-mode-major-mode nil) (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \207" [make-variable-buffer-local highlight-changes-mode-major-mode custom-declare-variable global-highlight-changes-mode nil "Non-nil if Global Highlight-Changes mode is enabled.\nSee the `global-highlight-changes-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-highlight-changes-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group global-highlight-changes :type boolean] 12) #@387 Toggle Highlight-Changes mode in all buffers. With prefix ARG, enable Global Highlight-Changes mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. 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\302 \310=\203 \311\302!?\202 \312 !\313V\"\210\n\203/ \314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202> \323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \325\211 \203h \f@r q\210\n\203X \326 \210\202` \203` \305\327!\210)\fA\211\204G *\330\331\311\302!\203u \332\202v \333\"\210\334\335!\203\243 \336\302!\210\306 \203\216 \306 \232\203\243 \337 %\340\341\311\302!\203\235 \342\202\236 \343%#\210))\344 \210\311\302!\207" [#1=#:last-message arg global-highlight-changes-mode buf --dolist-tail-- highlight-changes-mode current-message set-default toggle default-value prefix-numeric-value 0 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 nil 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 any customize-mark-as-set "" message "Global Highlight-Changes mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 24517) (list (or current-prefix-arg 'toggle))]) (defvar global-highlight-changes-mode-hook nil) (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [global-highlight-changes-mode-map global-highlight-changes-mode-hook variable-documentation put "Hook run after entering or leaving `global-highlight-changes-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode global-highlight-changes-mode nil boundp] 6) (defvar highlight-changes-mode-set-explicitly nil nil) (make-variable-buffer-local 'highlight-changes-mode-set-explicitly) (defalias 'highlight-changes-mode-set-explicitly #[nil "\301\211\207" [highlight-changes-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put highlight-changes-mode-set-explicitly definition-name global-highlight-changes-mode add-hook highlight-changes-mode-hook] 4) (defvar global-highlight-changes-mode-buffers nil) (defalias 'global-highlight-changes-mode-enable-in-buffers #[nil "\306 \306\211\205B @\307\n!\203: r\nq\210\f\2046 =\2046 \2033 \310\311!\210\312 \210\2026 \312 \210 ) A\211\204\f \306+\207" [global-highlight-changes-mode-buffers buffers buf --dolist-tail-- highlight-changes-mode-set-explicitly highlight-changes-mode-major-mode nil buffer-live-p highlight-changes-mode -1 highlight-changes-mode-turn-on major-mode] 3]) (put 'global-highlight-changes-mode-enable-in-buffers 'definition-name 'global-highlight-changes-mode) (defalias 'global-highlight-changes-mode-check-buffers #[nil "\300 \210\301\302\303\"\207" [global-highlight-changes-mode-enable-in-buffers 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 "p\211 \235\203 \210\202 B)\302\303\304\"\207" [#1=#:x global-highlight-changes-mode-buffers add-hook post-command-hook global-highlight-changes-mode-check-buffers] 4]) (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 (#$ . 28464)]) (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\"\207" [add-to-list desktop-minor-mode-handlers (highlight-changes-mode . hilit-chg-desktop-restore) desktop-locals-to-save highlight-changes-mode] 3) #@39 Unload the Highlight Changes library. (defalias 'hilit-chg-unload-function #[nil "\300\301!\210\302\207" [global-hi-lock-mode -1 nil] 2 (#$ . 29285)]) (provide 'hilit-chg)
Close
