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 : pcvs-util.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:56 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/pcvs-util.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; Function definitions are lazy-loaded. ;;; 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 "`pcvs-util.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'cvs-car #[(x) #@32 (":\2030@\207\207" . [x]) (#$ . 676) nil 1]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [put cvs-car byte-optimizer byte-compile-inline-expand defalias cvs-cdr cdr-safe] 4) (defalias 'cvs-append #[(&rest xs) #@94 ("\301\302\303\304\"\"\207" . [xs apply append mapcar #[(x) "<\2030\207C\207" [x] 1]]) (#$ . 904) nil 5]) (put 'cvs-append 'byte-optimizer 'byte-compile-inline-expand) (defalias 'cvs-every #[(-cvs-every-f -cvs-every-l) #@88 (":\2030 \211A@!\20400\302\211\2020?\207" . [-cvs-every-l -cvs-every-f t]) (#$ . 1134) nil 4]) (put 'cvs-every 'byte-optimizer 'byte-compile-inline-expand) (defalias 'cvs-union #[(xs ys) #@121 ("\n\305\211 \203 0\f@\211\235\2040 B\fA\211\204\n0\305 +\207" . [ys zs xs x #1=#:--cl-dolist-temp-- nil]) (#$ . 1339) nil 3]) (defalias 'cvs-map #[(-cvs-map-f &rest -cvs-map-ls) #@214 ("\305\306 \n:\2030 \n\211A@!\2040\307\211\2020\n*\20320\310\f\311\312 \"\"B\311\313 \"\2020\237)\207" . [accum -cvs-map-ls -cvs-every-l -cvs-every-f -cvs-map-f nil null t apply mapcar car cdr]) (#$ . 1537) nil 5]) (defalias 'cvs-first #[(l &optional n) #@120 ("\2040 @\207 \20520 \211A@C\211 \20300\304V\20300\n \211A@C\241\210\nAS\2020 *\207" . [n l nl ret 1]) (#$ . 1815) nil 4]) #@240 Partition a list L into two lists based on predicate P. The function returns a `cons' cell where the `car' contains elements of L for which P is true while the `cdr' contains the other elements. The ordering among elements is maintained. (defalias 'cvs-partition #[(p l) #@143 ("\306\211\n\306\211 \203'0\f@ !\203 0 B\202 0 B\fA\211\204\f0* \237\237*B\207" . [cdr car l x #1=#:--cl-dolist-temp-- p nil]) (#$ . 2239) nil 3 (#$ . 1960)]) #@169 Pop to BUF like `pop-to-buffer' but staying on the same frame. If `pop-to-buffer' would have opened a new frame, this function would try to split a new window instead. (defalias 'cvs-pop-to-buffer-same-frame #[(buf) #@296 ("\2060 \303\304\n!\211\2050\305\n!)\206+0\203(0\303\306\307\217\203(0\310\n!\206+0\311p!*\207" . [pop-up-windows pop-up-frames buf nil get-buffer-window select-window (byte-code "\300\301 !\207" [select-window split-window-vertically] 2) ((error)) switch-to-buffer pop-to-buffer]) (#$ . 2642) nil 4 (#$ . 2419)]) #@123 Hide the buffer BUF that was temporarily popped up. BUF is assumed to be a temporary buffer used from the buffer MAINBUF. (defalias 'cvs-bury-buffer #[(buf &optional mainbuf) #@440 ("r\304\305 !=\2030\305 \2020\306\307\"\211\203#0\310 !\203#0\311\312\313\217\210)rq\210\314\304\305 !=\20570\310\305 !??\205<0!\210)\n\205V0\306\n!\206M0\306\n\315\"\211\205U0\316 !))\207" . [buf win mainbuf mainwin window-buffer selected-window get-buffer-window t window-dedicated-p nil (delete-window win) ((error (byte-code "\301\302!!\207" [win iconify-frame window-frame] 3))) bury-buffer visible select-window]) (#$ . 3157) nil 5 (#$ . 2975) (list (current-buffer))]) #@400 Create a buffer NAME unless such a buffer already exists. If the NAME looks like an absolute file name, the buffer will be created with `create-file-buffer' and will probably get another name than NAME. In such a case, the search for another buffer with the same name doesn't use the buffer name but the buffer's `list-buffers-directory' variable. If NOREUSE is non-nil, always return a new buffer. (defalias 'cvs-get-buffer-create #[(name &optional noreuse) #@467 ("\303!\2040 \2030\304!\2020\305!\206.0 \204 0\306\307\215\206.0r\310!q\210\311\302!\210p)\207" . [name noreuse list-buffers-directory file-name-absolute-p generate-new-buffer get-buffer-create --cl-block-nil-- (byte-code "\304 \305\211\203#0 @rq\210\n \232\2030\306\307\"\210) A\211\204 0*\305\207" [buf #1=#:--cl-dolist-temp-- name list-buffers-directory buffer-list nil throw --cl-block-nil--] 4) create-file-buffer make-local-variable]) (#$ . 4124) nil 2 (#$ . 3658)]) #@106 Insert a list of STRINGS into the current buffer. Uses columns to keep the listing readable but compact. (defalias 'cvs-insert-strings #[(strings) #@353 (":\205_0\306\307\310\301\"\"\311 S\312\n\312 \\\245]\313G\312\245]^\n \245\211 \314 \211 \203\\0@n\204O0\315c\210\n\fG]i\\W\203O0\316\317!\210\320c\210c\210A\211\20400.\314\207" . [strings length wwidth columns colwidth tab-width apply max mapcar window-width 2 1 nil " " delete-char -2 "\n" str #1=#:--cl-dolist-temp--]) (#$ . 4782) nil 6 (#$ . 4628)]) #@242 Read the content of FILE and return it as a string. If ONELINE is t, only the first line (no \n) will be returned. If ARGS is non-nil, the file will be executed with ARGS as its arguments. If ARGS is not a list, no argument will be passed. (defalias 'cvs-file-to-string #[(file &optional oneline args) #@401 ("\300\301\302\217\207" . [nil (byte-code "\304\305!rq\210\306\216 \203 0\307\310\n\311\312\311 <\2050 &\210\202$0\313\n!\210eb\210` \20310\314 \20220d{+\207" [#1=#:temp-buffer args file oneline generate-new-buffer " *temp*" ((byte-code "\301!\203\n0\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t insert-file-contents line-end-position] 7) ((file-error))]) (#$ . 5482) nil 3 (#$ . 5172)]) #@40 Tell whether STR1 is a prefix of STR2. (defalias 'cvs-string-prefix-p #[(str1 str2) #@73 ("\302\303 G \303\211&\304=\207" . [str2 str1 compare-strings nil t]) (#$ . 6009) nil 7 (#$ . 5919)]) (defalias 'cvs-expand-dir-name #[(d) #@67 ("\301\302!!\207" . [d file-name-as-directory expand-file-name]) (#$ . 6155) nil 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put cvs-expand-dir-name byte-optimizer byte-compile-inline-expand cvs-qtypedesc-str2obj cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-str2obj (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (error "cvs-qtypedesc-str2obj accessing a non-cvs-qtypedesc")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-str2obj #[(cl-x) #@147 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-str2obj accessing a non-cvs-qtypedesc" 1]) (#$ . 6811) nil 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put cvs-qtypedesc-str2obj setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-qtypedesc cvs-qtypedesc-str2obj #1=(and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 1] 6] cvs-qtypedesc-obj2str cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-obj2str (or #1# (error "cvs-qtypedesc-obj2str accessing a non-cvs-qtypedesc")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-obj2str #[(cl-x) #@147 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-obj2str accessing a non-cvs-qtypedesc" 2]) (#$ . 7636) nil 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put cvs-qtypedesc-obj2str setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-qtypedesc cvs-qtypedesc-obj2str #1=(and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 2] 6] cvs-qtypedesc-hist-sym cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-hist-sym (or #1# (error "cvs-qtypedesc-hist-sym accessing a non-cvs-qtypedesc")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-hist-sym #[(cl-x) #@148 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-hist-sym accessing a non-cvs-qtypedesc" 3]) (#$ . 8465) nil 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put cvs-qtypedesc-hist-sym setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-qtypedesc cvs-qtypedesc-hist-sym #1=(and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 3] 6] cvs-qtypedesc-complete cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-complete (or #1# (error "cvs-qtypedesc-complete accessing a non-cvs-qtypedesc")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-complete #[(cl-x) #@148 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-complete accessing a non-cvs-qtypedesc" 4]) (#$ . 9297) nil 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put cvs-qtypedesc-complete setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-qtypedesc cvs-qtypedesc-complete #1=(and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 4] 6] cvs-qtypedesc-require cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-require (or #1# (error "cvs-qtypedesc-require accessing a non-cvs-qtypedesc")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-require #[(cl-x) #@147 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "cvs-qtypedesc-require accessing a non-cvs-qtypedesc" 5]) (#$ . 10125) nil 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put cvs-qtypedesc-require setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-qtypedesc cvs-qtypedesc-require (and #1=(memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) 5] 6] cvs-qtypedesc-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-qtypedesc-p (and (vectorp cl-x) (>= (length cl-x) 6) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-qtypedesc-p #[(cl-x) #@108 ("\302!\2050G\303Y\2050\304H >\2050\305\207" . [cl-x cl-struct-cvs-qtypedesc-tags vectorp 6 0 t]) (#$ . 10896) nil 2]) (byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put cvs-qtypedesc-create cl-compiler-macro #[(--cl-whole-arg-- str2obj obj2str &rest #1=#:--cl-rest--) "\211A@\211A@\211A@\203 \306\307\310\311G\\D\"\210\312\313\314\315\211\211\f \n &\n+\207" [#1# complete hist-sym require str2obj obj2str signal wrong-number-of-arguments cvs-qtypedesc-create 6 cl-defsubst-expand (str2obj obj2str complete hist-sym require) (block cvs-qtypedesc-create (vector 'cl-struct-cvs-qtypedesc str2obj obj2str hist-sym complete require)) nil] 11 "Not documented\n\n(fn --CL-WHOLE-ARG-- &cl-quote STR2OBJ OBJ2STR &optional COMPLETE HIST-SYM REQUIRE)"] byte-compile cl-byte-compile-compiler-macro] 4) #@74 Not documented (fn STR2OBJ OBJ2STR &optional COMPLETE HIST-SYM REQUIRE) (defalias 'cvs-qtypedesc-create #[(str2obj obj2str &rest #1=#:--cl-rest--) "\211A@\211A@\211A@\203 \306\307\310\311G\\D\"\210\312\313\f \n &+\207" [#1# complete hist-sym require str2obj obj2str signal wrong-number-of-arguments cvs-qtypedesc-create 5 vector cl-struct-cvs-qtypedesc] 7 (#$ . 11747)]) (byte-code "\303B\304C\305\306\307\310#\210\305\306\311\312#\210\305\306\313\314#\210\305\306\315\316#\210\305\317\320\316#\210\305\321\320\322#\210\305\323\320\316#\210\305\324\320\316#\210\305\325\320\316#\210\305\326\320\316#\210\305\327\320\316#\210\330\nB\331\332\304\333\211\314\316\314&!\210\334\nB\335\332\304\333\211\314\211\211&!\210\336\nB\337\332\304\340\341\314\211\211&!\207" [custom-print-functions cl-struct-cvs-qtypedesc-tags current-load-list #[(cl-x cl-s cl-n) "\303!\205\230 G\304Y\205\230 \305H >\205\230 \306\307\n\"\210\306\310\n\"\210\311\305H >\204, \312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D \312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H >\204\\ \312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H >\204t \312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\214 \312\327!\210\330H\n\"\210\306\331\n\"\210\332\207" [cl-x cl-struct-cvs-qtypedesc-tags cl-s vectorp 6 0 princ "#S(cvs-qtypedesc" " str2obj" prin1 error "cvs-qtypedesc-str2obj accessing a non-cvs-qtypedesc" 1 " obj2str" "cvs-qtypedesc-obj2str accessing a non-cvs-qtypedesc" 2 " hist-sym" "cvs-qtypedesc-hist-sym accessing a non-cvs-qtypedesc" 3 " complete" "cvs-qtypedesc-complete accessing a non-cvs-qtypedesc" 4 " require" "cvs-qtypedesc-require accessing a non-cvs-qtypedesc" 5 ")" t] 3] cl-struct-cvs-qtypedesc put cvs-qtypedesc cl-struct-slots ((cl-tag-slot) (str2obj) (obj2str) (hist-sym) (complete) (require)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t cvs-qtypedesc-create side-effect-free cvs-qtypedesc-p error-free cvs-qtypedesc-require cvs-qtypedesc-complete cvs-qtypedesc-hist-sym cvs-qtypedesc-obj2str cvs-qtypedesc-str2obj cvs-qtypedesc-string1 (lambda (#1=#:defconst-tmp-var) (defconst cvs-qtypedesc-string1 #1#)) vector identity cvs-qtypedesc-string (lambda (#2=#:defconst-tmp-var) (defconst cvs-qtypedesc-string #2#)) cvs-qtypedesc-strings (lambda (#3=#:defconst-tmp-var) (defconst cvs-qtypedesc-strings #3#)) split-string-and-unquote combine-and-quote-strings] 8) (defalias 'cvs-query-read #[(default prompt qtypedesc &optional hist-sym) #@752 ("\2060 \n\2060\306H >\2040\307\310!\210\311H\306H >\204&0\307\312!\210\313H \314\f!\20520\f \306H >\204?0\307\315!\210\316H! \306H >\204S0\307\317!\210\320H\f\204d0\321\n#\202\2100\314\f!\203\2060\322 \323\306H >\204{0\307\324!\210\325H\n&\202\2100!-\207" . [qtypedesc cvs-qtypedesc-strings hist-sym cl-struct-cvs-qtypedesc-tags complete completions 0 error "cvs-qtypedesc-hist-sym accessing a non-cvs-qtypedesc" 3 "cvs-qtypedesc-complete accessing a non-cvs-qtypedesc" 4 functionp "cvs-qtypedesc-obj2str accessing a non-cvs-qtypedesc" 2 "cvs-qtypedesc-str2obj accessing a non-cvs-qtypedesc" 1 read-string completing-read nil "cvs-qtypedesc-require accessing a non-cvs-qtypedesc" 5 default initval prompt]) (#$ . 14257) nil 8]) (byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put cvs-flags-defaults cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-defaults (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (error "cvs-flags-defaults accessing a non-cvs-flags")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-defaults #[(cl-x) #@136 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-defaults accessing a non-cvs-flags" 1]) (#$ . 15496) nil 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put cvs-flags-defaults setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-flags cvs-flags-defaults #1=(and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 1] 6] cvs-flags-persist cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-persist (or #1# (error "cvs-flags-persist accessing a non-cvs-flags")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-persist #[(cl-x) #@135 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-persist accessing a non-cvs-flags" 2]) (#$ . 16277) nil 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put cvs-flags-persist setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-flags cvs-flags-persist #1=(and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 2] 6] cvs-flags-desc cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-desc (or #1# (error "cvs-flags-desc accessing a non-cvs-flags")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-desc #[(cl-x) #@132 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-desc accessing a non-cvs-flags" 3]) (#$ . 17043) nil 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put cvs-flags-desc setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-flags cvs-flags-desc #1=(and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 3] 6] cvs-flags-qtypedesc cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-qtypedesc (or #1# (error "cvs-flags-qtypedesc accessing a non-cvs-flags")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-qtypedesc #[(cl-x) #@137 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-qtypedesc accessing a non-cvs-flags" 4]) (#$ . 17820) nil 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put cvs-flags-qtypedesc setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-flags cvs-flags-qtypedesc #1=(and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 4] 6] cvs-flags-hist-sym cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-hist-sym (or #1# (error "cvs-flags-hist-sym accessing a non-cvs-flags")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-hist-sym #[(cl-x) #@136 ("\302H >\204\f0\303\304!\210\305H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "cvs-flags-hist-sym accessing a non-cvs-flags" 5]) (#$ . 18608) nil 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put cvs-flags-hist-sym setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander cvs-flags cvs-flags-hist-sym (and #1=(memq (aref cl-x 0) cl-struct-cvs-flags-tags)) 5] 6] cvs-flags-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block cvs-flags-p (and (vectorp cl-x) (>= (length cl-x) 6) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'cvs-flags-p #[(cl-x) #@104 ("\302!\2050G\303Y\2050\304H >\2050\305\207" . [cl-x cl-struct-cvs-flags-tags vectorp 6 0 t]) (#$ . 19342) nil 2]) (defalias 'copy-cvs-flags #[(x) #@36 ("\301!\207" . [x copy-sequence]) (#$ . 19503) nil 2]) (byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put -cvs-flags-make cl-compiler-macro #[(--cl-whole-arg-- desc defaults &rest #1=#:--cl-rest--) "\211A@\211A@\203 \305\306\307\310G\\D\"\210\311\312\313\314\211\211 \f \n& *\207" [#1# qtypedesc hist-sym desc defaults signal wrong-number-of-arguments -cvs-flags-make 5 cl-defsubst-expand (desc defaults qtypedesc hist-sym) (block -cvs-flags-make (vector 'cl-struct-cvs-flags defaults nil desc qtypedesc hist-sym)) nil] 10 "Not documented\n\n(fn --CL-WHOLE-ARG-- &cl-quote DESC DEFAULTS &optional QTYPEDESC HIST-SYM)"] byte-compile cl-byte-compile-compiler-macro] 4) #@65 Not documented (fn DESC DEFAULTS &optional QTYPEDESC HIST-SYM) (defalias '-cvs-flags-make #[(desc defaults &rest #1=#:--cl-rest--) "\211A@\211A@\203 \305\306\307\310G\\D\"\210\311\312 \313\f \n&*\207" [#1# qtypedesc hist-sym defaults desc signal wrong-number-of-arguments -cvs-flags-make 4 vector cl-struct-cvs-flags nil] 7 (#$ . 20218)]) (byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\210\304\327\317\315#\207" [custom-print-functions cl-struct-cvs-flags-tags #[(cl-x cl-s cl-n) "\303!\205\230 G\304Y\205\230 \305H >\205\230 \306\307\n\"\210\306\310\n\"\210\311\305H >\204, \312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D \312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H >\204\\ \312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H >\204t \312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\214 \312\327!\210\330H\n\"\210\306\331\n\"\210\332\207" [cl-x cl-struct-cvs-flags-tags cl-s vectorp 6 0 princ "#S(cvs-flags" " defaults" prin1 error "cvs-flags-defaults accessing a non-cvs-flags" 1 " persist" "cvs-flags-persist accessing a non-cvs-flags" 2 " desc" "cvs-flags-desc accessing a non-cvs-flags" 3 " qtypedesc" "cvs-flags-qtypedesc accessing a non-cvs-flags" 4 " hist-sym" "cvs-flags-hist-sym accessing a non-cvs-flags" 5 ")" t] 3] cl-struct-cvs-flags put cvs-flags cl-struct-slots ((cl-tag-slot) (defaults) (persist) (desc) (qtypedesc) (hist-sym)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t -cvs-flags-make side-effect-free copy-cvs-flags cvs-flags-p error-free cvs-flags-hist-sym cvs-flags-qtypedesc cvs-flags-desc cvs-flags-persist cvs-flags-defaults] 4) (defalias 'cvs-flags-define '(macro . #[(sym defaults &optional desc qtypedesc hist-sym docstring) #@263 ("\306\307\310\311\312DDDC\313\314\310\315DE\307\301 DC\316\n\313\310\317\320BB\321BBB \f\257EFE F\207" . [sym defaults desc qtypedesc hist-sym docstring defconst let bound boundp quote if and cvs-flags-p -cvs-flags-make cons ((cdr defaults)) (defaults)]) (#$ . 22160) nil 16])) #@514 Query flags based on SYM. Optional argument DESC will be used for the prompt. If ARG (or a prefix argument) is nil, just use the 0th default. If it is a non-negative integer, use the corresponding default. If it is a negative integer query for a new value of the corresponding default and return that new value. If it is \[universal-argument], just query and return a value without altering the defaults. If it is \[universal-argument] \[universal-argument], behave just as if a negative zero was provided. (defalias 'cvs-flags-query #[(sym &optional desc arg) #@972 ("J\n\2060 \306H >\2040\307\310!\210 \311H \306H >\204#0\307\312!\210 \313H \306H >\20430\307\314!\210 \315H \316=\203B0\306\202M0\206M0\206M0\306 \317! \306H >\204a0\307\320!\210 \321H \306W\205s0\322\323 [\" :\203\2140 \313V\203\2060\324\202\2070\325 \306 \326 ! GW\204\2370\307\327\326 !\"\210 \203\3530\322\330\n # _\331 [ \306H >\204\2740\307\320!\210 \321H8_\f $ \325\232\204\3450 [ \306H >\204\3350\307\320!\210 \321H\233 \240\210 *\202\3600 8.\207" . [sym flags desc cl-struct-cvs-flags-tags qtypedesc hist-sym 0 error "cvs-flags-desc accessing a non-cvs-flags" 3 "cvs-flags-qtypedesc accessing a non-cvs-flags" 4 "cvs-flags-hist-sym accessing a non-cvs-flags" 5 noquery prefix-numeric-value "cvs-flags-defaults accessing a non-cvs-flags" 1 format " (%sth default)" " (permanent)" "" abs "There is no %sth default" "%s%s: " cvs-query-read arg current-prefix-arg numarg defaults permstr prompt fs]) (#$ . 23025) nil 5 (#$ . 22451)]) #@38 Set SYM's INDEX'th setting to VALUE. (defalias 'cvs-flags-set #[(sym index value) #@159 (" J\304H\n>\2040\305\306!\210 J\307H\233 \240\207" . [index sym cl-struct-cvs-flags-tags value 0 error "cvs-flags-defaults accessing a non-cvs-flags" 1]) (#$ . 24124) nil 3 (#$ . 24035)]) (byte-code "\301\302\303\304#\210\305B\306\307!\207" [current-load-list put cvs-flags-set byte-optimizer byte-compile-inline-expand cvs-prefix-number (lambda (#1=#:defconst-tmp-var) (defconst cvs-prefix-number #1#)) 10] 4) (defalias 'cvs-prefix-sym #[(sym) #@60 ("\301\302!\303P!\207" . [sym intern symbol-name "-cps"]) (#$ . 24580) nil 3]) (put 'cvs-prefix-sym 'byte-optimizer 'byte-compile-inline-expand) (defalias 'cvs-prefix-define '(macro . #[(sym docstring desc defaults &optional qtypedesc hist-sym) #@427 ("\306\307!\310P!)\311\312\313\n\2060\314\315PF\312 \316\303 DC\317\320\f\303 \257FEE)\207" . [sym cps docstring defaults desc qtypedesc intern symbol-name "-cps" progn defvar nil "" "\nSee `cvs-prefix-set' for further description of the behavior." let (unless (>= (length defaults) cvs-prefix-number) (setq defaults (append defaults (make-list (1- cvs-prefix-number) (nth 0 defaults))))) -cvs-flags-make hist-sym]) (#$ . 24832) nil 12])) (defalias 'cvs-prefix-make-local #[(sym) #@128 ("\302\303!\304P!)\305!\210\305 !\306 J!L)\207" . [sym cps intern symbol-name "-cps" make-local-variable copy-cvs-flags]) (#$ . 25328) nil 3]) #@459 Set the cvs-prefix contained in SYM. If ARG is between 0 and 9, it selects the corresponding default. If ARG is negative (or \[universal-argument] which corresponds to negative 0), it queries the user and sets the -ARG'th default. If ARG is greater than 9 (or \[universal-argument] \[universal-argument]), the (ARG mod 10)'th prefix is made persistent. If ARG is nil toggle the PREFIX's value between its 0th default and nil and reset the persistence. (defalias 'cvs-prefix-set #[(sym arg) #@958 ("\305\306!\307P!)J\n\250\2030\n\2020\310\311\n!\312V\20350 \310H\f>\204+0\313\314!\210 \315\316I\210\317 \320\"\n\204d0 \310H\f>\204F0\313\314!\210 \315\321I\210J?\205\3320 \310H\f>\204]0\313\322!\210 \323H@\202\3320\n:\204o0 \310W\203\3110 [ \310H\f>\204}0\313\322!\210 \323H\233\324 [ \310H\f>\204\2200\313\322!\210 \323H8\325\326 \310H\f>\204\2420\313\327!\210 \330H\" \310H\f>\204\2620\313\331!\210 \332H \310H\f>\204\3010\313\333!\210 \334H$\240\202\3320 \310H\f>\204\3260\313\322!\210 \323H8L\210\335 *\207" . [sym prefix arg numarg cl-struct-cvs-flags-tags intern symbol-name "-cps" 0 prefix-numeric-value 9 error "cvs-flags-persist storing a non-cvs-flags" 2 t mod 10 nil "cvs-flags-defaults accessing a non-cvs-flags" 1 cvs-query-read format "%s: " "cvs-flags-desc accessing a non-cvs-flags" 3 "cvs-flags-qtypedesc accessing a non-cvs-flags" 4 "cvs-flags-hist-sym accessing a non-cvs-flags" 5 force-mode-line-update]) (#$ . 25985) nil 8 (#$ . 25482)]) #@87 Return the current value of the prefix SYM. And reset it unless READ-ONLY is non-nil. (defalias 'cvs-prefix-get #[(sym &optional read-only) #@263 ("J \204,0\304\305!\306P!)J\211\307H >\204 0\310\311!\210\n\312H)\204,0\313L\210\314 \210\207" . [sym read-only cl-x cl-struct-cvs-flags-tags intern symbol-name "-cps" 0 error "cvs-flags-persist accessing a non-cvs-flags" 2 nil force-mode-line-update]) (#$ . 27128) nil 5 (#$ . 26981)]) (provide 'pcvs-util)
Close
