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 : kmacro.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:16 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/kmacro.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 "`kmacro.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'kmacro nil "Simplified keyboard macro user interface." :group 'keyboard :group 'convenience :version "22.1" :link '(emacs-commentary-link :tag "Commentary" "kmacro.el") :link '(emacs-library-link :tag "Lisp File" "kmacro.el")) #@92 The mouse event used by kmacro to call a macro. Set to nil if no mouse binding is desired. (custom-declare-variable 'kmacro-call-mouse-event ''S-mouse-3 '(#$ . 853) :type 'symbol :group 'kmacro) #@58 Maximum number of keyboard macros to save in macro ring. (custom-declare-variable 'kmacro-ring-max '8 '(#$ . 1054) :type 'integer :group 'kmacro) #@422 Controls whether appending to a macro starts by executing the macro. If non-nil, using a single \[universal-argument] prefix executes the macro before appending, while more than one \[universal-argument] prefix does not execute the macro. Otherwise, a single \[universal-argument] prefix does not execute the macro, while more than one \[universal-argument] prefix causes the macro to be executed before appending to it. (custom-declare-variable 'kmacro-execute-before-append 't '(#$ . 1207) :type 'boolean :group 'kmacro) #@77 Allow repeating certain macro commands without entering the C-x C-k prefix. (custom-declare-variable 'kmacro-repeat-no-prefix 't '(#$ . 1736) :type 'boolean :group 'kmacro) #@62 Allow repeating macro call using last key or a specific key. (custom-declare-variable 'kmacro-call-repeat-key 't '(#$ . 1915) :type '(choice (const :tag "Disabled" nil) (const :tag "Last key" t) (character :tag "Character" :value 101) (symbol :tag "Key symbol" :value RET)) :group 'kmacro) #@71 Repeat macro call with original arg when non-nil; repeat once if nil. (custom-declare-variable 'kmacro-call-repeat-with-arg 'nil '(#$ . 2211) :type 'boolean :group 'kmacro) #@66 Override `max-mini-window-height' when step edit keyboard macro. (custom-declare-variable 'kmacro-step-edit-mini-window-height '0.75 '(#$ . 2390) :type 'number :group 'kmacro) #@37 Keymap for keyboard macro commands. (defvar kmacro-keymap (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\327#\210\302\330\331#\210\302\332\333#\210\302\334\335#\210\302\336\337#\210\302\340\341#\210\302\342\343#\210\302\344\345#\210\302\346\347#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210)\207" [map make-sparse-keymap define-key "s" kmacro-start-macro "" " " kmacro-end-or-call-macro-repeat "r" apply-macro-to-region-lines "q" kbd-macro-query "" kmacro-cycle-ring-next "" kmacro-cycle-ring-previous "" kmacro-view-macro-repeat "" kmacro-delete-ring-head "" kmacro-swap-ring "\f" kmacro-call-ring-2nd-repeat "" kmacro-set-format "" kmacro-set-counter " " kmacro-insert-counter "" kmacro-add-counter "" kmacro-edit-macro-repeat " " kmacro-edit-macro "e" edit-kbd-macro "l" kmacro-edit-lossage " " kmacro-step-edit-macro "b" kmacro-bind-to-key "n" kmacro-name-last-macro] 4) (#$ . 2572)) (byte-code "\302\300\"\210 \203 \303\304 !\305\"\210\302\207" [kmacro-keymap kmacro-call-mouse-event defalias global-set-key vector kmacro-end-call-mouse] 3) (defalias 'kmacro-keyboard-quit #[nil "?\206 \301=\206 \302 \206 \303 \207" [defining-kbd-macro append kmacro-ring-empty-p kmacro-pop-ring] 2]) #@34 *Current keyboard macro counter. (defvar kmacro-counter 0 (#$ . -3968)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list kmacro-default-counter-format default-boundp set-default "%d"] 3) #@41 *Current keyboard macro counter format. (defvar kmacro-counter-format "%d" (#$ . -4193)) #@43 Macro format at start of macro execution. (defvar kmacro-counter-format-start kmacro-counter-format (#$ . 4288)) #@44 Macro counter at start of macro execution. (defvar kmacro-counter-value-start kmacro-counter (#$ . 4407)) #@37 Last counter inserted by key macro. (defvar kmacro-last-counter 0 (#$ . 4519)) #@66 Initial counter value for the next keyboard macro to be defined. (defvar kmacro-initial-counter-value nil (#$ . 4604)) #@173 Insert macro counter, then increment it by ARG. Interactively, ARG defaults to 1. With \[universal-argument], insert previous `kmacro-counter', and do not modify counter. (defalias 'kmacro-insert-counter #[(arg) "\203 \305\n\203 \n<\203 \306 \f\"c\207\306 \"c\210\307\310\n!!\207" [kmacro-initial-counter-value kmacro-counter arg kmacro-counter-format kmacro-last-counter nil format kmacro-add-counter prefix-numeric-value] 3 (#$ . 4730) "P"]) #@27 Set macro counter FORMAT. (defalias 'kmacro-set-format #[(format) "\305\232\203\n \306\202 \n\206 ?\205 \211\207" [format kmacro-counter-format defining-kbd-macro executing-kbd-macro kmacro-default-counter-format "" "%d"] 2 (#$ . 5189) "sMacro Counter Format: "]) #@32 Display current counter value. (defalias 'kmacro-display-counter #[(&optional value) "\204 \303\304\305\n\"#\207" [value kmacro-counter kmacro-counter-format message "New macro counter value: %s (%d)" format] 5 (#$ . 5468)]) #@151 Set `kmacro-counter' to ARG or prompt if missing. With \[universal-argument] prefix, reset counter to its value prior to this iteration of the macro. (defalias 'kmacro-set-counter #[(arg) "\204 \204 \306\n\211!\207\f\203 <\203 \202! \n ?\205) \306 \207" [defining-kbd-macro executing-kbd-macro arg kmacro-initial-counter-value kmacro-counter kmacro-last-counter kmacro-display-counter current-prefix-arg kmacro-counter-value-start] 3 (#$ . 5706) "NMacro counter value: "]) #@122 Add numeric prefix arg (prompt if missing) to macro counter. With \[universal-argument], restore previous counter value. (defalias 'kmacro-add-counter #[(arg) "\203 \306\n \f\203 \f<\203 \202 \210 \\)?\205( \307 \207" [kmacro-initial-counter-value kmacro-counter kmacro-last-counter last current-prefix-arg arg nil kmacro-display-counter executing-kbd-macro] 2 (#$ . 6201) "NAdd to macro counter: "]) #@51 Function called prior to each iteration of macro. (defalias 'kmacro-loop-setup-function #[nil "\n\304\207" [kmacro-counter-format-start kmacro-counter-format kmacro-counter kmacro-counter-value-start t] 1 (#$ . 6624)]) #@273 The keyboard macro ring. Each element is a list (MACRO COUNTER FORMAT). Actually, the head of the macro ring (when defining or executing) is not stored in the ring; instead it is available in the variables `last-kbd-macro', `kmacro-counter', and `kmacro-counter-format'. (defvar kmacro-ring nil (#$ . 6853)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\304\207" [current-load-list kmacro-view-last-item default-boundp set-default nil kmacro-view-item-no 0] 3) #@43 Return pseudo head element in macro ring. (defalias 'kmacro-ring-head #[nil "\205 \nE\207" [last-kbd-macro kmacro-counter kmacro-counter-format-start] 3 (#$ . 7368)]) #@47 Push ELT or current macro onto `kmacro-ring'. (defalias 'kmacro-push-ring #[(&optional elt) "\206 \303 \211\205 \304\305\306\n#)\207" [elt history-delete-duplicates kmacro-ring-max kmacro-ring-head nil add-to-history kmacro-ring] 4 (#$ . 7545)]) (defalias 'kmacro-split-ring-element #[(elt) "@A@\3048\211\207" [elt last-kbd-macro kmacro-counter kmacro-counter-format-start 2] 2]) #@98 Pop head element off macro ring (no check). Non-nil arg RAW means just return raw first element. (defalias 'kmacro-pop-ring1 #[(&optional raw) "@ \204 \302@!\210A\207" [kmacro-ring raw kmacro-split-ring-element] 3 (#$ . 7943)]) #@87 Pop head element off macro ring. Non-nil arg RAW means just return raw first element. (defalias 'kmacro-pop-ring #[(&optional raw) "\301 ?\205 \302!\207" [raw kmacro-ring-empty-p kmacro-pop-ring1] 2 (#$ . 8182)]) #@139 Tell user and return t if `last-kbd-macro' is nil or `kmacro-ring' is empty. Check only `last-kbd-macro' if optional arg NONE is non-nil. (defalias 'kmacro-ring-empty-p #[(&optional none) "\204 \203 \303 \210\202 \204 \304\305!\210\306\207\n\204& \204& \304\307!\210\306\207\310\207" [last-kbd-macro kmacro-ring none kmacro-pop-ring1 message "No keyboard macro defined." t "Only one keyboard macro defined." nil] 2 (#$ . 8404)]) #@237 Display a keyboard MACRO. Optional arg TRUNC non-nil specifies to limit width of macro to 60 chars. Optional arg DESCR is descriptive text for macro; default is "Macro:". Optional arg EMPTY is message to print if no macros are defined. (defalias 'kmacro-display #[(macro &optional trunc descr empty) "\203J \306\307!\211G\f\205 V \310\311\206 \312\313U\203( \314\2021 \315\316\315\"\" \203= \n\313 SO\202> \n \203F \317\202G \314%,\207\310\320\206R \321\"\207" [macro x m l trunc z 60 format-kbd-macro message "%s%s: %s%s" "Macro" 0 "" format " [%s]" "..." "%s" "No keyboard macros defined" descr kmacro-counter kmacro-counter-format-start empty] 9 (#$ . 8848)]) #@66 Process kmacro commands keys immediately after cycling the ring. (defalias 'kmacro-repeat-on-last-key #[(keys) "\306!\211GS\307\211\211 \203t \n\204t \f\310 I\203t \311\312\"\211\203t \313N\211\203t \314\312!\210 \315=\203Q \203I \307 \307!\210)\202n \316 \312\"\210\202n \317=\203b \307 \307!\210)\202n \320=\203n \307!\210\312\307\202 ,\205\204 \314\312!\210C\211\207" [keys repeat done cmd n last-kbd-macro vconcat nil read-event key-binding t kmacro-repeat clear-this-command-keys ring kmacro-display head stop kmacro-ring kmacro-repeat-no-prefix last-input-event unread-command-events] 5 (#$ . 9536)]) (defalias 'kmacro-get-repeat-prefix #[nil "\302 \205 \303 \211\205 G\304V\205 )\207" [keys kmacro-repeat-no-prefix nil this-single-command-keys 1] 2]) #@40 Execute item ITEM from the macro ring. (defalias 'kmacro-exec-ring-item #[(item arg) "A@\3048\305@ \306#\210A\n\240*\207" [item kmacro-counter-format-start kmacro-counter arg 2 execute-kbd-macro kmacro-loop-setup-function] 4 (#$ . 10337)]) #@46 Execute second keyboard macro in macro ring. (defalias 'kmacro-call-ring-2nd #[(arg) "\302 ?\205 \303@ \"\207" [kmacro-ring arg kmacro-ring-empty-p kmacro-exec-ring-item] 3 (#$ . 10589) "P"]) #@149 Execute second keyboard macro in macro ring. This is like `kmacro-call-ring-2nd', but allows repeating macro commands without repeating the prefix. (defalias 'kmacro-call-ring-2nd-repeat #[(arg) "\303 \304 !\210\n\205 \205 \305!)\207" [keys arg kmacro-ring kmacro-get-repeat-prefix kmacro-call-ring-2nd kmacro-repeat-on-last-key] 2 (#$ . 10790) "P"]) (put 'kmacro-call-ring-2nd-repeat 'kmacro-repeat 'head) #@54 Display the current head of the keyboard macro ring. (defalias 'kmacro-view-ring-2nd #[nil "\301 ?\205\f \302@@\303\"\207" [kmacro-ring kmacro-ring-empty-p kmacro-display "2nd macro"] 3 (#$ . 11208) nil]) #@99 Move to next keyboard macro in keyboard macro ring. Displays the selected macro in the echo area. (defalias 'kmacro-cycle-ring-next #[(&optional arg) "\306 ?\205. \307 \210\310 G\211\311Z \233\211A@ \312\241\210\313\f!\210\314 \315\"\210\205- \316!,\207" [keys kmacro-ring len tail elt last-kbd-macro kmacro-ring-empty-p kmacro-push-ring kmacro-get-repeat-prefix 2 nil kmacro-split-ring-element kmacro-display t kmacro-repeat-on-last-key] 4 (#$ . 11420) nil]) (put 'kmacro-cycle-ring-next 'kmacro-repeat 'ring) #@103 Move to previous keyboard macro in keyboard macro ring. Displays the selected macro in the echo area. (defalias 'kmacro-cycle-ring-previous #[(&optional arg) "\304 ?\205+ \305 \306 \307 \210\n\203 \nC\244\210\202 C\310 \311\"\210 \205* \312 !*\207" [cur keys kmacro-ring last-kbd-macro kmacro-ring-empty-p kmacro-get-repeat-prefix kmacro-ring-head kmacro-pop-ring1 kmacro-display t kmacro-repeat-on-last-key] 3 (#$ . 11945) nil]) (put 'kmacro-cycle-ring-previous 'kmacro-repeat 'ring) #@49 Swap first two elements on keyboard macro ring. (defalias 'kmacro-swap-ring #[nil "\302 ?\205 \303 \304 \210\305!\210)\306 \307\"\207" [cur last-kbd-macro kmacro-ring-empty-p kmacro-ring-head kmacro-pop-ring1 kmacro-push-ring kmacro-display t] 3 (#$ . 12443) nil]) #@48 Delete current macro from keyboard macro ring. (defalias 'kmacro-delete-ring-head #[(&optional arg) "\302\303!?\205 \204 \304\202 \305 \210\306 \303\304\307$\207" [kmacro-ring last-kbd-macro kmacro-ring-empty-p t nil kmacro-pop-ring kmacro-display "Keyboard macro ring is now empty."] 5 (#$ . 12717) nil]) (put 'kmacro-delete-ring-head 'kmacro-repeat 'head) #@939 Record subsequent keyboard input, defining a keyboard macro. The commands are recorded even as they are executed. Use \[kmacro-end-macro] to finish recording and make the macro available. Use \[kmacro-end-and-call-macro] to execute the macro. Non-nil arg (prefix arg) means append to last macro defined. With \[universal-argument] prefix, append to last keyboard macro defined. Depending on `kmacro-execute-before-append', this may begin by re-executing the last macro as if you typed it again. Otherwise, it sets `kmacro-counter' to ARG or 0 if missing before defining the macro. Use \[kmacro-insert-counter] to insert (and increment) the macro counter. The counter value can be set or modified via \[kmacro-set-counter] and \[kmacro-add-counter]. The format of the counter can be modified via \[kmacro-set-format]. Use \[kmacro-name-last-macro] to give it a permanent name. Use \[kmacro-bind-to-key] to bind it to a key sequence. (defalias 'kmacro-start-macro #[(arg) "\204 \203\f \306\307!\207\n\205 \n<\211\204E \f\203# \310\f E!\210\n\203- \311\n!\2063 \2063 \312\313 \314 \211\205[ \203W \n@\315V\202[ \n@\315U\"\210\205h \205h \303\211)\207" [defining-kbd-macro executing-kbd-macro arg append last-kbd-macro kmacro-counter message "Already defining keyboard macro." kmacro-push-ring prefix-numeric-value 0 nil start-kbd-macro 4 kmacro-counter-format-start kmacro-initial-counter-value kmacro-counter-value-start kmacro-last-counter kmacro-default-counter-format kmacro-counter-format kmacro-execute-before-append] 5 (#$ . 13087) "P"]) #@403 Finish defining a keyboard macro. The definition was started by \[kmacro-start-macro]. The macro is now available for use via \[kmacro-call-macro], or it can be given a name with \[kmacro-name-last-macro] and then invoked under that name. With numeric arg, repeat macro now that many times, counting the definition just completed as the first repetition. An argument of zero means repeat until error. (defalias 'kmacro-end-macro #[(arg) "?\205* \304 \305\"\210\n\205* \nG\306U\205* \307\310\311!\210\n?\205* \205* \312 \210\202 \207" [executing-kbd-macro arg last-kbd-macro kmacro-ring end-kbd-macro kmacro-loop-setup-function 0 nil message "Ignore empty macro" kmacro-pop-ring1] 3 (#$ . 14672) "P"]) #@517 Call the last keyboard macro that you defined with \[kmacro-start-macro]. A prefix argument serves as a repeat count. Zero means repeat until error. When you call the macro, you can call the macro again by repeating just the last key in the key sequence that you used to call this command. See `kmacro-call-repeat-key' and `kmacro-call-repeat-with-arg' for details on how to adjust or disable this behavior. To make a macro permanent so you can call it even after defining others, use \[kmacro-name-last-macro]. (defalias 'kmacro-call-macro #[(arg &optional no-repeat end-macro) "?\205 \306 G\307V\205 \310\f\203 \311 !\210\202! \312 \313\"\210 :\203) @ \2033 \314V\205\231 \315=\203> \202@ \211\205\231 \316\317 !\310\" \203\214 \320\321\n\203i \203i \307V\203i \322\323 \"\202j \324#\210 \325 \232\203\206 \326\315!\210\312\205~ \313\"\210\310\202L \310\211\204P \205\231 \326\315!\210 C\211*\207" [no-repeat last-input-event repeat-key-str repeat-key end-macro arg this-single-command-keys 1 nil kmacro-end-macro call-last-kbd-macro kmacro-loop-setup-function 0 t format-kbd-macro vector message "(Type %s to repeat macro%s)" format " %d times" "" read-event clear-this-command-keys kmacro-call-repeat-key kmacro-call-repeat-with-arg unread-command-events] 7 (#$ . 15385) "p"]) #@667 Record subsequent keyboard input, defining a keyboard macro. The commands are recorded even as they are executed. Sets the `kmacro-counter' to ARG (or 0 if no prefix arg) before defining the macro. With \[universal-argument], appends to current keyboard macro (keeping the current value of `kmacro-counter'). When defining/executing macro, inserts macro counter and increments the counter with ARG or 1 if missing. With \[universal-argument], inserts previous `kmacro-counter' (but do not modify counter). The macro counter can be modified via \[kmacro-set-counter] and \[kmacro-add-counter]. The format of the counter can be modified via \[kmacro-set-format]. (defalias 'kmacro-start-macro-or-insert-counter #[(arg) "\204 \203\f \303\n!\207\304\n!\207" [defining-kbd-macro executing-kbd-macro arg kmacro-insert-counter kmacro-start-macro] 2 (#$ . 16706) "P"]) #@185 End kbd macro if currently being defined; else call last kbd macro. With numeric prefix ARG, repeat macro that many times. With \[universal-argument], call second macro in macro ring. (defalias 'kmacro-end-or-call-macro #[(arg &optional no-repeat) "\203 \203 \306\n \307#\207\310\n!\207\f\311=\203\" \203\" \312 @\n\"\207\n\203/ \n<\203/ \313\314!\207\306\n \"\207" [defining-kbd-macro kmacro-call-repeat-key arg no-repeat this-command kmacro-view-last-item kmacro-call-macro t kmacro-end-macro kmacro-view-macro kmacro-exec-ring-item kmacro-call-ring-2nd 1] 4 (#$ . 17582) "P"]) #@75 As `kmacro-end-or-call-macro' but allows repeat without repeating prefix. (defalias 'kmacro-end-or-call-macro-repeat #[(arg) "\302 \303 \304\"\210\205 \305!)\207" [keys arg kmacro-get-repeat-prefix kmacro-end-or-call-macro t kmacro-repeat-on-last-key] 3 (#$ . 18173) "P"]) (put 'kmacro-end-or-call-macro-repeat 'kmacro-repeat 'head) #@297 Call last keyboard macro, ending it first if currently being defined. With numeric prefix ARG, repeat macro that many times. Zero argument means repeat until there is an error. To give a macro a permanent name, so you can call it even after defining other macros, use \[kmacro-name-last-macro]. (defalias 'kmacro-end-and-call-macro #[(arg &optional no-repeat) "\203 \303\304!\210\305 \n\"\207" [defining-kbd-macro arg no-repeat kmacro-end-macro nil kmacro-call-macro] 3 (#$ . 18517) "P"]) #@142 Move point to the position clicked with the mouse and call last kbd macro. If kbd macro currently being defined end it before activating it. (defalias 'kmacro-end-call-mouse #[(event) "\203 \302 \210\303 !\210\304\305\306\"\207" [defining-kbd-macro event end-kbd-macro mouse-set-point kmacro-call-macro nil t] 3 (#$ . 19016) "e"]) #@54 Create lambda form for macro bound to symbol or key. (defalias 'kmacro-lambda-form #[(mac &optional counter format) "\203 \nE\303\304\305\306\307\310 D\311BB\257\207" [counter mac format lambda (&optional arg) "Keyboard macro." (interactive "p") kmacro-exec-ring-item quote (arg)] 7 (#$ . 19355)]) #@43 Extract kmacro from a kmacro lambda form. (defalias 'kmacro-extract-lambda #[(mac) ":\205H @\301=\205H \302\303\"\211\205H A:\205H A@:\205H A@A:\205H A@A@\211\205H <\205H G\304U\205H \305@!\205H \207" [mac lambda assoc kmacro-exec-ring-item 3 arrayp] 3 (#$ . 19665)]) #@590 When not defining or executing a macro, offer to bind last macro to a key. The key sequences [C-x C-k 0] through [C-x C-k 9] and [C-x C-k A] through [C-x C-k Z] are reserved for user bindings, and to bind to one of these sequences, just enter the digit or letter, rather than the whole sequence. You can bind to any valid key sequence, but if you try to bind to a key with an existing command binding, you will be asked for confirmation whether to replace that binding. Note that the binding is made in the `global-map' keymap, so the macro binding may be shaded by a local key binding. (defalias 'kmacro-bind-to-key #[(arg) "\204 \203 \205\217 \306\307!\207\n\204 \310\311!\210\312\313!\314\211 \211 G\315U\203T \316H\211 \250\203S \317Y\203? \320X\204M \321Y\203S \322X\203S \323 P\324) \325\232?\205\216 \f\204~ \326 !\211\203~ ;\204~ \327 !\204~ \330\331\332\333 ! #!\205\216 \334! \335\336 !#\210\306\337\333 !\"+\207" [defining-kbd-macro executing-kbd-macro last-kbd-macro cmd ok key-seq message "Cannot save macro while defining it." error "No keyboard macro defined" read-key-sequence "Bind last macro to key: " nil 1 0 48 57 65 90 " " t "" key-binding vectorp yes-or-no-p format "%s runs command %S. Bind anyway? " format-kbd-macro define-key kmacro-lambda-form kmacro-ring-head "Keyboard macro bound to %s" ch global-map] 6 (#$ . 19953) "p"]) #@238 Assign a name to the last keyboard macro defined. Argument SYMBOL is the name to define. The symbol's function definition becomes the keyboard macro string. Such a "function" cannot be called from Lisp, but it is a valid editor command. (defalias 'kmacro-name-last-macro #[(symbol) "\204 \302\303!\210\304 !\203& \305N\204& K;\204& \306 K!\204& \302\307 \"\210 \310\230\2030 \302\311!\210 \312\313 !M\210\314 \305\315#\207" [last-kbd-macro symbol error "No keyboard macro defined" fboundp kmacro vectorp "Function %s is already defined and not a keyboard macro" "" "No command name given" kmacro-lambda-form kmacro-ring-head put t] 4 (#$ . 21340) "SName for last kbd macro: "]) #@93 Display the last keyboard macro. If repeated, it shows previous elements in the macro ring. (defalias 'kmacro-view-macro #[(&optional arg) "\306 \204 \307=\204 \310\202+ \204 \n\311\202+ :\203) A T\202+ \310\307\211\312 \203: @@\202; \310 \203] \311U\203J \313\202X \314U\203T \315\202X \316\317 \"\320P\202^ \321#\207" [last-command kmacro-view-last-item kmacro-ring kmacro-view-item-no this-command last-kbd-macro kmacro-ring-empty-p kmacro-view-macro nil 2 kmacro-display "2nd" 3 "3nd" format "%dth" " previous macro" "Last macro"] 7 (#$ . 22028) nil]) #@283 Display the last keyboard macro. If repeated, it shows previous elements in the macro ring. To execute the displayed macro ring item without changing the macro ring, just enter C-k. This is like `kmacro-view-macro', but allows repeating macro commands without repeating the prefix. (defalias 'kmacro-view-macro-repeat #[(&optional arg) "\303 \304 !\210\n\205 \205 \305!)\207" [keys arg last-kbd-macro kmacro-get-repeat-prefix kmacro-view-macro kmacro-repeat-on-last-key] 2 (#$ . 22610) nil]) (put 'kmacro-view-macro-repeat 'kmacro-repeat 'ring) #@27 Edit last keyboard macro. (defalias 'kmacro-edit-macro-repeat #[(&optional arg) "\301\302\"\207" [arg edit-kbd-macro " "] 3 (#$ . 23166) "P"]) (put 'kmacro-edit-macro-repeat 'kmacro-repeat 'stop) #@66 As edit last keyboard macro, but without kmacro-repeat property. (defalias 'kmacro-edit-macro #[(&optional arg) "\301\302\"\207" [arg edit-kbd-macro " "] 3 (#$ . 23369) "P"]) #@54 Edit most recent 300 keystrokes as a keyboard macro. (defalias 'kmacro-edit-lossage #[nil "\300 \210\301\302!\207" [kmacro-push-ring edit-kbd-macro "l"] 2 (#$ . 23551) nil]) #@285 Keymap that defines the responses to questions in `kmacro-step-edit-macro'. This keymap is an extension to the `query-replace-map', allowing the following additional answers: `insert', `insert-1', `replace', `replace-1', `append', `append-end', `act-repeat', `skip-end', `skip-keep'. (defvar kmacro-step-edit-map (make-sparse-keymap) (#$ . 23733)) (byte-code "\302 \"\210\303\304\305#\210\303\306\305#\210\303\307\310#\210\303\311\312#\210\303\313\314#\210\303\315\316#\210\303\317\320#\210\303\321\320#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\207" [kmacro-step-edit-map query-replace-map set-keymap-parent define-key " " act-repeat [tab] " " skip-rest "c" automatic "f" skip-keep "q" quit "d" skip "" "i" insert "I" insert-1 "r" replace "R" replace-1 "a" append "A" append-end] 4) #@63 Commands which build up a prefix arg for the current command. (defvar kmacro-step-edit-prefix-commands '(universal-argument universal-argument-more universal-argument-minus digit-argument negative-argument) (#$ . 24599)) (defalias 'kmacro-step-edit-prompt #[(macro index) "?\205 \205 \n O?\205 \n \306O\306\307 $ %\310\311\312\313\314&\315\"&\2039 &G\316V\2039 \317\202: \320\321%\203G \314%!\202P \203O \322\202P \323\324\325#$\203\\ \317\202] \320$\203i \314$!\202j \320&\326 \203 \312\327\321\330\324\331#ed{#\202\220 \f\203\217 \312\327\321\332\324\331#\f#\202\220 \320%\203\261 \312\333\321\334\324\335#'\203\245 \336\202\246 \320\321\337\324\340#(%\202\316 \321\312\341)\247\203\276 \320\202\277 \342)\247\203\311 \320\202\312 \343#\324\340#Q\",\207" [kmacro-step-edit-appending index macro executing-kbd-macro-index curmsg message-log-max nil current-message message "%s" format "Macro: %s%s%s%s%s\n" format-kbd-macro 1 0 " " "" propertize "<APPEND>" "<INSERT>" face region minibufferp "%s\n%s\n" " minibuffer " header-line " echo area " "%s\n%s%s %S [yn iIaArR C-k kq!] " "--------------Step Edit Keyboard Macro [?: help]---------------" mode-line " Step: y/SPC: execute next, d/n/DEL: skip next, f: skip but keep\n TAB: execute while same, ?: toggle help\n Edit: i: insert, r: replace, a: append, A: append at end,\n I/R: insert/replace with one sequence,\n End: !/c: execute rest, C-k: skip rest and save, q/C-g: quit\n----------------------------------------------------------------\n" "Next command:" bold "Type key sequence%s to insert and execute%s: " "s" " (end with C-j)" future keys kmacro-step-edit-new-macro kmacro-step-edit-help this-command kmacro-step-edit-inserting] 12]) (defalias 'kmacro-step-edit-query #[nil "\306\307\211\211 &\310=\2032 '\306=\2042 (\307 )\310\311!\210)\2031 ()GZ\211()*\307\211 + * ,'\306=\203\212 &\310=\203\202 \312 \210\307 )\310\313-!!\210\314.\315 \".)\203v .\311)G[O.()GZ()\307\211-/\316\202\204 \303\307'\202\232 &'=\203\227 \303\202\232 \307' \203\243 \210\202\337 &0>\203\271 1\204\264 21\317\202\337 &\320=\203\305 \317\202\337 \321,1\206\317 2\"\210\3223\323rpq\210\324 )!\"+ \317=\204$ \303=\204\356 \325=\203\371 &'\202\356 \326=\203\3074\3165\202! \327=\203\3071\202! \330=\203 \316&\202\356 \331=\203,\3165\202! \332>\203:\3075\306\202\356 \333\235\203Y1\206G2( \334=\203S\335\202T\3066\202! \336\235\203\205 \337=\203i\335\202j\3066\3071(*GU\203!\314*\340\"*\3067\202! \341=\203\244\3066(*GU\203\356\314*\342\"*\3067\202\356 \343=\203\313(*GU\203\303\314*\344\"*\306\21167\202\306\3435\306\202\356 \345=\203\3421\206\3302(8?8\202!1\206\3512(\202!(1\206\3672V\203\314.*1\2062 \306=?\205(O\".\3071\n\203$\n(\202$\316& \2112-\207" [kmacro-step-edit-mini-window-height next-index restore-index act max-mini-window-height resize-mini-windows t nil quoted-insert 0 clear-this-command-keys prefix-numeric-value vconcat recent-keys ignore universal-argument universal-argument-other-key kmacro-step-edit-prompt lookup-key vector read-event act-repeat quit skip skip-keep skip-rest (automatic exit) (insert-1 insert) insert-1 1 (replace-1 replace) replace-1 [nil] append [nil] append-end [nil] help this-command kmacro-step-edit-action executing-kbd-macro-index unread-command-events executing-kbd-macro defining-kbd-macro macro current-prefix-arg kmacro-step-edit-new-macro prefix-arg kmacro-step-edit-prefix-commands kmacro-step-edit-prefix-index kmacro-step-edit-key-index kmacro-step-edit-map kmacro-step-edit-replace kmacro-step-edit-active kmacro-step-edit-inserting kmacro-step-edit-appending kmacro-step-edit-help] 7]) (defalias 'kmacro-step-edit-insert #[nil "\306 \307\211\211\211\211 \206 \307\310\307\"\210\311 \210\312\307\211\211\211\306%\313 \306\307#\211\203\320 \f\314=\203~ \315 \210\314\316 !!\210\307\211 \317 \320 \" \247\203y \307 \203y \321 G[O GZ\211\307 \322\202\326 \f >\203\216 \321!\311 \210\202\326 \f\323=\203\251 \306\"\321!\311 \210 \247\203\326 \307 \202\326 \247\203\265 \307 \202\326 \324\232\203\326 \307\211 \"\307\311 \210\307\211#!\322$\202\361 \f\211$\325>\203\346 \211GSH% \203\361 \317& \"&\n\211.\207" [kmacro-step-edit-mini-window-height executing-kbd-macro next-index keys cmd defining-kbd-macro t nil kmacro-step-edit-prompt reset-this-command-lengths read-key-sequence key-binding quoted-insert clear-this-command-keys prefix-numeric-value vconcat recent-keys 0 ignore universal-argument-other-key "\n" (self-insert-command digit-argument) macro max-mini-window-height resize-mini-windows kmacro-step-edit-prefix-index kmacro-step-edit-key-index executing-kbd-macro-index current-prefix-arg prefix-arg kmacro-step-edit-inserting unread-command-events kmacro-step-edit-prefix-commands universal-argument-num-events kmacro-step-edit-action overriding-terminal-local-map this-command last-command-event kmacro-step-edit-new-macro] 9]) (defalias 'kmacro-step-edit-pre-command #[nil "\306\307\310\"\210\203T \311=\203 \311\202T \312=\203/ \n GU\203T \313 \314\"\315\211\315\202T U\204T \f\203A \316 \210\202D \317 \210 \203T \f\204T \320\311\315=\205_ \321\307\310\315#\207" [kmacro-step-edit-active this-command executing-kbd-macro-index executing-kbd-macro kmacro-step-edit-inserting kmacro-step-edit-appending remove-hook post-command-hook kmacro-step-edit-post-command ignore append-end vconcat [nil] t kmacro-step-edit-insert kmacro-step-edit-query nil add-hook kmacro-step-edit-num-input-keys num-input-keys] 5]) (defalias 'kmacro-step-edit-minibuf-setup #[nil "\301\302\303\304#\210\205 \305\302\303\306\304$\207" [kmacro-step-edit-active remove-hook pre-command-hook kmacro-step-edit-pre-command t add-hook nil] 5]) (defalias 'kmacro-step-edit-post-command #[nil "\303\304\305\"\210\205 \306\304\305\307\211$\210 \203 \211\207\n\211\207" [kmacro-step-edit-active kmacro-step-edit-key-index executing-kbd-macro-index remove-hook pre-command-hook kmacro-step-edit-pre-command add-hook nil] 5]) #@127 Step edit and execute last keyboard macro. To customize possible responses, change the "bindings" in `kmacro-step-edit-map'. (defalias 'kmacro-step-edit-macro #[nil "\306\307\310\211\306\310\311\310\211 \n \312\301\313\310#\210\312\302\314\306#\210\312\303\315\306#\210\316\310\211\"\210\205T \205T \232?\205T \317 \210\211. \207" [num-input-keys pre-command-hook post-command-hook minibuffer-setup-hook kmacro-step-edit-num-input-keys kmacro-step-edit-help t "" nil 0 add-hook kmacro-step-edit-pre-command kmacro-step-edit-post-command kmacro-step-edit-minibuf-setup call-last-kbd-macro kmacro-push-ring kmacro-step-edit-action kmacro-step-edit-key-index kmacro-step-edit-prefix-index kmacro-step-edit-replace kmacro-step-edit-appending kmacro-step-edit-inserting kmacro-step-edit-new-macro kmacro-step-edit-active last-kbd-macro] 13 (#$ . 30905) nil]) (provide 'kmacro)
Close
