Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
cedet
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
image
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
leim
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
vc
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
537
B
-rw-r--r--
abbrev.elc
34.55
KB
-rw-r--r--
align.elc
39.88
KB
-rw-r--r--
allout-widgets.elc
62.37
KB
-rw-r--r--
allout.elc
203.33
KB
-rw-r--r--
ansi-color.elc
17.12
KB
-rw-r--r--
apropos.elc
37.42
KB
-rw-r--r--
arc-mode.elc
58.06
KB
-rw-r--r--
array.elc
27.07
KB
-rw-r--r--
auth-source-pass.elc
11.68
KB
-rw-r--r--
auth-source.elc
64.32
KB
-rw-r--r--
autoarg.elc
6.63
KB
-rw-r--r--
autoinsert.elc
13.41
KB
-rw-r--r--
autorevert.elc
30.71
KB
-rw-r--r--
avoid.elc
11.62
KB
-rw-r--r--
battery.elc
24.42
KB
-rw-r--r--
bindings.elc
42.76
KB
-rw-r--r--
bookmark.elc
77.09
KB
-rw-r--r--
bs.elc
49.32
KB
-rw-r--r--
buff-menu.elc
27.02
KB
-rw-r--r--
button.elc
14.97
KB
-rw-r--r--
calculator.elc
53.9
KB
-rw-r--r--
case-table.elc
4.99
KB
-rw-r--r--
cdl.elc
1.07
KB
-rw-r--r--
char-fold.elc
311.81
KB
-rw-r--r--
chistory.elc
8.16
KB
-rw-r--r--
cmuscheme.elc
18.07
KB
-rw-r--r--
color.elc
12.83
KB
-rw-r--r--
comint.elc
114.46
KB
-rw-r--r--
completion.elc
41.12
KB
-rw-r--r--
composite.elc
27.94
KB
-rw-r--r--
cus-dep.elc
6.42
KB
-rw-r--r--
cus-edit.elc
139.04
KB
-rw-r--r--
cus-face.elc
10.54
KB
-rw-r--r--
cus-load.el
85.19
KB
-rw-r--r--
cus-start.elc
21.92
KB
-rw-r--r--
cus-theme.elc
25.05
KB
-rw-r--r--
custom.elc
47.41
KB
-rw-r--r--
dabbrev.elc
22.28
KB
-rw-r--r--
delim-col.elc
8.95
KB
-rw-r--r--
delsel.elc
9.2
KB
-rw-r--r--
descr-text.elc
26.87
KB
-rw-r--r--
desktop.elc
47.64
KB
-rw-r--r--
dframe.elc
19.92
KB
-rw-r--r--
dired-aux.elc
85.75
KB
-rw-r--r--
dired-loaddefs.el
22.29
KB
-rw-r--r--
dired-x.elc
44.53
KB
-rw-r--r--
dired.elc
127.27
KB
-rw-r--r--
dirtrack.elc
7.75
KB
-rw-r--r--
disp-table.elc
8.76
KB
-rw-r--r--
display-fill-column-indicator....
8.32
KB
-rw-r--r--
display-line-numbers.elc
8.67
KB
-rw-r--r--
dnd.elc
7.13
KB
-rw-r--r--
doc-view.elc
65.25
KB
-rw-r--r--
dom.elc
7.36
KB
-rw-r--r--
dos-fns.elc
6.14
KB
-rw-r--r--
dos-vars.elc
1.1
KB
-rw-r--r--
dos-w32.elc
11.67
KB
-rw-r--r--
double.elc
4.34
KB
-rw-r--r--
dynamic-setting.elc
2.2
KB
-rw-r--r--
ebuff-menu.elc
10.46
KB
-rw-r--r--
echistory.elc
4.75
KB
-rw-r--r--
ecomplete.elc
7.1
KB
-rw-r--r--
edmacro.elc
19.94
KB
-rw-r--r--
ehelp.elc
11.32
KB
-rw-r--r--
elec-pair.elc
21.41
KB
-rw-r--r--
electric.elc
23.69
KB
-rw-r--r--
elide-head.elc
2.65
KB
-rw-r--r--
emacs-lock.elc
9.29
KB
-rw-r--r--
env.elc
6.12
KB
-rw-r--r--
epa-dired.elc
1.62
KB
-rw-r--r--
epa-file.elc
8.65
KB
-rw-r--r--
epa-hook.elc
4.63
KB
-rw-r--r--
epa-mail.elc
9.43
KB
-rw-r--r--
epa.elc
45.25
KB
-rw-r--r--
epg-config.elc
8.97
KB
-rw-r--r--
epg.elc
166.06
KB
-rw-r--r--
expand.elc
9.07
KB
-rw-r--r--
ezimage.elc
9.65
KB
-rw-r--r--
face-remap.elc
16.58
KB
-rw-r--r--
facemenu.elc
27.89
KB
-rw-r--r--
faces.elc
90.21
KB
-rw-r--r--
ffap.elc
50.3
KB
-rw-r--r--
filecache.elc
16.69
KB
-rw-r--r--
fileloop.elc
6.62
KB
-rw-r--r--
filenotify.elc
28.49
KB
-rw-r--r--
files-x.elc
21.9
KB
-rw-r--r--
files.elc
236.95
KB
-rw-r--r--
filesets.elc
72.57
KB
-rw-r--r--
find-cmd.elc
4.9
KB
-rw-r--r--
find-dired.elc
10.41
KB
-rw-r--r--
find-file.elc
18.33
KB
-rw-r--r--
find-lisp.elc
7.66
KB
-rw-r--r--
finder-inf.el
41.27
KB
-rw-r--r--
finder.elc
14.73
KB
-rw-r--r--
flow-ctrl.elc
2.26
KB
-rw-r--r--
foldout.elc
7.25
KB
-rw-r--r--
follow.elc
40.63
KB
-rw-r--r--
font-core.elc
12.41
KB
-rw-r--r--
font-lock.elc
61.63
KB
-rw-r--r--
format-spec.elc
3.93
KB
-rw-r--r--
format.elc
27.56
KB
-rw-r--r--
forms.elc
35.1
KB
-rw-r--r--
frame.elc
85.94
KB
-rw-r--r--
frameset.elc
48.02
KB
-rw-r--r--
fringe.elc
10.23
KB
-rw-r--r--
generic-x.elc
40.27
KB
-rw-r--r--
help-at-pt.elc
11.15
KB
-rw-r--r--
help-fns.elc
45.35
KB
-rw-r--r--
help-macro.elc
4.25
KB
-rw-r--r--
help-mode.elc
23.89
KB
-rw-r--r--
help.elc
52.22
KB
-rw-r--r--
hex-util.elc
1.3
KB
-rw-r--r--
hexl.elc
35.39
KB
-rw-r--r--
hfy-cmap.elc
25.45
KB
-rw-r--r--
hi-lock.elc
29.38
KB
-rw-r--r--
hilit-chg.elc
28.77
KB
-rw-r--r--
hippie-exp.elc
21.52
KB
-rw-r--r--
hl-line.elc
11.23
KB
-rw-r--r--
htmlfontify-loaddefs.el
808
B
-rw-r--r--
htmlfontify.elc
67.51
KB
-rw-r--r--
ibuf-ext.elc
77.15
KB
-rw-r--r--
ibuf-macs.elc
12.47
KB
-rw-r--r--
ibuffer-loaddefs.el
12.68
KB
-rw-r--r--
ibuffer.elc
98.62
KB
-rw-r--r--
icomplete.elc
22.83
KB
-rw-r--r--
ido.elc
127.92
KB
-rw-r--r--
ielm.elc
19.2
KB
-rw-r--r--
iimage.elc
4.92
KB
-rw-r--r--
image-dired.elc
92.97
KB
-rw-r--r--
image-file.elc
6.53
KB
-rw-r--r--
image-mode.elc
42.56
KB
-rw-r--r--
image.elc
34.45
KB
-rw-r--r--
imenu.elc
24.94
KB
-rw-r--r--
indent.elc
23.63
KB
-rw-r--r--
info-look.elc
28.18
KB
-rw-r--r--
info-xref.elc
16.59
KB
-rw-r--r--
info.elc
144.48
KB
-rw-r--r--
informat.elc
9.73
KB
-rw-r--r--
isearch.elc
147.85
KB
-rw-r--r--
isearchb.elc
4.73
KB
-rw-r--r--
jit-lock.elc
23.49
KB
-rw-r--r--
jka-cmpr-hook.elc
13.07
KB
-rw-r--r--
jka-compr.elc
12.09
KB
-rw-r--r--
json.elc
22.76
KB
-rw-r--r--
jsonrpc.elc
31.65
KB
-rw-r--r--
kermit.elc
2.92
KB
-rw-r--r--
kmacro.elc
35.15
KB
-rw-r--r--
ldefs-boot.el
1.41
MB
-rw-r--r--
linum.elc
10.77
KB
-rw-r--r--
loaddefs.el
1.41
MB
-rw-r--r--
loadhist.elc
9.77
KB
-rw-r--r--
loadup.el
20.08
KB
-rw-r--r--
locate.elc
19.57
KB
-rw-r--r--
lpr.elc
9.44
KB
-rw-r--r--
ls-lisp.elc
22.7
KB
-rw-r--r--
macros.elc
7.23
KB
-rw-r--r--
makesum.elc
2.47
KB
-rw-r--r--
man.elc
53.85
KB
-rw-r--r--
master.elc
4.58
KB
-rw-r--r--
mb-depth.elc
3.56
KB
-rw-r--r--
md4.elc
8.12
KB
-rw-r--r--
menu-bar.elc
86.61
KB
-rw-r--r--
midnight.elc
10.22
KB
-rw-r--r--
minibuf-eldef.elc
6.43
KB
-rw-r--r--
minibuffer.elc
104.08
KB
-rw-r--r--
misc.elc
5.4
KB
-rw-r--r--
misearch.elc
12.37
KB
-rw-r--r--
mouse-copy.elc
3.61
KB
-rw-r--r--
mouse-drag.elc
6.43
KB
-rw-r--r--
mouse.elc
71.3
KB
-rw-r--r--
mpc.elc
79.29
KB
-rw-r--r--
msb.elc
26.76
KB
-rw-r--r--
mwheel.elc
12.83
KB
-rw-r--r--
newcomment.elc
39.43
KB
-rw-r--r--
notifications.elc
13.78
KB
-rw-r--r--
novice.elc
4.43
KB
-rw-r--r--
obarray.elc
1.71
KB
-rw-r--r--
outline.elc
37.04
KB
-rw-r--r--
paren.elc
8.69
KB
-rw-r--r--
password-cache.elc
3.57
KB
-rw-r--r--
pcmpl-cvs.elc
6.17
KB
-rw-r--r--
pcmpl-gnu.elc
12.96
KB
-rw-r--r--
pcmpl-linux.elc
3.09
KB
-rw-r--r--
pcmpl-rpm.elc
11.17
KB
-rw-r--r--
pcmpl-unix.elc
7.52
KB
-rw-r--r--
pcmpl-x.elc
8.95
KB
-rw-r--r--
pcomplete.elc
36.16
KB
-rw-r--r--
pixel-scroll.elc
10.82
KB
-rw-r--r--
plstore.elc
14.75
KB
-rw-r--r--
printing.elc
157.7
KB
-rw-r--r--
proced.elc
62.85
KB
-rw-r--r--
profiler.elc
42.81
KB
-rw-r--r--
ps-bdf.elc
12.69
KB
-rw-r--r--
ps-def.elc
2.23
KB
-rw-r--r--
ps-mule.elc
34.89
KB
-rw-r--r--
ps-print-loaddefs.el
2.6
KB
-rw-r--r--
ps-print.elc
141.17
KB
-rw-r--r--
ps-samp.elc
5.26
KB
-rw-r--r--
recentf.elc
48.73
KB
-rw-r--r--
rect.elc
26.88
KB
-rw-r--r--
register.elc
27.63
KB
-rw-r--r--
registry.elc
10.41
KB
-rw-r--r--
repeat.elc
5.14
KB
-rw-r--r--
replace.elc
84.62
KB
-rw-r--r--
reposition.elc
2.66
KB
-rw-r--r--
reveal.elc
7.16
KB
-rw-r--r--
rfn-eshadow.elc
7.23
KB
-rw-r--r--
rot13.elc
2.56
KB
-rw-r--r--
rtree.elc
4.09
KB
-rw-r--r--
ruler-mode.elc
21.87
KB
-rw-r--r--
savehist.elc
10.83
KB
-rw-r--r--
saveplace.elc
11.87
KB
-rw-r--r--
sb-image.elc
2.75
KB
-rw-r--r--
scroll-all.elc
4.41
KB
-rw-r--r--
scroll-bar.elc
16.68
KB
-rw-r--r--
scroll-lock.elc
5.41
KB
-rw-r--r--
select.elc
18.75
KB
-rw-r--r--
server.elc
47.56
KB
-rw-r--r--
ses.elc
131.12
KB
-rw-r--r--
shadowfile.elc
31.16
KB
-rw-r--r--
shell.elc
41.53
KB
-rw-r--r--
simple.elc
301.78
KB
-rw-r--r--
skeleton.elc
15.76
KB
-rw-r--r--
so-long.elc
47.15
KB
-rw-r--r--
sort.elc
15.49
KB
-rw-r--r--
soundex.elc
1.14
KB
-rw-r--r--
speedbar.elc
115.02
KB
-rw-r--r--
startup.elc
68.51
KB
-rw-r--r--
strokes.elc
44.03
KB
-rw-r--r--
subdirs.el
450
B
-rw-r--r--
subr.elc
186.63
KB
-rw-r--r--
svg.elc
12.71
KB
-rw-r--r--
t-mouse.elc
3.8
KB
-rw-r--r--
tab-bar.elc
52.48
KB
-rw-r--r--
tab-line.elc
29.85
KB
-rw-r--r--
tabify.elc
2.17
KB
-rw-r--r--
talk.elc
2.99
KB
-rw-r--r--
tar-mode.elc
57.2
KB
-rw-r--r--
tempo.elc
19.18
KB
-rw-r--r--
term.elc
107.99
KB
-rw-r--r--
thingatpt.elc
16.88
KB
-rw-r--r--
thread.elc
8.08
KB
-rw-r--r--
thumbs.elc
25.74
KB
-rw-r--r--
time-stamp.elc
18.69
KB
-rw-r--r--
time.elc
20.87
KB
-rw-r--r--
timezone.elc
10.94
KB
-rw-r--r--
tmm.elc
13.39
KB
-rw-r--r--
tool-bar.elc
9.76
KB
-rw-r--r--
tooltip.elc
13.19
KB
-rw-r--r--
tree-widget.elc
19.84
KB
-rw-r--r--
tutorial.elc
22.28
KB
-rw-r--r--
type-break.elc
37.35
KB
-rw-r--r--
uniquify.elc
17.68
KB
-rw-r--r--
userlock.elc
6.33
KB
-rw-r--r--
vcursor.elc
23.92
KB
-rw-r--r--
version.elc
6.01
KB
-rw-r--r--
view.elc
34.69
KB
-rw-r--r--
vt-control.elc
1.99
KB
-rw-r--r--
vt100-led.elc
1.33
KB
-rw-r--r--
w32-fns.elc
11.01
KB
-rw-r--r--
w32-vars.elc
5.16
KB
-rw-r--r--
wdired.elc
23.52
KB
-rw-r--r--
whitespace.elc
69.06
KB
-rw-r--r--
wid-browse.elc
8.48
KB
-rw-r--r--
wid-edit.elc
99.52
KB
-rw-r--r--
widget.elc
1.4
KB
-rw-r--r--
windmove.elc
19.82
KB
-rw-r--r--
window.elc
294.5
KB
-rw-r--r--
winner.elc
12.04
KB
-rw-r--r--
woman.elc
109.43
KB
-rw-r--r--
x-dnd.elc
19.56
KB
-rw-r--r--
xdg.elc
10.14
KB
-rw-r--r--
xml.elc
25.31
KB
-rw-r--r--
xt-mouse.elc
14.1
KB
-rw-r--r--
xwidget.elc
18.9
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : rect.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'rectangle nil "Operations on rectangles." :version "25.1" :group 'editing) #@578 Call FUNCTION for each line of rectangle with corners at START, END. If COERCE-TABS is non-nil, convert multi-column characters that span the starting or ending columns on any line to multiple spaces before calling FUNCTION. FUNCTION is called with three arguments: position of start of segment of this line within the rectangle, number of columns that belong to rectangle but are before that position, number of columns that belong to rectangle but are after point. Point is at the end of the segment of this line within the rectangle. (fn FUNCTION START END COERCE-TABS) (defalias 'operate-on-rectangle #[1028 "\300\301\302\303\304\305 \"\306\"\307\310%#\207" [apply-on-rectangle make-byte-code 514 "\302\211\211\303\301\"\210iZ\262`\262\303\301\"\210\301\204\" iV\203\" \304u\210iZ\262\305W\2035 \211\\\262\305\262\300#\207" vconcat vector [nil move-to-column -1 0] 9 "\n\n(fn STARTCOL ENDCOL)"] 12 (#$ . 507)]) #@57 (POS . COL) to override the column to use for the mark. (defvar rectangle--mark-crutches nil (#$ . 1452)) (make-variable-buffer-local 'rectangle--mark-crutches) #@35 (fn START END &optional WINDOW) (defalias 'rectangle--pos-cols #[770 "\212\301\302\"@=\203< \211A@=\203 A\202$ \203 \303b\210i=\2034 ^]B\2027 B\266\202\202\261 @=\203b @=\203R AAB\202\261 \203X \303b\210iAB\202\261 \211\203l \304\303\302\303#\210@=\203\221 Ab\210i=\203\211 ^]B\202\214 B\266\202\202\261 @=\203\242 b\210iAB\202\261 \203\250 \303b\210ib\210iB\262)\207" [rectangle--mark-crutches window-parameter rectangle--point-crutches nil set-window-parameter] 9 (#$ . 1619)]) #@17 (fn COL KIND) (defalias 'rectangle--col-pos #[514 "\301!\211U\203, l\204, \302=\203\" \303\304\305\"\205K \306\304\305\304#\202K \205K \304\211\202K \211V\2035 \307u\210\302=\203F \306\304\305`B#\202K `B\211\207" [rectangle--mark-crutches move-to-column point window-parameter nil rectangle--point-crutches set-window-parameter -1] 8 (#$ . 2157)]) #@12 (fn POS) (defalias 'rectangle--point-col #[257 "\300\301\302\"@=\203 \211A\202 b\210i\207" [window-parameter nil rectangle--point-crutches] 4 (#$ . 2524)]) (defalias 'rectangle--crutches #[0 "\301\302\303\"B\207" [rectangle--mark-crutches window-parameter nil rectangle--point-crutches] 4]) (defalias 'rectangle--reset-point-crutches #[0 "\300\301\302\"\205\f \303\301\302\301#\207" [window-parameter nil rectangle--point-crutches set-window-parameter] 4]) (defalias 'rectangle--reset-crutches #[0 "\300\301!\210\302 \207" [kill-local-variable rectangle--mark-crutches rectangle--reset-point-crutches] 2]) #@339 Call FUNCTION for each line of rectangle with corners at START, END. FUNCTION is called with two arguments: the start and end columns of the rectangle, plus ARGS extra arguments. Point is at the beginning of line when the function is called. The final point after the last operation will be returned. (fn FUNCTION START END &rest ARGS) (defalias 'apply-on-rectangle #[899 "\212\300\"\211@Ab\210\301 b\210\302\303 !\304W\203\" \262\262b\210\305\n\n$\210`\262\306y\307U\203D n\203D `X\204% \266\205)\207" [rectangle--pos-cols line-beginning-position copy-marker line-end-position nil apply 1 0] 15 (#$ . 3145)]) #@174 Return cons of the column and line values of POSITION. POSITION specifies a position of the current buffer. The value returned has the form (COLUMN . LINE). (fn POSITION) (defalias 'rectangle-position-as-coordinates #[257 "\212\211b\210i\300 B\266\202)\207" [line-number-at-pos] 5 (#$ . 3784)]) #@324 Return non-nil if two rectangles intersect. POS1 and POS2 specify the positions of the upper-left corners of the first and second rectangles as conses of the form (COLUMN . LINE). SIZE1 and SIZE2 specify the dimensions of the first and second rectangles, as conses of the form (WIDTH . HEIGHT). (fn POS1 SIZE1 POS2 SIZE2) (defalias 'rectangle-intersect-p #[1028 "@A@A@A@A\\X\2066 \\X\2066 \\X\2066 \\X?\207" [] 14 (#$ . 4090)]) #@140 Return the dimensions of the rectangle with corners at START and END. The returned value has the form of (WIDTH . HEIGHT). (fn START END) (defalias 'rectangle-dimensions #[514 "\212\300\301!\301!Z!T\302\"\300A@Z!\211B\266\203)\207" [abs line-number-at-pos rectangle--pos-cols] 7 (#$ . 4555)]) #@29 (fn STARTCOL ENDCOL FILL) (defalias 'delete-rectangle-line #[771 "\300\203\n \301\202 \302\"U\205 `\300\302\"\210`|\207" [move-to-column t coerce] 7 (#$ . 4862)]) #@35 (fn STARTCOL ENDCOL LINES FILL) (defalias 'delete-extract-rectangle-line #[1028 "\300 \301\203\f \302\202 \303\"W\203! \304Z!AB\241\2023 `\262\301\302\"\210\305`\302#AB\241\207" [point-at-eol move-to-column t coerce spaces-string filter-buffer-substring] 10 (#$ . 5039)]) #@30 (fn STARTCOL ENDCOL LINES) (defalias 'extract-rectangle-line #[771 "\300\211\211\211\211\301!\210`\262iZ\262\301!\210`\262iZ\262`{\262\302W\2034 \\\262\302\262\302W\203= \302\262b\210\303\304\305#\203m i\212\306u\210i)Z\307\302\310` \311##\312!\307\211G`\nZ\\\"Q\266\202\202@ \302V\204y \302V\203\203 \312!\312!Q\262AB\241\207" [nil move-to-column 0 search-forward " " t -1 substring - 1 spaces-string] 16 (#$ . 5333)]) (defconst spaces-strings ["" " " " " " " " " " " " " " " " "]) #@40 Return a string with N spaces. (fn N) (defalias 'spaces-string #[257 "\211\301X\203\n H\207\302\303\"\207" [spaces-strings 8 make-string 32] 4 (#$ . 5890)]) #@383 Delete (don't save) text in the region-rectangle. The same range of columns is deleted in each line starting with the line where the region begins and ending with the line where the region ends. When called from a program the rectangle's corners are START and END. With a prefix (or a FILL) argument, also fill lines where nothing has to be deleted. (fn START END &optional FILL) (defalias 'delete-rectangle #[770 "\300\301$\207" [apply-on-rectangle delete-rectangle-line] 8 (#$ . 6058) "*r\nP"]) #@320 Delete the contents of the rectangle with corners at START and END. Return it as a list of strings, one for each line of the rectangle. When called from a program the rectangle's corners are START and END. With an optional FILL argument, also fill lines where nothing has to be deleted. (fn START END &optional FILL) (defalias 'delete-extract-rectangle #[770 "\300C\301\302%\210\211A\237\207" [nil apply-on-rectangle delete-extract-rectangle-line] 10 (#$ . 6567)]) #@153 Return the contents of the rectangle with corners at START and END. Return it as a list of strings, one for each line of the rectangle. (fn START END) (defalias 'extract-rectangle #[514 "\300C\301\302$\210\211A\237\207" [nil apply-on-rectangle extract-rectangle-line] 8 (#$ . 7046)]) #@167 Return the bounds of the rectangle with corners at START and END. Return it as a list of (START . END) positions, one for each line of the rectangle. (fn START END) (defalias 'extract-rectangle-bounds #[514 "\300C\301\302\303\304\305\306!\307\"\310\311%#\210\211\242\237\207" [nil apply-on-rectangle make-byte-code 514 "\301!\210\300`\301!\210`B\300\242B\240\207" vconcat vector [move-to-column] 6 "\n\n(fn STARTCOL ENDCOL)"] 10 (#$ . 7341)]) #@43 Rectangle for `yank-rectangle' to insert. (defvar killed-rectangle nil (#$ . 7797)) #@604 Delete the region-rectangle and save it as the last killed one. When called from a program the rectangle's corners are START and END. You might prefer to use `delete-extract-rectangle' from a program. With a prefix (or a FILL) argument, also fill lines where nothing has to be deleted. If the buffer is read-only, Emacs will beep and refrain from deleting the rectangle, but put it in `killed-rectangle' anyway. This means that you can use this command to copy text from a read-only buffer. (If the variable `kill-read-only-ok' is non-nil, then this won't even beep.) (fn START END &optional FILL) (defalias 'kill-rectangle #[770 "\3031 \304#\2110\207\210\305\306\"\n\203 \307\310!\210\311\207\312 \210\313\314pC\"\207" [killed-rectangle deactivate-mark kill-read-only-ok (buffer-read-only text-read-only) delete-extract-rectangle t extract-rectangle message "Read only text copied to `killed-rectangle'" nil barf-if-buffer-read-only signal text-read-only] 7 (#$ . 7888) "r\nP"]) #@79 Copy the region-rectangle and save it as the last killed one. (fn START END) (defalias 'copy-rectangle-as-kill #[514 "\302\"\303\304\305!\205 \306@G!\207" [killed-rectangle deactivate-mark extract-rectangle t called-interactively-p interactive indicate-copied-region] 5 (#$ . 8889) "r"]) #@65 Yank the last killed rectangle with upper left corner at point. (defalias 'yank-rectangle #[0 "\301!\207" [killed-rectangle insert-rectangle] 2 (#$ . 9190) "*"]) #@324 Insert text of RECTANGLE with upper left corner at point. RECTANGLE's first line is inserted at point, its second line is inserted at a point vertically under point, etc. RECTANGLE should be a list of strings. After this command, the mark is at the upper left corner and point is at the lower right corner. (fn RECTANGLE) (defalias 'insert-rectangle #[257 "\211i\300\301 \210\205, \211\204 \302y\210n\204 \303c\210\304\300\"\210\305\262\306@!\210A\262\202 \207" [t push-mark 1 10 move-to-column nil insert-for-yank] 7 (#$ . 9360)]) #@391 Blank out the region-rectangle, shifting text right. The text previously in the region is not overwritten by the blanks, but instead winds up to the right of the rectangle. When called from a program the rectangle's corners are START and END. With a prefix (or a FILL) argument, fill with blanks even if there is no text on the right side of the rectangle. (fn START END &optional FILL) (defalias 'open-rectangle #[770 "\300\301$\210b\207" [apply-on-rectangle open-rectangle-line] 8 (#$ . 9909) "*r\nP"]) #@29 (fn STARTCOL ENDCOL FILL) (defalias 'open-rectangle-line #[771 "\300\203\n \301\202 \302\"U\205 \211?\205 `\303 U?\205 j\207" [move-to-column t coerce point-at-eol] 6 (#$ . 10427)]) #@29 (fn STARTCOL ENDCOL FILL) (defalias 'delete-whitespace-rectangle-line #[771 "\300\203\n \301\202 \302\"U\205\" `\303 U?\205\" `\304\305\303 \"\210`|\207" [move-to-column t coerce point-at-eol skip-syntax-forward " "] 7 (#$ . 10625)]) (defalias 'close-rectangle 'delete-whitespace-rectangle) #@435 Delete all whitespace following a specified column in each line. The left edge of the rectangle specifies the position in each line at which whitespace deletion should begin. On each line in the rectangle, all contiguous whitespace starting at that column is deleted. When called from a program the rectangle's corners are START and END. With a prefix (or a FILL) argument, also fill too short lines. (fn START END &optional FILL) (defalias 'delete-whitespace-rectangle #[770 "\300\301$\207" [apply-on-rectangle delete-whitespace-rectangle-line] 8 (#$ . 10929) "*r\nP"]) (defvar string-rectangle-history nil) #@38 (fn STARTCOL ENDCOL STRING DELETE) (defalias 'string-rectangle-line #[1028 "\300\301\"\210\211\203 \302\303#\210c\207" [move-to-column t delete-rectangle-line nil] 8 (#$ . 11550)]) (defvar rectangle--string-preview-state nil nil) (make-variable-buffer-local 'rectangle--string-preview-state) (defvar rectangle--string-preview-window nil nil) (make-variable-buffer-local 'rectangle--string-preview-window) (defalias 'rectangle--string-flush-preview #[0 "\301\302\303\233\"\210AA\304\241\207" [rectangle--string-preview-state mapc delete-overlay 3 nil] 4]) (defalias 'rectangle--string-erase-preview #[0 "\301!r\302\303\304\305\306!\307\"\310$\216\311@\312\"\210\313 *\207" [rectangle--string-preview-window internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord rectangle--string-flush-preview] 7]) #@12 (fn COL) (defalias 'rectangle--space-to #[257 "\300\301\302\303\304E#\207" [propertize " " display space :align-to] 7 (#$ . 12461)]) (byte-code "\300\301\302\303\304\305%\210\306\301\307\310\311DD\312\304\305\313\314&\207" [custom-declare-face rectangle-preview ((t :inherit region)) "The face to use for the `string-rectangle' preview." :version "25.1" custom-declare-variable funcall function #[0 "\300\207" [t] 1] "If non-nil, `string-rectangle' will show an on-the-fly preview." :type boolean] 8) (defalias 'rectangle--string-preview #[0 "\205V \303 C\211\242\203 \211\304\242\305\300#\240\210\306 !r\307\310\311\312\313!\314\"\315$\216\316@\317\"\210\n?\2065 \242\n@\232?\205Q \320 \210\321\307\322\323\312\313!\324\"\325\326%\nA@\315\n8#*\262\262\207" [rectangle-preview rectangle--string-preview-window rectangle--string-preview-state minibuffer-contents propertize face internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord rectangle--string-flush-preview apply-on-rectangle 514 "\302!\211X\203 `\202 \303u\210i\262`\302!`\304\" AA\305 \233B\241\210W\2036 \306\307\310\n!#\210W\205B \311Z!U\203\\ \306\312\203V \300\242P\202X \300\242#\202l \306\313\300\242#\210\211\205l \306\312#\262\207" [rectangle--string-preview-state move-to-column -1 make-overlay 3 overlay-put before-string rectangle--space-to spaces-string after-string display] 13 "\n\n(fn STARTCOL ENDCOL)"] 9]) (defvar rectangle--inhibit-region-highlight nil) #@348 Replace rectangle contents with STRING on each line. The length of STRING need not be the same as the rectangle width. When called interactively and option `rectangle-preview' is non-nil, display the result as the user enters the string into the minibuffer. Called from a program, takes three args; START, END and STRING. (fn START END STRING) (defalias 'string-rectangle #[771 "\301=\204\n `B\302\303\301%b\207" [buffer-undo-list t apply-on-rectangle string-rectangle-line] 9 (#$ . 14037) (byte-code "\303\300!\210\303\301!\210p\304 =\205 \305 \306 \307 \310E\311\312 \210\313\314\315\316\317 !\320\"\321$\310C\211\313\314\322\316\317\"\323\"\324$\240\210\313\314\325\316\317!\326\"\324$\216\327\330\242\"\210\331\332\333\n@\206\\ \334\"\310\302\n@\335%)\266\202E*\207" [rectangle--string-preview-state rectangle--inhibit-region-highlight string-rectangle-history make-local-variable window-buffer selected-window region-beginning region-end nil t barf-if-buffer-read-only make-byte-code 0 "\300\302\303\304\305\306$\210\302\307\310\305\306$\207" vconcat vector [rectangle--string-preview-window add-hook minibuffer-exit-hook rectangle--string-erase-preview nil t post-command-hook rectangle--string-preview] 5 "\302\303\301\242\"\210\300 \207" [remove-hook minibuffer-setup-hook] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook read-string format "String rectangle (default %s): " "" inherit-input-method] 16)]) (defalias 'replace-rectangle 'string-rectangle) #@293 Insert STRING on each line of region-rectangle, shifting text right. When called from a program, the rectangle's corners are START and END. The left edge of the rectangle specifies the column for insertion. This command does not delete or overwrite any existing text. (fn START END STRING) (defalias 'string-insert-rectangle #[771 "\300\301\302%\207" [apply-on-rectangle string-rectangle-line nil] 9 (#$ . 15577) (byte-code "\301 \210\302 \303 \304\305\306@\206 \307\"\310\300@$E\207" [string-rectangle-history barf-if-buffer-read-only region-beginning region-end read-string format "String insert rectangle (default %s): " "" nil] 7)]) #@300 Blank out the region-rectangle. The text previously in the region is overwritten with blanks. When called from a program the rectangle's corners are START and END. With a prefix (or a FILL) argument, also fill with blanks the parts of the rectangle which were empty. (fn START END &optional FILL) (defalias 'clear-rectangle #[770 "\300\301$\207" [apply-on-rectangle clear-rectangle-line] 8 (#$ . 16229) "*r\nP"]) #@29 (fn STARTCOL ENDCOL FILL) (defalias 'clear-rectangle-line #[771 "\300 \301\203\f \302\202 \303\"U\2059 \204( \212\211b\210i)X\203( `|\2029 `\262\301\302\"\210i\262\211`|\210j\207" [point-at-eol move-to-column t coerce] 7 (#$ . 16653)]) #@32 (fn START END FORMAT-STRING) (defalias 'rectangle-number-line-callback #[771 "\301\302\"\210\303\"c\210T\211\207" [rectangle-number-line-counter move-to-column t format] 6 (#$ . 16908)]) #@27 (fn START END START-AT) (defalias 'rectangle--default-line-number-format #[771 "\300\301\211\302\"\\!G!\303Q\207" ["%" int-to-string count-lines "d "] 9 (#$ . 17108)]) #@341 Insert numbers in front of the region-rectangle. START-AT, if non-nil, should be a number from which to begin counting. FORMAT, if non-nil, should be a format string to pass to `format' along with the line count. When called interactively with a prefix argument, prompt for START-AT and FORMAT. (fn START END START-AT &optional FORMAT) (defalias 'rectangle-number-lines #[1027 "\211\204 \301#\262\302\303$)\207" [rectangle-number-line-counter rectangle--default-line-number-format apply-on-rectangle rectangle-number-line-callback] 9 (#$ . 17290) (byte-code "\203 \301 \302 \303\304\305\"\306\307\310#\"F\207\301 \302 \305\311F\207" [current-prefix-arg region-beginning region-end read-number "Number to count from: " 1 read-string "Format string: " rectangle--default-line-number-format nil] 12)]) (byte-code "\300\301\302\303B\304\305$\210\300\301\306\307B\310\305$\210\300\301\311\312B\313\305$\210\300\301\314\315B\316\305$\207" [advice--add-function :around #[0 "\300\301!\207" [default-value redisplay-highlight-region-function] 2] #[257 "\300\301\"\207" [set-default redisplay-highlight-region-function] 4 "\n\n(fn GV--VAL)"] rectangle--highlight-for-redisplay nil #[0 "\300\301!\207" [default-value redisplay-unhighlight-region-function] 2] #[257 "\300\301\"\207" [set-default redisplay-unhighlight-region-function] 4 "\n\n(fn GV--VAL)"] rectangle--unhighlight-for-redisplay #[0 "\300\301!\207" [default-value region-extract-function] 2] #[257 "\300\301\"\207" [set-default region-extract-function] 4 "\n\n(fn GV--VAL)"] rectangle--extract-region #[0 "\300\301!\207" [default-value region-insert-function] 2] #[257 "\300\301\"\207" [set-default region-insert-function] 4 "\n\n(fn GV--VAL)"] rectangle--insert-region] 5) #@49 Keymap used while marking a rectangular region. (defvar rectangle-mark-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\310\211\2031 \211@\301\311\312\"\313\314\315\"!#\210A\266\202\202 \210\211\207" [make-sparse-keymap define-key [15] open-rectangle [20] string-rectangle [remap exchange-point-and-mark] rectangle-exchange-point-and-mark (right-char left-char forward-char backward-char next-line previous-line) vector remap intern format "rectangle-%s"] 10) (#$ . 19053)) #@107 Non-nil if Rectangle-Mark mode is enabled. Use the command `rectangle-mark-mode' to change this variable. (defvar rectangle-mark-mode nil (#$ . 19572)) (make-variable-buffer-local 'rectangle-mark-mode) #@380 Toggle the region as rectangular. If called interactively, enable Rectangle-Mark mode if ARG is positive, and disable it if ARG is zero or negative. If called from Lisp, also enable the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'; disable the mode otherwise. Activates the region if needed. Only lasts until the region is deactivated. (fn &optional ARG) (defalias 'rectangle-mark-mode #[256 "\301 \302=\203 ?\202 \303!\304V\305 \210\203. \306\307\310\"\210\311 \204. \312`\313\211#\210\314\315!\210\316\317\2038 \320\2029 \321\"\210\322\323!\203] \301 \203M \211\301 \232\203] \324\314\325\203X \326\202Y \327#\266\210\330 \210\207" [rectangle-mark-mode current-message toggle prefix-numeric-value 0 rectangle--reset-crutches add-hook deactivate-mark-hook #[0 "\300\301!\207" [rectangle-mark-mode -1] 2] region-active-p push-mark t message "Mark set (rectangle mode)" run-hooks rectangle-mark-mode-hook rectangle-mark-mode-on-hook rectangle-mark-mode-off-hook called-interactively-p any " in current buffer" "Rectangle-Mark mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 19781) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) (defvar rectangle-mark-mode-hook nil) (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [rectangle-mark-mode-map rectangle-mark-mode-hook variable-documentation put "Hook run after entering or leaving `rectangle-mark-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode rectangle-mark-mode nil boundp] 6) #@96 Like `exchange-point-and-mark' but cycles through the rectangle's corners. (fn &optional ARG) (defalias 'rectangle-exchange-point-and-mark #[256 "\211\203\n \302\211!\207` =\303 W\211\203 \304\"\202\" \304\"\203+ \211@\202- \211A\2036 A\2028 @\203> \302\305 \210b\210\306\203O \202P \303\"\210\307`!\210b\210\306\203d \202e \310\"\207" [this-command last-command exchange-point-and-mark mark rectangle--pos-cols rectangle--reset-crutches rectangle--col-pos set-mark point] 12 (#$ . 21421) "P"]) #@34 (fn CMD N &optional OTHER-CMD) (defalias 'rectangle--*-char #[770 "\300W\203\f \301[\"\207\302`!\303\300V\203\341 \304 \305 i\3061S \3071I \212!\210`V\2034 \211S\202C `W\203B T\\\202C i)00\202V 0\210T\\\202V \210\211S\310Z!W\203\216 W\203\216 Z\211\nX\203\200 Z\262\n\262\202\212 \nZ\262\300\262\n\210\202\332 \300W\203\240 \311 \210\300\262 \300\262\202\332 U\203\256 \303!\210\202\332 \211 X\203\301 Z\262 \262\202\332 W\203\320 \\\202\325 Z\262\300\262 T\266\206\202 \312\313\"\207" [0 rectangle--*-char rectangle--point-col 1 line-beginning-position line-end-position (beginning-of-buffer) (end-of-buffer) abs ding rectangle--col-pos point] 13 (#$ . 21950)]) #@83 Like `right-char' but steps into wide chars and moves past EOL. (fn &optional N) (defalias 'rectangle-right-char #[256 "\300\301\302#\207" [rectangle--*-char right-char left-char] 5 (#$ . 22684) "p"]) #@82 Like `left-char' but steps into wide chars and moves past EOL. (fn &optional N) (defalias 'rectangle-left-char #[256 "\300\301\302#\207" [rectangle--*-char left-char right-char] 5 (#$ . 22893) "p"]) #@85 Like `forward-char' but steps into wide chars and moves past EOL. (fn &optional N) (defalias 'rectangle-forward-char #[256 "\300\301\302#\207" [rectangle--*-char forward-char backward-char] 5 (#$ . 23100) "p"]) #@86 Like `backward-char' but steps into wide chars and moves past EOL. (fn &optional N) (defalias 'rectangle-backward-char #[256 "\300\301\302#\207" [rectangle--*-char backward-char forward-char] 5 (#$ . 23319) "p"]) #@110 Like `next-line' but steps into wide chars and moves past EOL. Ignores `line-move-visual'. (fn &optional N) (defalias 'rectangle-next-line #[256 "\300`!y\210\301\302\"\207" [rectangle--point-col rectangle--col-pos point] 5 (#$ . 23541) "p"]) #@114 Like `previous-line' but steps into wide chars and moves past EOL. Ignores `line-move-visual'. (fn &optional N) (defalias 'rectangle-previous-line #[256 "\300`![y\210\301\302\"\207" [rectangle--point-col rectangle--col-pos point] 5 (#$ . 23793) "p"]) #@30 (fn ORIG &optional DELETE) (defalias 'rectangle--extract-region #[513 "\204 !\207\211\302=\203 \303\304 \305 \"\207\211\203 \306\202 \307\304 \305 \"\310\311\312# \313=\2030 \314\205C \315\316G\317\320\321BB%\210\211\207" [rectangle-mark-mode last-command bounds extract-rectangle-bounds region-beginning region-end delete-extract-rectangle extract-rectangle mapconcat identity "\n" kill-region kill-region-dont-append put-text-property 0 yank-handler rectangle--insert-for-yank (t)] 11 (#$ . 24053)]) #@21 (fn ORIG STRINGS) (defalias 'rectangle--insert-region #[514 "\204 !\207\301!\207" [rectangle-mark-mode insert-rectangle] 4 (#$ . 24577)]) #@13 (fn STRS) (defalias 'rectangle--insert-for-yank #[257 "`B\211\302!\210\303\304\305\306\307!\310\"\311\312%\211\207" [buffer-undo-list yank-undo-function insert-rectangle make-byte-code 514 "\302 \210\300\303\240\210 \300A=?\205 \304\305!\210\202 \207" vconcat vector [pending-undo-list undo-start nil undo-more 1] 4 "\n\n(fn START END)"] 9 (#$ . 24728)]) #@25 (fn LEFTCOL LEFT STR) (defalias 'rectangle--place-cursor #[771 "\300\301\302\"@=\205 A=\205 \303\304\305\306\305%\207" [window-parameter nil rectangle--point-crutches put-text-property 0 1 cursor] 10 (#$ . 25098)]) #@34 (fn ORIG START END WINDOW ROL) (defalias 'rectangle--highlight-for-redisplay #[1285 "\204 $\207 \203 \n!\210\303\207\211\242\304=\203? \211A@\305 =\203? \3068=\203? \3078=\203? \310 \3118\232\203? \207\212\303C\242\304=\203O \312\233\202T \n!\210\303C\313!p=\204a \314\315!\210\316!r\317\320\321\322\323!\324\"\306$\216\325@\326\"\210\327\317\330\331\322\323\n #\332\"\333\334%#\210*\210\335\336\242\"\210\304\305 \310 \242BBBBB\266\202)\207" [rectangle-mark-mode rectangle--inhibit-region-highlight redisplay-unhighlight-region-function nil rectangle buffer-chars-modified-tick 2 3 rectangle--crutches 4 5 window-buffer cl--assertion-failed (eq (window-buffer window) (current-buffer)) internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] select-window norecord apply-on-rectangle 514 "\304!`\304!`\302\242\204# \305\"\306\307\300#\210\306\310\311#\210\211\262\2026 \302\242\302\211\242A\240\210\242\312p$\210\211\262W\203O \306\313\314\n!#\210]\262\202\210 V\203{ \206[ `Sf\315=\203{ S\262\312#\210b\210\306\313\314\n!#\210\202\210 \316\313\"\203\210 \306\313\317#\210 \203\234 \316\320\"\203$\306\320\317#\210\202$W\203\302 \314!\321\322G\310\311%\210\323#\210\306\320#\266\202$V\203\206\316 `Sf\315=\203S\262\312#\210U\203\357 \306\320\317#\210\202$b\210\314!\321\322G\310\311%\210U\203 \323#\210\306\320#\266\202$\316\320\"\203$\306\320\317#\210U\203@\324 \203@\306\320\325\326\310\327#\316\320\"P#\210\301\301\242B\240\207" [rectangle--string-preview-state move-to-column make-overlay overlay-put window face region move-overlay before-string rectangle--space-to 9 overlay-get nil after-string put-text-property 0 rectangle--place-cursor display-graphic-p propertize " " (region (:height 0.2))] 14 "\n\n(fn LEFTCOL RIGHTCOL)" mapc delete-overlay] 17 (#$ . 25329)]) #@17 (fn ORIG ROL) (defalias 'rectangle--unhighlight-for-redisplay #[514 "\211\242\300=\204 !\207\301\302\303\233\"\210\211A\304\240\207" [rectangle mapc delete-overlay 5 nil] 6 (#$ . 27317)]) (provide 'rect)
Close
