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 : ediff.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:51 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/ediff.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 "`ediff.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@30 The current version of Ediff (defconst ediff-version "2.81.2" (#$ . 601)) #@21 Date of last update (defconst ediff-date "November 22, 2008" (#$ . 681)) (byte-code "\300\301!\210\302\303!\204 \303\304M\210\305\306!\210\305\307!\210\310\301\311\312\313\314\315\316&\207" [provide ediff fboundp declare-function (macro . #[(&rest r) "\300\207" [nil] 1]) require ediff-init ediff-mult custom-declare-group nil "A comprehensive visual interface to diff & patch." :tag "Ediff" :group tools] 8) #@76 If t, Ediff will use previous directory as default when reading file name. (custom-declare-variable 'ediff-use-last-dir 'nil '(#$ . 1098) :type 'boolean :group 'ediff) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\310B\302\310!\204K \303\310\304\"\210\304\207" [current-load-list ediff-last-dir-A default-boundp set-default nil ediff-last-dir-B ediff-last-dir-C ediff-last-dir-ancestor ediff-last-merge-autostore-dir] 3) (defalias 'ediff-set-read-only-in-buf-A #[nil "\203 \303!\203 \304\303!!\203 rq\210\305\306!)\207 \307=\206$ \310\n!\207" [ediff-buffer-A this-command ediff-KILLED-VITAL-BUFFER get-buffer buffer-name toggle-read-only 1 ediff-quit error] 3]) (defalias 'ediff-get-default-file-name #[(&optional default fileno) "\306=\203J \307\310\311\"\310\312\313\217\310\211\211 \250\204 \314;\203* B ;\2039 \315 !\2049 B\f \244\211\234\211\206H -\207;\203S \207\316p!\205^ \317\316p!!\207" [major-mode result choices aux-list marked current dired-mode dired-get-filename nil no-error (byte-code "\300\301!\207" [dired-get-marked-files no-dir] 2) ((error)) 0 file-directory-p buffer-file-name file-name-nondirectory fileno default] 6]) #@50 Run Ediff on a pair of files, FILE-A and FILE-B. (defalias 'ediff-files #[(file-A file-B &optional startup-hooks) "\303\304 !\203 \305\306! \"\202 \307\n\310%\207" [file-A file-B startup-hooks ediff-files-internal file-directory-p expand-file-name file-name-nondirectory nil ediff-files] 6 (#$ . 2411) (let ((dir-A (if ediff-use-last-dir ediff-last-dir-A default-directory)) dir-B f) (list (setq f (ediff-read-file-name "File A to compare" dir-A (ediff-get-default-file-name) 'no-dirs)) (ediff-read-file-name "File B to compare" (setq dir-B (if ediff-use-last-dir ediff-last-dir-B (file-name-directory f))) (progn (ediff-add-to-history 'file-name-history (ediff-abbreviate-file-name (expand-file-name (file-name-nondirectory f) dir-B))) (ediff-get-default-file-name f 1)))))]) #@55 Run Ediff on three files, FILE-A, FILE-B, and FILE-C. (defalias 'ediff-files3 #[(file-A file-B file-C &optional startup-hooks) "\304\305 !\203 \306\307! \"\202 \305\n!\203! \306\307!\n\"\202\" \n \310%\207" [file-A file-B file-C startup-hooks ediff-files-internal file-directory-p expand-file-name file-name-nondirectory ediff-files3] 6 (#$ . 3199) (let ((dir-A (if ediff-use-last-dir ediff-last-dir-A default-directory)) dir-B dir-C f ff) (list (setq f (ediff-read-file-name "File A to compare" dir-A (ediff-get-default-file-name) 'no-dirs)) (setq ff (ediff-read-file-name "File B to compare" (setq dir-B (if ediff-use-last-dir ediff-last-dir-B (file-name-directory f))) (progn (ediff-add-to-history 'file-name-history (ediff-abbreviate-file-name (expand-file-name (file-name-nondirectory f) dir-B))) (ediff-get-default-file-name f 1)))) (ediff-read-file-name "File C to compare" (setq dir-C (if ediff-use-last-dir ediff-last-dir-C (file-name-directory ff))) (progn (ediff-add-to-history 'file-name-history (ediff-abbreviate-file-name (expand-file-name (file-name-nondirectory ff) dir-C))) (ediff-get-default-file-name ff 2)))))]) (defalias 'ediff3 'ediff-files3) #@511 Visit FILE and arrange its buffer to Ediff's liking. FILE-VAR is actually a variable symbol whose value must contain a true file name. BUFFER-NAME is a variable symbol, which will get the buffer object into which FILE is read. LAST-DIR is the directory variable symbol where FILE's directory name should be returned. HOOKS-VAR is a variable symbol that will be assigned the hook to be executed after `ediff-startup' is finished. `ediff-find-file' arranges that the temp files it might create will be deleted. (defalias 'ediff-find-file #[(file-var buffer-name &optional last-dir hooks-var) "J\306 !\307 !\310 !\204 \311\312 \"\210\202$ \313 !\203$ \311\314 \"\210\315 !\f\2034 \f\315\316 !!L\210 \317 !L\210 J\203\234 \320 J!\203\234 \305\320 J!!\203\234 r Jq\210~\210\n\203t \321\322!\210\323p \"\324\325\326 DEJBL\210\202\230 \327 !\327\330 !\232\204\225 \323p \"\324\325\326 DEJBL\210\202\230 \321 \210)\202\250 \331=\204\250 \311 !\210 L+\207" [file-var file file-magic temp-file-name-prefix last-dir buffer-name ediff-filename-magic-p file-name-nondirectory file-readable-p error "File `%s' does not exist or is not readable" file-directory-p "File `%s' is a directory" expand-file-name file-name-directory find-file-noselect get-buffer ediff-verify-file-buffer magic ediff-make-temp-file lambda nil delete-file file-truename buffer-file-name ediff-quit hooks-var this-command ediff-KILLED-VITAL-BUFFER] 5 (#$ . 4377)]) (defalias 'ediff-files-internal #[(file-A file-B file-C startup-hooks job-name &optional merge-buffer-file) "\306\211\211 \f\230\203 \307\310!\210 ;\203+ \230\203! \307\311!\204+ \f \230\203+ \307\312!\210\313\314 \"\210\315\303\302\316\317$\210\313\314\f\"\210\315\304\301\320\317$\210 ;\203_ \313\314 \"\210\315\305\300\321=\203[ \322\202\\ \323\317$\210\324\n \f \325BC& +\207" [buf-C buf-B buf-A file-A file-B file-C nil error "Files A and B are the same" "Files A and C are the same" "Files B and C are the same" message "Reading file %s ... " ediff-find-file ediff-last-dir-A startup-hooks ediff-last-dir-B ediff-merge-files-with-ancestor ediff-last-dir-ancestor ediff-last-dir-C ediff-setup ediff-job-name job-name merge-buffer-file] 10]) (defalias 'ediff 'ediff-files) #@160 Run Ediff on FILE and its backup file. Uses the latest backup, if there are several numerical backups. If this file is a backup, `ediff' it with its original. (defalias 'ediff-backup #[(file) "\303\304!\210\305\211\306\n!\203 \n\307\n!\202$ \310\n!\206! \311\312\n\"\n\313 \"*\207" [ori bak file require diff nil backup-file-name-p file-name-sans-versions diff-latest-backup-file error "No backup found for %s" ediff-files] 3 (#$ . 6623) (list (read-file-name "Ediff (file with backup): "))]) #@56 Run Ediff on a pair of buffers, BUFFER-A and BUFFER-B. (defalias 'ediff-buffers #[(buffer-A buffer-B &optional startup-hooks job-name) "\204 \304\305 \n\306 %\207" [job-name buffer-A buffer-B startup-hooks ediff-buffers ediff-buffers-internal nil] 6 (#$ . 7130) (let (bf) (list (setq bf (read-buffer "Buffer A to compare: " (ediff-other-buffer "") t)) (read-buffer "Buffer B to compare: " (progn (save-window-excursion (other-window 1)) (ediff-other-buffer bf)) t)))]) (defalias 'ebuffers 'ediff-buffers) #@63 Run Ediff on three buffers, BUFFER-A, BUFFER-B, and BUFFER-C. (defalias 'ediff-buffers3 #[(buffer-A buffer-B buffer-C &optional startup-hooks job-name) "\204 \305\306 \n \f%\207" [job-name buffer-A buffer-B buffer-C startup-hooks ediff-buffers3 ediff-buffers-internal] 6 (#$ . 7645) (let (bf bff) (list (setq bf (read-buffer "Buffer A to compare: " (ediff-other-buffer "") t)) (setq bff (read-buffer "Buffer B to compare: " (progn (save-window-excursion (other-window 1)) (ediff-other-buffer bf)) t)) (read-buffer "Buffer C to compare: " (progn (save-window-excursion (other-window 1)) (ediff-other-buffer (list bf bff))) t)))]) (defalias 'ebuffers3 'ediff-buffers3) (defalias 'ediff-buffers-internal #[(buf-A buf-B buf-C startup-hooks job-name &optional merge-buffer-file) "\306\307!!\306\307\n!!\f\205 \307\f!\205 \310\307\f!!\211 \205% \306\307\n!! \311\211 \311 \203B \307!\203B \310\307!!\204G \312\313\"\210\n\203Y \307\n!\203Y \310\307\n!!\204^ \312\313\n\"\210 \203p \204p \312\313\f\"\210) ;\203z \314 ! ;\203\203 \314 !;\203\217 \314!\315 \"\315\n \" \203\246 \315\f\"\316\307!\307\n! \205\270 \307\f!\317\311\320D\320D\321\322D\320DE\257B\323BC& .\207" [buf-A buf-A-file-name buf-B buf-B-file-name buf-C buf-C-is-alive buffer-file-name get-buffer buffer-name nil error "Buffer %S doesn't exist" file-name-nondirectory ediff-make-temp-file ediff-setup lambda delete-file if stringp ediff-job-name buf-C-file-name file-A file-B file-C job-name ediff-3way-comparison-job startup-hooks merge-buffer-file] 16]) (defalias 'ediff-get-default-directory-name #[nil "\203 \207\n\305=\203# \306\307\310\"\211;\203 \311 !\203 \202! \f)\207\f\207" [ediff-use-last-dir ediff-last-dir-A major-mode f default-directory dired-mode dired-get-filename nil noerror file-directory-p] 4]) #@216 Run Ediff on a pair of directories, DIR1 and DIR2, comparing files that have the same name in both. The third argument, REGEXP, is nil or a regular expression; only file names that match the regexp are considered. (defalias 'ediff-directories #[(dir1 dir2 regexp) "\303 \304\n\305\306&\207" [dir1 dir2 regexp ediff-directories-internal nil ediff-files ediff-directories] 7 (#$ . 9501) (let ((dir-A (ediff-get-default-directory-name)) (default-regexp (eval ediff-default-filtering-regexp)) f) (list (setq f (read-directory-name "Directory A to compare:" dir-A nil 'must-match)) (read-directory-name "Directory B to compare:" (if ediff-use-last-dir ediff-last-dir-B (ediff-strip-last-dir f)) nil 'must-match) (read-string (if (stringp default-regexp) (format "Filter through regular expression (default %s): " default-regexp) "Filter through regular expression: ") nil 'ediff-filtering-regexp-history (eval ediff-default-filtering-regexp))))]) (defalias 'edirs 'ediff-directories) #@229 Run Ediff on a directory, DIR1, comparing its files with their revisions. The second argument, REGEXP, is a regular expression that filters the file names. Only the files that are under revision control are taken into account. (defalias 'ediff-directory-revisions #[(dir1 regexp) "\302 \303\304$\207" [dir1 regexp ediff-directory-revisions-internal ediff-revision ediff-directory-revisions] 5 (#$ . 10490) (let ((dir-A (ediff-get-default-directory-name)) (default-regexp (eval ediff-default-filtering-regexp))) (list (read-directory-name "Directory to compare with revision:" dir-A nil 'must-match) (read-string (if (stringp default-regexp) (format "Filter through regular expression (default %s): " default-regexp) "Filter through regular expression: ") nil 'ediff-filtering-regexp-history (eval ediff-default-filtering-regexp))))]) (defalias 'edir-revisions 'ediff-directory-revisions) #@223 Run Ediff on three directories, DIR1, DIR2, and DIR3, comparing files that have the same name in all three. The last argument, REGEXP, is nil or a regular expression; only file names that match the regexp are considered. (defalias 'ediff-directories3 #[(dir1 dir2 dir3 regexp) "\304 \n \305\306&\207" [dir1 dir2 dir3 regexp ediff-directories-internal ediff-files3 ediff-directories3] 7 (#$ . 11387) (let ((dir-A (ediff-get-default-directory-name)) (default-regexp (eval ediff-default-filtering-regexp)) f) (list (setq f (read-directory-name "Directory A to compare:" dir-A nil)) (setq f (read-directory-name "Directory B to compare:" (if ediff-use-last-dir ediff-last-dir-B (ediff-strip-last-dir f)) nil 'must-match)) (read-directory-name "Directory C to compare:" (if ediff-use-last-dir ediff-last-dir-C (ediff-strip-last-dir f)) nil 'must-match) (read-string (if (stringp default-regexp) (format "Filter through regular expression (default %s): " default-regexp) "Filter through regular expression: ") nil 'ediff-filtering-regexp-history (eval ediff-default-filtering-regexp))))]) (defalias 'edirs3 'ediff-directories3) #@214 Run Ediff on a pair of directories, DIR1 and DIR2, merging files that have the same name in both. The third argument, REGEXP, is nil or a regular expression; only file names that match the regexp are considered. (defalias 'ediff-merge-directories #[(dir1 dir2 regexp &optional merge-autostore-dir) "\304 \305\n\306\307\305 &\207" [dir1 dir2 regexp merge-autostore-dir ediff-directories-internal nil ediff-merge-files ediff-merge-directories] 9 (#$ . 12519) (let ((dir-A (ediff-get-default-directory-name)) (default-regexp (eval ediff-default-filtering-regexp)) f) (list (setq f (read-directory-name "Directory A to merge:" dir-A nil 'must-match)) (read-directory-name "Directory B to merge:" (if ediff-use-last-dir ediff-last-dir-B (ediff-strip-last-dir f)) nil 'must-match) (read-string (if (stringp default-regexp) (format "Filter through regular expression (default %s): " default-regexp) "Filter through regular expression: ") nil 'ediff-filtering-regexp-history (eval ediff-default-filtering-regexp))))]) (defalias 'edirs-merge 'ediff-merge-directories) #@374 Merge files in directories DIR1 and DIR2 using files in ANCESTOR-DIR as ancestors. Ediff merges files that have identical names in DIR1, DIR2. If a pair of files in DIR1 and DIR2 doesn't have an ancestor in ANCESTOR-DIR, Ediff will merge without ancestor. The fourth argument, REGEXP, is nil or a regular expression; only file names that match the regexp are considered. (defalias 'ediff-merge-directories-with-ancestor #[(dir1 dir2 ancestor-dir regexp &optional merge-autostore-dir) "\305 \n \306\307\310\f&\207" [dir1 dir2 ancestor-dir regexp merge-autostore-dir ediff-directories-internal ediff-merge-files-with-ancestor ediff-merge-directories-with-ancestor nil] 9 (#$ . 13588) (let ((dir-A (ediff-get-default-directory-name)) (default-regexp (eval ediff-default-filtering-regexp)) f) (list (setq f (read-directory-name "Directory A to merge:" dir-A nil)) (setq f (read-directory-name "Directory B to merge:" (if ediff-use-last-dir ediff-last-dir-B (ediff-strip-last-dir f)) nil 'must-match)) (read-directory-name "Ancestor directory:" (if ediff-use-last-dir ediff-last-dir-C (ediff-strip-last-dir f)) nil 'must-match) (read-string (if (stringp default-regexp) (format "Filter through regular expression (default %s): " default-regexp) "Filter through regular expression: ") nil 'ediff-filtering-regexp-history (eval ediff-default-filtering-regexp))))]) #@227 Run Ediff on a directory, DIR1, merging its files with their revisions. The second argument, REGEXP, is a regular expression that filters the file names. Only the files that are under revision control are taken into account. (defalias 'ediff-merge-directory-revisions #[(dir1 regexp &optional merge-autostore-dir) "\303 \304\305\306\n&\207" [dir1 regexp merge-autostore-dir ediff-directory-revisions-internal ediff-merge-revisions ediff-merge-directory-revisions nil] 7 (#$ . 14957) (let ((dir-A (ediff-get-default-directory-name)) (default-regexp (eval ediff-default-filtering-regexp))) (list (read-directory-name "Directory to merge with revisions:" dir-A nil 'must-match) (read-string (if (stringp default-regexp) (format "Filter through regular expression (default %s): " default-regexp) "Filter through regular expression: ") nil 'ediff-filtering-regexp-history (eval ediff-default-filtering-regexp))))]) (defalias 'edir-merge-revisions 'ediff-merge-directory-revisions) #@241 Run Ediff on a directory, DIR1, merging its files with their revisions and ancestors. The second argument, REGEXP, is a regular expression that filters the file names. Only the files that are under revision control are taken into account. (defalias 'ediff-merge-directory-revisions-with-ancestor #[(dir1 regexp &optional merge-autostore-dir) "\303 \304\305\306\n&\207" [dir1 regexp merge-autostore-dir ediff-directory-revisions-internal ediff-merge-revisions-with-ancestor ediff-merge-directory-revisions-with-ancestor nil] 7 (#$ . 15943) (let ((dir-A (ediff-get-default-directory-name)) (default-regexp (eval ediff-default-filtering-regexp))) (list (read-directory-name "Directory to merge with revisions and ancestors:" dir-A nil 'must-match) (read-string (if (stringp default-regexp) (format "Filter through regular expression (default %s): " default-regexp) "Filter through regular expression: ") nil 'ediff-filtering-regexp-history (eval ediff-default-filtering-regexp))))]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias edir-merge-revisions-with-ancestor ediff-merge-directory-revisions-with-ancestor edirs-merge-with-ancestor ediff-merge-directories-with-ancestor] 3) (defalias 'ediff-directories-internal #[(dir1 dir2 dir3 regexp action jobname &optional startup-hooks merge-autostore-dir) ";\203 \306!\203 \202 \307! \n\230\203! \310\311 \"\210\202F \312=\2035 \230\2035 \310\313 \"\210\202F \312=\203F \n\230\203F \310\314 \"\210\f\203T \f;\204T \310\315 \"\210\316\211 %&\203\204 \211 '\206g (\317>)\203\204 \f\204\204 \320\321)\203} *\202\200 \322 !\316\323$\f\203\315 ;\203\240 \f \230\203\240 \324\325!\204\315 \310\326!\210\202\315 \n;\203\270 \f\n\230\203\270 \324\327!\204\315 \310\326!\210\202\315 ;\203\315 \f\230\203\315 \324\330!\204\315 \310\326!\210\331 + \n\f&%\332\316\333\334\335,DE\333\336\337\335%DDEF-B-\340\341%@\342\343 -&\344 !*\207" [dir3 dir1 dir2 jobname merge-autostore-dir meta-buf file-directory-p file-name-directory error "Directories A and B are the same: %s" ediff-directories3 "Directories A and C are the same: %s" "Directories B and C are the same: %s" "%s: Directory for storing merged files must be a string" nil (ediff-merge-directories ediff-merge-directories-with-ancestor ediff-merge-directory-revisions ediff-merge-directory-revisions-with-ancestor ediff-merge-filegroups-with-ancestor) read-directory-name "Save merged files in directory: " ediff-strip-last-dir must-match y-or-n-p "Directory for saving merged files = Directory A. Sure? " "Directory merge aborted" "Directory for saving merged files = Directory B. Sure? " "Directory for saving merged files = Ancestor Directory. Sure? " ediff-intersect-directories lambda setq ediff-session-action-function quote ediff-dir-difference-list cdr ediff-prepare-meta-buffer ediff-filegroup-action "*Ediff Session Group Panel" ediff-redraw-directory-group-buffer ediff-show-meta-buffer dir-diff-struct ediff-autostore-merges metajob ediff-metajob-name ediff-use-last-dir ediff-last-merge-autostore-dir regexp action startup-hooks] 9]) (defalias 'ediff-directory-revisions-internal #[(dir1 regexp action jobname &optional startup-hooks merge-autostore-dir) "\306!\203\n \202 \307! \203 ;\204 \310\311\n\"\210\312\211 \203J \n\211 \206- \313>)\203J \204J \314\315 \203C \202F \316!\312\317$ \203c ;\203c \230\203c \320\321!\204c \310\322!\210\323\n! $\324\312\325\326\327\"DEE#B#\330\331\f\332\333\n#&\334 !*\207" [dir1 merge-autostore-dir jobname meta-buf file-list ediff-autostore-merges file-directory-p file-name-directory error "%S: Directory for storing merged files must be a string" nil (ediff-merge-directories ediff-merge-directories-with-ancestor ediff-merge-directory-revisions ediff-merge-directory-revisions-with-ancestor ediff-merge-filegroups-with-ancestor) read-directory-name "Save merged files in directory: " ediff-strip-last-dir must-match y-or-n-p "Directory for saving merged file = directory A. Sure? " "Merge of directory revisions aborted" ediff-get-directory-files-under-revision lambda setq ediff-session-action-function quote ediff-prepare-meta-buffer ediff-filegroup-action "*Ediff Session Group Panel" ediff-redraw-directory-group-buffer ediff-show-meta-buffer metajob ediff-metajob-name ediff-use-last-dir ediff-last-merge-autostore-dir regexp action startup-hooks] 8]) #@236 Compare WIND-A and WIND-B, which are selected by clicking, wordwise. With prefix argument, DUMB-MODE, or on a non-windowing display, works as follows: If WIND-A is nil, use selected window. If WIND-B is nil, use window next to WIND-A. (defalias 'ediff-windows-wordwise #[(dumb-mode &optional wind-A wind-B startup-hooks) "\304 \n \305\306&\207" [dumb-mode wind-A wind-B startup-hooks ediff-windows ediff-windows-wordwise word-mode] 7 (#$ . 20336) "P"]) #@236 Compare WIND-A and WIND-B, which are selected by clicking, linewise. With prefix argument, DUMB-MODE, or on a non-windowing display, works as follows: If WIND-A is nil, use selected window. If WIND-B is nil, use window next to WIND-A. (defalias 'ediff-windows-linewise #[(dumb-mode &optional wind-A wind-B startup-hooks) "\304 \n \305\306&\207" [dumb-mode wind-A wind-B startup-hooks ediff-windows ediff-windows-linewise nil] 7 (#$ . 20798) "P"]) (defalias 'ediff-windows #[(dumb-mode wind-A wind-B startup-hooks job-name word-mode) "\204 \306 \204D \307\310 !\203 \202# \n\203! \311 !\202# \312 *\f \310 !\2033 \202? \n\203= \311 !\202? \312 *\202P \313 \307\314#\313\f \315#\316 !\316\f!\307\211\211\211 \212\317\213\210)\320 \321#\320\f\322#\323 \307&\n.\207" [dumb-mode wind-A prev-wind wind wind-B end-B ediff-window-display-p nil window-live-p next-window selected-window ediff-get-window-by-clicking 1 2 window-buffer ((byte-code "\306\307!\210\310!\210\311 \312 \310 !\210\311 \312 \306\207" [wind-A beg-A end-A wind-B beg-B end-B sit-for 0 select-window window-start window-end] 2)) ediff-clone-buffer-for-window-comparison "-Window.A-" "-Window.B-" ediff-regions-internal beg-B end-A beg-A buffer-B buffer-A startup-hooks job-name word-mode] 11]) #@261 Run Ediff on a pair of regions in specified buffers. Regions (i.e., point and mark) can be set in advance or marked interactively. This function is effective only for relatively small regions, up to 200 lines. For large regions, use `ediff-regions-linewise'. (defalias 'ediff-regions-wordwise #[(buffer-A buffer-B &optional startup-hooks) "\203 \306!\203 \307\306!!\204 \310\311\"\210 \203) \306 !\203) \307\306 !!\204. \310\311 \"\210\312\313\"\312 \314\"\315\211\211\211 \212q\210\316 \317 q\210\316 \317 )\320\306! \f\306 ! \n\321\322\315&\n.\207" [buffer-A buffer-B reg-B-end reg-B-beg reg-A-end reg-A-beg get-buffer buffer-name error "Buffer %S doesn't exist" ediff-clone-buffer-for-region-comparison "-Region.A-" "-Region.B-" nil region-beginning region-end ediff-regions-internal ediff-regions-wordwise word-mode startup-hooks] 11 (#$ . 22118) (let (bf) (list (setq bf (read-buffer "Region's A buffer: " (ediff-other-buffer "") t)) (read-buffer "Region's B buffer: " (progn (save-window-excursion (other-window 1)) (ediff-other-buffer bf)) t)))]) #@295 Run Ediff on a pair of regions in specified buffers. Regions (i.e., point and mark) can be set in advance or marked interactively. Each region is enlarged to contain full lines. This function is effective for large regions, over 100-200 lines. For small regions, use `ediff-regions-wordwise'. (defalias 'ediff-regions-linewise #[(buffer-A buffer-B &optional startup-hooks) "\203 \306!\203 \307\306!!\204 \310\311\"\210 \203) \306 !\203) \307\306 !!\204. \310\311 \"\210\312\313\"\312 \314\"\315\211\211\211 \212q\210\316 \317 b\210\320 \210`\fb\210\315\210m\204_ \315u\210` q\210\316 \317 b\210\320 \210`\nb\210\315\210m\204 \315u\210`)\321\306! \f\306 ! \n\322\315\211&\n.\207" [buffer-A buffer-B reg-B-end reg-B-beg reg-A-end reg-A-beg get-buffer buffer-name error "Buffer %S doesn't exist" ediff-clone-buffer-for-region-comparison "-Region.A-" "-Region.B-" nil region-beginning region-end beginning-of-line ediff-regions-internal ediff-regions-linewise startup-hooks] 11 (#$ . 23203) (let (bf) (list (setq bf (read-buffer "Region A's buffer: " (ediff-other-buffer "") t)) (read-buffer "Region B's buffer: " (progn (save-window-excursion (other-window 1)) (ediff-other-buffer bf)) t)))]) (defalias 'ediff-regions-internal #[(buffer-A beg-A end-A buffer-B beg-B end-B startup-hooks job-name word-mode setup-parameters) "\306!\307\211\211\211 \203: \310!\203: \311\310!!\203: rq\210\312 \307\223\312 \307\223 )\202F \313=\204F \314 !\210 \203t \310 !\203t \311\310 !!\203t r q\210\312 \307\223 \312 !\307\223!)\202\200 \313=\204\200 \314 !\210\"\203\222 \315 $\210\202\234 \316 $\210\317 \320\"\"\203\263 \315 ! $\210\202\275 \316 ! $\210\317 \321\"\322 #\322 ! #\323\n \307\211\324\307\325\nD\325 DF#B\326\327\"B\330\f DB\331$BE%\"&-\207" [ediff-tmp-buffer file-B file-A overl-B overl-A tmp-buffer get-buffer-create nil get-buffer buffer-name make-marker ediff-quit error ediff-wordify ediff-copy-to-buffer ediff-make-temp-file "regA" "regB" ediff-make-bullet-proof-overlay ediff-setup lambda delete-file append ediff-word-mode ediff-narrow-bounds ediff-job-name buffer-A beg-A end-A this-command ediff-KILLED-VITAL-BUFFER buffer-B beg-B end-B word-mode startup-hooks job-name setup-parameters] 13]) (defalias 'ediff-merge 'ediff-merge-files) (defalias 'ediff-merge-on-startup #[nil "\300\301!\207" [ediff-do-merge 0] 2]) (put 'ediff-merge-on-startup 'byte-optimizer 'byte-compile-inline-expand) #@35 Merge two files without ancestor. (defalias 'ediff-merge-files #[(file-A file-B &optional startup-hooks merge-buffer-file) "\304B\305 \306\n!\203 \307\310 !\n\"\202 \n\311\312 &\207" [startup-hooks file-A file-B merge-buffer-file ediff-merge-on-startup ediff-files-internal file-directory-p expand-file-name file-name-nondirectory nil ediff-merge-files] 7 (#$ . 25716) (let ((dir-A (if ediff-use-last-dir ediff-last-dir-A default-directory)) dir-B f) (list (setq f (ediff-read-file-name "File A to merge" dir-A (ediff-get-default-file-name) 'no-dirs)) (ediff-read-file-name "File B to merge" (setq dir-B (if ediff-use-last-dir ediff-last-dir-B (file-name-directory f))) (progn (ediff-add-to-history 'file-name-history (ediff-abbreviate-file-name (expand-file-name (file-name-nondirectory f) dir-B))) (ediff-get-default-file-name f 1)))))]) #@32 Merge two files with ancestor. (defalias 'ediff-merge-files-with-ancestor #[(file-A file-B file-ancestor &optional startup-hooks merge-buffer-file) "\305B\306 \307\n!\203 \310\311 !\n\"\202 \n \312\f&\207" [startup-hooks file-A file-B file-ancestor merge-buffer-file ediff-merge-on-startup ediff-files-internal file-directory-p expand-file-name file-name-nondirectory ediff-merge-files-with-ancestor] 7 (#$ . 26568) (let ((dir-A (if ediff-use-last-dir ediff-last-dir-A default-directory)) dir-B dir-ancestor f ff) (list (setq f (ediff-read-file-name "File A to merge" dir-A (ediff-get-default-file-name) 'no-dirs)) (setq ff (ediff-read-file-name "File B to merge" (setq dir-B (if ediff-use-last-dir ediff-last-dir-B (file-name-directory f))) (progn (ediff-add-to-history 'file-name-history (ediff-abbreviate-file-name (expand-file-name (file-name-nondirectory f) dir-B))) (ediff-get-default-file-name f 1)))) (ediff-read-file-name "Ancestor file" (setq dir-ancestor (if ediff-use-last-dir ediff-last-dir-ancestor (file-name-directory ff))) (progn (ediff-add-to-history 'file-name-history (ediff-abbreviate-file-name (expand-file-name (file-name-nondirectory ff) dir-ancestor))) (ediff-get-default-file-name ff 2)))))]) (defalias 'ediff-merge-with-ancestor 'ediff-merge-files-with-ancestor) #@33 Merge buffers without ancestor. (defalias 'ediff-merge-buffers #[(buffer-A buffer-B &optional startup-hooks job-name merge-buffer-file) "\305B \204\n \306\307\n \310 \f&\207" [startup-hooks job-name buffer-A buffer-B merge-buffer-file ediff-merge-on-startup ediff-merge-buffers ediff-buffers-internal nil] 7 (#$ . 27870) (let (bf) (list (setq bf (read-buffer "Buffer A to merge: " (ediff-other-buffer "") t)) (read-buffer "Buffer B to merge: " (progn (save-window-excursion (other-window 1)) (ediff-other-buffer bf)) t)))]) #@30 Merge buffers with ancestor. (defalias 'ediff-merge-buffers-with-ancestor #[(buffer-A buffer-B buffer-ancestor &optional startup-hooks job-name merge-buffer-file) "\306B \204\n \307\310\n \f &\207" [startup-hooks job-name buffer-A buffer-B buffer-ancestor merge-buffer-file ediff-merge-on-startup ediff-merge-buffers-with-ancestor ediff-buffers-internal] 7 (#$ . 28405) (let (bf bff) (list (setq bf (read-buffer "Buffer A to merge: " (ediff-other-buffer "") t)) (setq bff (read-buffer "Buffer B to merge: " (progn (save-window-excursion (other-window 1)) (ediff-other-buffer bf)) t)) (read-buffer "Ancestor buffer: " (progn (save-window-excursion (other-window 1)) (ediff-other-buffer (list bf bff))) t)))]) #@129 Run Ediff by merging two revisions of a file. The file is the optional FILE argument or the file visited by the current buffer. (defalias 'ediff-merge-revisions #[(&optional file startup-hooks merge-buffer-file) ";\203 \306!\210\307\211\310\311\312;\203 \313!\202 \314\"!\310\311\315;\203- \313!\202. \314\"!\316 \210\317\311\320 \"!\n \307\f %*\207" [file rev2 rev1 ediff-version-control-package startup-hooks merge-buffer-file find-file nil read-string format "Version 1 to merge (default %s's working version): " file-name-nondirectory "current buffer" "Version 2 to merge (default %s): " ediff-load-version-control intern "ediff-%S-merge-internal"] 6 (#$ . 29126) nil]) #@152 Run Ediff by merging two revisions of a file with a common ancestor. The file is the optional FILE argument or the file visited by the current buffer. (defalias 'ediff-merge-revisions-with-ancestor #[(&optional file startup-hooks merge-buffer-file) ";\203 \306!\210\307\211\211\310\311\312;\203 \313!\202 \314\"!\310\311\315;\203/ \313!\2020 \314\"!\310\311\316;\203A \313!\202B \314\"!\317 \210\320\311\321\f\"! \n %+\207" [file ancestor-rev rev2 rev1 ediff-version-control-package startup-hooks find-file nil read-string format "Version 1 to merge (default %s's working version): " file-name-nondirectory "current buffer" "Version 2 to merge (default %s): " "Ancestor version (default %s's base revision): " ediff-load-version-control intern "ediff-%S-merge-internal" merge-buffer-file] 6 (#$ . 29820) nil]) #@241 Run Ediff by patching SOURCE-FILENAME. If optional PATCH-BUF is given, use the patch in that buffer and don't ask the user. If prefix argument, then: if even argument, assume that the patch is in a buffer. If odd -- assume it is in a file. (defalias 'ediff-patch-file #[(&optional arg patch-buf) "\306\211\307\310!\210\311\n\205 \312\n! \"\f\203 \2022 \2040 \313 !\2030 \314\315\313 !!!\2022 \316\317 \306\211\320 %\321 \"*\207" [source-file source-dir arg patch-buf ediff-use-last-dir ediff-last-dir-patch nil require ediff-ptch ediff-get-patch-buffer prefix-numeric-value buffer-file-name file-name-directory expand-file-name read-file-name "File to patch (directory, if multifile patch): " ediff-get-default-file-name ediff-dispatch-file-patching-job ediff-patch-default-directory default-directory] 6 (#$ . 30657) "P"]) #@485 Run Ediff by patching the buffer specified at prompt. Without the optional prefix ARG, asks if the patch is in some buffer and prompts for the buffer or a file, depending on the answer. With ARG=1, assumes the patch is in a file and prompts for the file. With ARG=2, assumes the patch is in a buffer and prompts for the buffer. PATCH-BUF is an optional argument, which specifies the buffer that contains the patch. If not given, the user is prompted according to the prefix argument. (defalias 'ediff-patch-buffer #[(&optional arg patch-buf) "\302\303!\210\304\205\f \305! \"\306 \307\310\311 !\"\"\207" [arg patch-buf require ediff-ptch ediff-get-patch-buffer prefix-numeric-value ediff-patch-buffer-internal read-buffer "Which buffer to patch? " ediff-other-buffer] 6 (#$ . 31501) "P"]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias epatch ediff-patch-file epatch-buffer ediff-patch-buffer] 3) #@237 Run Ediff by comparing versions of a file. The file is an optional FILE argument or the file entered at the prompt. Default: the file visited by the current buffer. Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'. (defalias 'ediff-revision #[(&optional file startup-hooks) ";\204 \306\307 \203 \n\202 \310 \311$\312!\210\313 \203, \314\315\316\317 \"!\203, \320p!\210\321\211 \322\315\323\324!\"!\322\315\325\324!\"!\326 \210\327\315\330\"! \f#*\207" [file ediff-use-last-dir ediff-last-dir-A default-directory rev2 rev1 ediff-read-file-name "Compare revisions for file" ediff-get-default-file-name no-dirs find-file buffer-modified-p y-or-n-p format "Buffer %s is modified. Save buffer? " buffer-name save-buffer nil read-string "Revision 1 to compare (default %s's latest revision): " file-name-nondirectory "Revision 2 to compare (default %s's current state): " ediff-load-version-control intern "ediff-%S-internal" ediff-version-control-package startup-hooks] 5 (#$ . 32421) "P"]) (defalias 'erevision 'ediff-revision) (defalias 'ediff-load-version-control #[(&optional silent) "\302\303!\210\304!\206\" \305\306!!\203 \307\310!\210\302!\207 \206\" \311\312\"\207" [ediff-version-control-package silent require ediff-vers featurep locate-library symbol-name message "" error "Version control package %S.el not found. Use vc.el instead"] 3]) #@97 Return string describing the version of Ediff. When called interactively, displays the version. (defalias 'ediff-version #[nil "t\203\n \302\303\300 \"\207\304\305 #\207" [ediff-version ediff-date message "%s" format "Ediff %s of %s"] 4 (#$ . 33816) nil]) #@64 Display Ediff's manual. With optional NODE, goes to that node. (defalias 'ediff-documentation #[(&optional node) " \304 \210\305\306\307\217*\207" [ediff-control-window ediff-control-buffer ctl-buf ctl-window ediff-skip-unsuitable-frames nil (byte-code "\301\302\303!!\210\304\305!\210\203 \306!\210\202 \307\310!\210\311\312 !\207" [node pop-to-buffer get-buffer-create "*info*" info "ediff" Info-goto-node message "Type `i' to search for a specific topic" raise-frame selected-frame] 3) ((error (byte-code "\306\307!\210\220 \203# \310 !\203# \311\310 !!\203# r q\210\312 \210)\202- \n\313=\204- \314 !\210\315\f!\221\210\316 !\205A \317 !\210\320 \"\207" [ediff-msg-buffer standard-output this-command ediff-KILLED-VITAL-BUFFER ediff-BAD-INFO ctl-window beep 1 get-buffer buffer-name fundamental-mode ediff-quit error princ window-live-p select-window set-window-buffer ctl-buf] 4)))] 3 (#$ . 34079) nil]) (byte-code "\302\303\211\203 @\304\305\"\210 A\211\204 *\306\307!\210\310\311!\207" [mess #:--cl-dolist-temp-- ("^Errors in diff output. Diff output is in " "^Hmm... I don't see an Ediff command around here...$" "^Undocumented command! Type `G' in Ediff Control Panel to drop a note to the Ediff maintainer$" ": This command runs in Ediff Control Buffer only!$" ": Invalid op in ediff-check-version$" "^ediff-shrink-window-C can be used only for merging jobs$" "^Lost difference info on these directories$" "^This command is inapplicable in the present context$" "^This session group has no parent$" "^Can't hide active session, $" "^Ediff: something wrong--no multiple diffs buffer$" "^Can't make context diff for Session $" "^The patch buffer wasn't found$" "^Aborted$" "^This Ediff session is not part of a session group$" "^No active Ediff sessions or corrupted session registry$" "^No session info in this line$" "^`.*' is not an ordinary file$" "^Patch appears to have failed$" "^Recomputation of differences cancelled$" "^No fine differences in this mode$" "^Lost connection to ancestor buffer...sorry$" "^Not merging with ancestor$" "^Don't know how to toggle read-only in buffer " "Emacs is not running as a window application$" "^This command makes sense only when merging with an ancestor$" "^At end of the difference list$" "^At beginning of the difference list$" "^Nothing saved for diff .* in buffer " "^Buffer is out of sync for file " "^Buffer out of sync for file " "^Output from `diff' not found$" "^You forgot to specify a region in buffer " "^All right. Make up your mind and come back...$" "^Current buffer is not visiting any file$" "^Failed to retrieve revision: $" "^Can't determine display width.$" "^File `.*' does not exist or is not readable$" "^File `.*' is a directory$" "^Buffer .* doesn't exist$" "^Directories . and . are the same: " "^Directory merge aborted$" "^Merge of directory revisions aborted$" "^Buffer .* doesn't exist$" "^There is no file to merge$" "^Version control package .*.el not found. Use vc.el instead$") nil add-to-list debug-ignored-errors require ediff-util run-hooks ediff-load-hook] 4)
Close
