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 : newcomment.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:36 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/newcomment.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 "`newcomment.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\311\312\313\314\315\316\317\320\321\322& \207" [defalias indent-for-comment comment-indent set-comment-column comment-set-column kill-comment comment-kill indent-new-comment-line comment-indent-new-line custom-declare-group comment nil "Indenting and filling of comments." :prefix "comment-" :version "21.1" :group fill] 10) #@287 Non-nil if syntax-tables can be used instead of regexps. Can also be `undecided' which means that a somewhat expensive test will be used to try to determine whether syntax-tables should be trusted to understand comments or not in the given buffer. Major modes should set this variable. (defvar comment-use-syntax 'undecided (#$ . 1022)) #@73 Column to use for `comment-indent'. If nil, use `fill-column' instead. (custom-declare-variable 'comment-fill-column 'nil '(#$ . 1365) :type '(choice (const nil) integer) :group 'comment) #@330 Column to indent right-margin comments to. Each mode may establish a different default value for this variable; you can set the value for a particular mode using that mode's hook. Comments might be indented to a different value in order not to go beyond `comment-fill-column' or in order to align them with surrounding comments. (custom-declare-variable 'comment-column '32 '(#$ . 1561) :type 'integer :group 'comment) (make-variable-buffer-local 'comment-column) #@72 *String to insert to start a new comment, or nil if no comment syntax. (defvar comment-start nil (#$ . -2031)) #@202 *Regexp to match the start of a comment plus everything up to its body. If there are any \(...\) pairs, the comment delimiter text is held to begin at the place matched by the close of the first pair. (defvar comment-start-skip nil (#$ . -2149)) #@70 Regexp to match the end of a comment plus everything up to its body. (defvar comment-end-skip nil (#$ . 2401)) #@110 *String to insert to end a new comment. Should be an empty string if comments are terminated by end-of-line. (defvar comment-end "" (#$ . -2519)) #@297 Function to compute desired indentation for a comment. This function is called with no args with point at the beginning of the comment's starting delimiter and should return either the desired column indentation or nil. If nil is returned, indentation is delegated to `indent-according-to-mode'. (defvar comment-indent-function 'comment-indent-default (#$ . 2672)) #@203 Function to insert a comment when a line doesn't contain one. The function has no args. Applicable at least in modes for languages like fixed-format Fortran where comments always start in column zero. (defvar comment-insert-comment-function nil (#$ . 3044)) #@292 Function to comment a region. Its args are the same as those of `comment-region', but BEG and END are guaranteed to be correctly ordered. It is called within `save-excursion'. Applicable at least in modes for languages like fixed-format Fortran where comments always start in column zero. (defvar comment-region-function 'comment-region-default (#$ . 3310)) #@296 Function to uncomment a region. Its args are the same as those of `uncomment-region', but BEG and END are guaranteed to be correctly ordered. It is called within `save-excursion'. Applicable at least in modes for languages like fixed-format Fortran where comments always start in column zero. (defvar uncomment-region-function 'uncomment-region-default (#$ . 3677)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list block-comment-start default-boundp set-default nil block-comment-end] 3) #@103 Non-nil if nested comments should be quoted. This should be locally set by each major mode if needed. (defvar comment-quote-nested t (#$ . 4246)) #@443 Continuation string to insert for multiline comments. This string will be added at the beginning of each line except the very first one when commenting a region with a commenting style that allows comments to span several lines. It should generally have the same length as `comment-start' in order to preserve indentation. If it is nil a value will be automatically derived from `comment-start' by replacing its first character with a space. (defvar comment-continue nil (#$ . 4399)) #@333 How many more comment chars should be inserted by `comment-region'. This determines the default value of the numeric argument of `comment-region'. The `plain' comment style doubles this value. This should generally stay 0, except for a few modes like Lisp where it is 1 so that regions are commented with two or three semi-colons. (defvar comment-add 0 (#$ . 4890)) #@646 Comment region styles of the form (STYLE . (MULTI ALIGN EXTRA INDENT)). STYLE should be a mnemonic symbol. MULTI specifies that comments are allowed to span multiple lines. ALIGN specifies that the `comment-end' markers should be aligned. EXTRA specifies that an extra line should be used before and after the region to comment (to put the `comment-end' and `comment-start'). INDENT specifies that the `comment-start' markers should not be put at the left margin but at the current indentation of the region to comment. If INDENT is `multi-char', that means indent multi-character comment starters, but not one-character comment starters. (defconst comment-styles '((plain nil nil nil nil) (indent nil nil nil t) (indent-or-triple nil nil nil multi-char) (aligned nil t nil t) (multi-line t nil nil t) (extra-line t nil t t) (box nil t t t) (box-multi t t t t)) (#$ . 5264)) #@93 Style to be used for `comment-region'. See `comment-styles' for a list of available styles. (custom-declare-variable 'comment-style ''indent '(#$ . 6151) :type (byte-code "\301\300!\203 \302\303\304\"B\207\305\207" [comment-styles boundp choice mapcar #[(s) "\301@D\207" [s const] 2] symbol] 4) :version "23.1" :group 'comment) #@316 Padding string that `comment-region' puts between comment chars and text. Can also be an integer which will be automatically turned into a string of the corresponding number of spaces. Extra spacing between the comment characters and the comment text makes the comment easier to read. Default is 1. nil means 0. (custom-declare-variable 'comment-padding '" " '(#$ . 6489) :type '(choice string integer (const nil)) :group 'comment) #@343 Non-nil means `comment-indent-new-line' continues comments. That is, it inserts no new terminator or starter. This affects `auto-fill-mode', which is the main reason to customize this variable. It also affects \[indent-new-comment-line]. However, if you want this behavior for explicit filling, you might as well use \[newline-and-indent]. (custom-declare-variable 'comment-multi-line 'nil '(#$ . 6931) :type 'boolean :group 'comment) #@221 If nil, `comment-region' does not comment out empty lines. If t, it always comments out empty lines. If `eol' it only comments out empty lines if comments are terminated by the end of line (i.e. `comment-end' is empty). (custom-declare-variable 'comment-empty-lines 'nil '(#$ . 7375) :type '(choice (const :tag "Never" nil) (const :tag "Always" t) (const :tag "EOl-terminated" 'eol)) :group 'comment) #@74 Strip STR of any leading (if BEFOREP) and/or trailing (if AFTERP) space. (defalias 'comment-string-strip #[(str beforep afterp) "\303\304\205 \305\306 \205 \307\310\260\n\"\210\311\312\n\"\207" [beforep afterp str string-match "\\`" "\\s-*" "\\(.*?\\)" "\\s-*\n?" "\\'" match-string 1] 6 (#$ . 7782)]) #@66 Return the mirror image of string S, without any trailing space. (defalias 'comment-string-reverse #[(s) "\302\303 \304\")\237\260\304\305#\207" [s string comment-string-strip append nil t] 4 (#$ . 8094)]) #@246 Check and setup the variables needed by other commenting functions. Functions autoloaded from newcomment.el, being entry points, should call this function before any other, so the rest of the code can assume that the variables are properly set. (defalias 'comment-normalize-vars #[(&optional noerror) "?\205 ?\205 \204' \306\307!\310\nG!\203 \311\312!\210\202& \313\300!\210\n) \314=\203g \313\303!\210\315 \f\316\230\203> \317\202? \f +\320\321! ,r,q\210\322\216\323+!\210\n\324 \261\210eb\210\325\326!\205d m.-\204o \327--\250\203| \330-\331\"-\204\236 \f\316\230\204\236 \313\332!\210\333\334\"\203\226 \335\202\227 \336\326\337OP \203\253 \333 \"\204\273 \313\340!\210\341\342\343\344\211#!\345Q &\205\305 \333&\f\"?\205 \f\316\230\203\323 \317\202\330 \343\f\344\211# \313\346!\210\347.\203\347 \316\202\350 \350\351\342 \327\326O!.\203\377 G\326X\203\377 \316\202 \350\342 \326\337O!\352\260\211&)\207" [comment-start noerror cs comment-use-syntax comment-end ce read-string "No comment syntax is defined. Use: " zerop error "No comment syntax defined" make-local-variable undecided syntax-table "" "\n" generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) set-syntax-table " hello " forward-comment 1 0 make-string 32 comment-continue string-match "\\S-\\S-" " " "|" nil comment-start-skip "\\(\\(^\\|[^\\\n]\\)\\(\\\\\\\\\\)*\\)\\(\\s<+\\|" regexp-quote comment-string-strip t "+\\)[ ]*" comment-end-skip "[ ]*\\(\\s>" "+" "\\|" "\\)" st #1# comment-padding comment-quote-nested] 9 (#$ . 8310)]) (defalias 'comment-quote-re #[(str unp) "\302\303\304O!\305 \203 \306\202 \307\302\304\310O!R\207" [str unp regexp-quote 0 1 "\\\\" "+" "*" nil] 7]) #@86 Quote or unquote nested comments. If UNP is non-nil, unquote nested comment markers. (defalias 'comment-quote-nested #[(cs ce unp) "\305\306\211#\305 \306\211#\n\205\207 G\307V\205\207 \310 \"\311\310 \"Q eb\210\312\f\313\306#\205\206 \307\224b\210\314u\210 \203? \315\314!\210\202B \316c\210 G\314U\203% \204` \317\307! \230\203% \320\321P\306\211#\210\202% e\307\224W\203% \307\224S\307\225S{\321P\230\203% \322u\210\315\307\225\307\224Z!\210 c\210\202% )\207" [cs ce comment-quote-nested unp re comment-string-strip t 0 comment-quote-re "\\|" re-search-forward nil 1 delete-char "\\" match-string replace-match "!" -2] 5 (#$ . 10087)]) #@315 Non-nil means that the global syntactic context is used. More specifically, it means that `syntax-ppss' is used to find out whether point is within a string or not. Major modes whose syntax is faithfully described by the syntax-tables can set this to non-nil so comment markers in strings will not confuse Emacs. (defvar comment-use-global-state nil (#$ . 10742)) #@234 Find a comment start between point and LIMIT. Moves point to inside the comment and returns the position of the comment-starter. If no comment is found, moves point to LIMIT and raises an error or returns nil if NOERROR is non-nil. (defalias 'comment-search-forward #[(limit &optional noerror) "\204 \306 \n #\203 \307\225\206 \310\224\207\nb\210 ?\205 \311\312!\207` \313\f\n\206) d\314\211 \2052 \315\f!\316& \3178\203d \3208\203d \204d \313\f\n\206P d\314\211\211\211\211\3208\314\211\211\211\257\316&\3178\203{ \3208\204{ \3178\fW\203\206 ?\205\310 \311\312!\202\310 `\3178\321 \314 \204\274 `Y\203\274 \322 !\203\266 \n\206\255 d\310\225^\211\202\230 \323u\210\202\226 \206\303 b\210,*\207" [comment-use-syntax comment-start-skip limit noerror pt comment-use-global-state re-search-forward 1 0 error "No comment" parse-partial-sexp nil syntax-ppss t 8 3 line-beginning-position looking-at -1 s end bol start pos] 14 (#$ . 11114)]) #@234 Find a comment start between LIMIT and point. Moves point to inside the comment and returns the position of the comment-starter. If no comment is found, moves point to LIMIT and raises an error or returns nil if NOERROR is non-nil. (defalias 'comment-search-backward #[(&optional limit noerror) "\306 \307#\204 \n?\205K \310\311!\207\312 \210\313\225\314 \307\" ` \f\204, \312 \210\315 \n\"\202J \fb\210\316 \210` W\203F \314 \307\"\211\203F `\202, b\210\f+\207" [comment-start-skip limit noerror end cs pt re-search-backward t error "No comment" beginning-of-line 0 comment-search-forward comment-search-backward comment-forward] 4 (#$ . 12104)]) #@151 Find the beginning of the enclosing comment. Returns nil if not inside a comment, else moves point and returns the same as `comment-search-backward'. (defalias 'comment-beginning #[nil "\303`\304\"\305=?\205X `\306\307\310\"\205W \212b\210\n\203# \311\n!\203> \303\312\225\304\"\313=\204> \303`\304\"\313=?\205K \314 Y\205K \315\316!\203J ` V\202K m)\203S \202W b\210\307*\207" [cs pt comment-end-skip get-text-property face font-lock-string-face comment-search-backward nil t looking-at 0 font-lock-comment-face line-end-position comment-forward 1] 4 (#$ . 12766)]) #@122 Skip forward over N comments. Just like `forward-comment' but only for positive N and can use regexps instead of syntax. (defalias 'comment-forward #[(&optional n) "\206 \304\211\305W\203 \306\307!\207 \203 \310!\207\305V\203C \310\304!\2048 \311\n!\203= \305\225b\203= \312 \313\314#\203= S\202> \315\211\202 \305U\207" [n comment-use-syntax comment-start-skip comment-end-skip 1 0 error "No comment-backward" forward-comment looking-at re-search-forward nil move -1] 5 (#$ . 13347)]) #@112 Move from the end of a comment to the end of its content. Point is assumed to be just at the end of a comment. (defalias 'comment-enter-backward #[nil "n\203 \301u\210\302\303!\207\212\214\304 `}\210eb\210\305\306P\307\310#*\203$ \311\224b\207d\304 Z\312X\204V \313\314\315`S!@\316\"!\204V \313\314\315`\317Z!@\320\"!\204V \321u\210\322\307f!\307x\210\302\303!\207\302\303!\207" [comment-end-skip -1 skip-syntax-backward " " line-beginning-position re-search-forward "\\'" nil t 0 1 zerop logand syntax-after 524288 2 262144 -2 string] 5 (#$ . 13851)]) #@40 Default for `comment-indent-function'. (defalias 'comment-indent-default #[nil "\302\303!\203 \304\225\204 i\305 U\204 \306\207i\305 U\203' \306V\205( \302\307!\205( \207" [comment-add comment-column looking-at "\\s<\\s<\\(\\s<\\)?" 1 current-indentation 0 "\\s<\\(\\S<\\|\\'\\)"] 2 (#$ . 14412)]) #@300 Choose the indentation to use for a right-hand-side comment. The criteria are (in this order): - try to keep the comment's text within `comment-fill-column'. - try to align with surrounding comments. - prefer INDENT (or `comment-column' if nil). Point is expected to be at the start of the comment. (defalias 'comment-choose-indent #[(&optional indent) "\204 i\n\206\f \212\306\210i)Z\\\306\212\307\306x\210iT) \211 \fW\203* \fX\2034 \212\310\311y!\203K \312\313 \314\"\211\203K b\210i) \203a X\203a \fY\203a \202\273 \212\310\315y!\203\264 \312\313 \314\"\211\203\264 b\210i\n\206| \212\306\210i)Z\\\212\307\306x\210iT) \211 \fY\203\255 X\203\255 \f]^\202\260 db\210*\202b )\f^]+\207" [indent comment-column comment-fill-column fill-column min other nil " " zerop -1 comment-search-forward line-end-position t 1 max omin omax] 5 (#$ . 14722)]) #@144 Indent this line's comment to `comment-column', or insert an empty comment. If CONTINUE is non-nil, use the `comment-continue' markers if any. (defalias 'comment-indent #[(&optional continue) "\306 \210\212\307 \210\310\311!) \203 \n\206 \203 \206 \f \203* \n\203* \312\2025 \2033 \2065 \204? \313\314!\210\307 \210\315 \316 \317\" \320\211 \203c \204c \202 \203\203 \310\321!\204| \310!!\203| \322\320x\323\245u\210\324 \202\242 \212\"j\210`Sf\325>\204\223 \326c\210` c\210\324 c\210) b\210\212# )\211 \204\277 \212\322\320x\210n)\204\277 \" \204\312 \327 \210\202\376 \212\322\320x\210n)\204\332 \330 ! \212\322\320x\210n\204\352 iT] )i U\204\376 `\322\320x\210`|\210 j\210 b\210 \320\211\223.\207" [empty continue comment-continue block-comment-start comment-start starter comment-normalize-vars beginning-of-line looking-at "[ ]*$" "" error "No comment syntax defined" line-end-position comment-search-forward t nil "[ \n ]" " " -2 point-marker (nil 10 9 32) 32 indent-according-to-mode comment-choose-indent block-comment-end comment-end ender eolpos begpos cpos indent comment-insert-comment-function comment-end-skip comment-column comment-indent-function] 4 (#$ . 15621) "*"]) #@297 Set the comment column based on point. With no ARG, set the comment column to the current column. With just minus as arg, kill any comment on this line. With any other arg, set comment column to indentation of the previous comment and then align or create a comment on this line at that column. (defalias 'comment-set-column #[(arg) "\302=\203\n \303\304!\207\203, \305 \210\212\306 \210\307 \210\306 \210\310\311 !b\210i\312\313 \"\210)\314 \207i\312\313 \"\207" [arg comment-column - comment-kill nil comment-normalize-vars beginning-of-line comment-search-backward comment-search-forward line-end-position message "Comment column set to %d" comment-indent] 3 (#$ . 16875) "P"]) #@120 Kill the first comment on this line, if any. With prefix ARG, kill comments on that many lines starting with this one. (defalias 'comment-kill #[(arg) "\304 \210\305!\306 \nW\205I \212\307 \210\310\311 \312\"\211\203: b\210\313\314!\210`\315 \210\316 n\2034 `S\2025 `\"\210\317 \210*\203B \320y\210 T\211\202\n *\207" [arg _ --dotimes-limit-- cs comment-normalize-vars prefix-numeric-value 0 beginning-of-line comment-search-forward line-end-position t skip-syntax-backward " " comment-forward kill-region indent-according-to-mode 1] 4 (#$ . 17568) "P"]) #@316 Construct a string composed of STR plus `comment-padding'. It also adds N copies of the last non-whitespace chars of STR. If STR already contains padding, the corresponding amount is ignored from `comment-padding'. N defaults to 0. If N is `re', a regexp is returned instead, that would match the string for any N. (defalias 'comment-padright #[(str &optional n) "\206 \306 ;\205s \307\230?\205s \310\311 \"\210\312\313 \" \306\313\224O \313\225\314O\n\306\225\313\225Z\nG^\314OP \2059 \310\315\f\"? 9\204\\ \205V \316 \313\225SH\"R\202r \317\320\307#\321! \205k \322\317\323\307#R,\207" [n str comment-padding comment-quote-nested comment-end multi 0 "" string-match "\\`\\s-*\\(.*?\\)\\s-*\\'" match-string 1 nil "\\`\\s-*\\S-\\s-*\\'" make-string mapconcat #[(c) "\301\302!!\303P\207" [c regexp-quote string "?"] 3] regexp-quote "+" #[(c) "\301\302!!\303P\207" [c regexp-quote string "?"] 3] rpad lpad s] 7 (#$ . 18138)]) #@319 Construct a string composed of `comment-padding' plus STR. It also adds N copies of the first non-whitespace chars of STR. If STR already contains padding, the corresponding amount is ignored from `comment-padding'. N defaults to 0. If N is `re', a regexp is returned instead, that would match the string for any N. (defalias 'comment-padleft #[(str &optional n) "\206 \306 ;\205i \307\230?\205i \310\311 \"\210 \306\225\312O\n\306\225\306\224Z\nG^\312O\313\306 \"P \306\225H \2058 \310\314\f\"? 9\204V \205P \315\"Q\202h \316 \205c \317\320!!\321P\317!Q,\207" [n str comment-padding comment-quote-nested comment-end multi 0 "" string-match "\\`\\s-*" nil match-string "\\`\\s-*\\S-\\s-*\\'" make-string "\\s-*" regexp-quote string "*" c pad s] 6 (#$ . 19097)]) #@136 Uncomment each line in the BEG .. END region. The numeric prefix ARG can specify a number of chars to remove from the comment markers. (defalias 'uncomment-region #[(beg end &optional arg) "\305 \210 V\203 \306\212 \f#*\207" [beg end comment-use-global-state uncomment-region-function arg comment-normalize-vars nil] 4 (#$ . 19891) "*r\nP"]) #@136 Uncomment each line in the BEG .. END region. The numeric prefix ARG can specify a number of chars to remove from the comment markers. (defalias 'uncomment-region-default #[(beg end &optional arg) "b\210\306 !\307\n!\f \310 \311\" /\3100\311\" 1/\205$ \312/\313Q 2\314 3` W\203\311\315 \316\"\2113\203\311`3b\210\317 \204K m\204K \320\321!\210`\314\211 4 5 6 7\21436}\2107b\210\322\323!\210`eZ\324U\203\210 \316\2114\203\210 \325\326!\203\210 dSf\327=\204\210 \330\314w\204\224 \331`e0G#\332V\203\240 \333ed\"\334V\203\240 \3165\212eb\210\3251!)\204\265 \325\3358!!\203\271 \336\225b\2102\203\313 \325\337/P!\203\313 \336\225b\210\n\204\326 e`|\210\202\363 \322\323!\210\340 [!\210o\204\363 \212eb\210\3259!)\204\363 e`|\210db\210\341 \2104\203dSf\327=\204` :\330\314x\342V\203:b\210)\325\343!\204In\203'o\204'\344u\210\n\2042`d|\210\202I\345\323!\210\340 !\210m\204I\325;!\204I`d|\210\3460<\316#\2102\203\302\347\f\206]0! =5\205j\350=\311\"\211 >\205u\351>\352Q ?eb\210?\203\235\353?\354 \316#\203\235\355\356\316\211\314\334\225\203\227\334\202\230\324%\210\202\240\314?\324y\210\3532\354 \316#\203\301\355\356\316\211\314\334\225\203\273\334\202\274\324%\210\202z+db\210-\202) . \314\211\223\207" [beg end arg numarg comment-continue ccs copy-marker prefix-numeric-value comment-padright re "^\\s-*?\\(" "\\)" nil comment-search-forward t comment-forward error "Can't find the comment end" skip-syntax-backward " " 1 looking-at "=\\{7\\}" 10 "=" - 7 count-lines 2 regexp-quote 0 "\\s-*\n\\s-*" delete-char comment-enter-backward -7 "\\(\n\\|\\s-\\)*\\'" -1 skip-syntax-forward comment-quote-nested comment-string-reverse comment-padleft "\\(" "\\)\\s-*$" re-search-forward line-end-position replace-match "" srei comment-start csre sre spt box-equal box ept ipt comment-padding comment-start-skip pos comment-end-skip comment-end cce erei ere] 7 (#$ . 20249)]) #@120 Make the leading and trailing extra lines. This is used for `extra-line' style (or `box' style if BLOCK is specified). (defalias 'comment-make-extra-lines #[(cs ce ccs cce min-indent max-indent &optional block) "\306 \204$ \307\n\310\211#\311\312\n\313 Q\"\203\302 \314\315\225\315\224\306\224#\306]\202\302 \f Z \316Q \316\nQ \311\317 \"\203F \306\225SH\202] \320\232\203\\ \311\321 \"\203\\ \306\225SH\202] \322 \323 \311 \" G !\324\314\306\225\306\224!\325$\\ \" \"\326\"\310\211$\311# \"\204\260 \311\316\"\203\260 \316 \324!Z \"\"\326\"\310\211$\311 \"\210\326\"\310\211 $. \313\324 \327\"R\313\324 \\\327\"\nR)B\207" [eindent block ce cs max-indent min-indent 0 comment-string-strip t string-match "\\(.+\\).*\n\\(.*?\\)\\1" "\n" - 2 "a=m" ".*\\S-\\S-" "" ".*\\S-" 61 "\\s-*a=m\\s-*" make-string 3 replace-match 32 width cce s ccs e comment-end c re _ lcs fill comment-start-skip] 7 (#$ . 22182)])(if macro-declaration-function (funcall macro-declaration-function (quote comment-with-narrowing) (quote (declare (debug t) (indent 2))))) #@156 Execute BODY with BEG..END narrowing. Space is added (and then removed) at the beginning for the text's indentation to be kept as it was before narrowing. (defalias 'comment-with-narrowing '(macro . #[(beg end &rest body) "\304\305!\306\307\310 D\311BBDC\312\313 \nE\314\315\316\317BBD\320\321 B\307\322\323\324\306\325\326\327EDC\330\331\332\333BBEFE\334\306\335\336\337\340\341\342BB\343BB\306\325\326\344BBDC\345\346\331\332\347BBE\257EF\257E\257E)\207" [bindent beg end body make-symbol "bindent" let save-excursion goto-char ((current-column)) save-restriction narrow-to-region (goto-char (point-min)) insert make-string (32) prog1 progn (goto-char (point-min)) when (looking-at " *") n min (- (match-end 0) (match-beginning 0)) (delete-char n) setq - (n) (end-of-line) ((e (point))) (beginning-of-line) while and > (0) ((re-search-forward " *" e t)) ((- (match-end 0) (match-beginning 0) 1)) (goto-char (match-beginning 0)) (delete-char n) (n)] 26 (#$ . 23286)])) (defalias 'comment-add #[(arg) "\204 \303\304 \"\305U\203 \n\306\\\207\307!S\207" [arg comment-start comment-add string-match "[ ]*\\'" 1 0 prefix-numeric-value] 3]) #@567 Comment region BEG .. END. CS and CE are the comment start string and comment end string, respectively. CCS and CCE are the comment continuation strings for the start and end of lines, respectively (default to CS and CE). BLOCK indicates that end of lines should be marked with either CCE, CE or CS (if CE is empty) and that those markers should be aligned. LINES indicates that an extra lines will be used at the beginning and end of the region for CE and CS. INDENT indicates to put CS and CCS at the current indentation of the region rather than at left margin. (defalias 'comment-region-internal #[(beg end cs ce &optional ccs cce block lines indent) "\306=\206 \205 \307 G!?\310 ;\203 \311\230\203 \310 \f;\203. \f\311\230\203. \310 \2046 \310\211 \204D \204D !\203F \310 \203T \204T \312\"! \204[ \310 \204d \" \212#b\210\n\204w l\204w \313c\210\314 \210\212$b\210i) %\214$#}\210eb\210\315%\316\"c\210d\317 & 'eb\210\320()\310#\210eb\210\321\322!\204\262 '\323 ^'\310\210&i]&m\204\305 \310y\210\202\245 \324&\"G G]\212$b\210\325\326#\306#)\203\343 *S\202\344 \317#&+\204\357 \317'!\203 \327\" \f'& &\211 ,@\",A)eb\210 \203\321\322!\204B\330'\306\"\210\"c\210 \"\310\210m\2030 \f\203B \203?\330&\306\"\210\fc\210\310\210m\206M\310y\210\310?\205T\202*\212eb\210\321\331!\203v\317\225\317\224Z%^ -\332-!\210%-Z%)\310\210` .\333 \210%\317V\203\257\334\335.\306#\203\257%\336\317\225\317\224\337#^ -\317\224b\210\332-!\210%-Z%)\202.\207" [comment-empty-lines ce ce-sanitized no-empty cce ccs t zerop nil "" comment-string-reverse "\n" indent-according-to-mode make-string 32 0 comment-quote-nested looking-at "[ ]*$" current-indentation + search-forward " " comment-make-extra-lines move-to-column " *" delete-char beginning-of-line re-search-forward " *" - 1 block lines cs end beg #1=#:bindent max-indent min-indent comment-start comment-end tab-width indent csce n e] 9 (#$ . 24449)]) #@705 Comment or uncomment each line in the region. With just \[universal-argument] prefix arg, uncomment each line in region BEG .. END. Numeric prefix ARG means use ARG comment characters. If ARG is negative, delete that many comment characters instead. The strings used as comment starts are built from `comment-start' and `comment-padding'; the strings used as comment ends are built from `comment-end' and `comment-padding'. By default, the `comment-start' markers are inserted at the current indentation of the region, and comments are terminated on each line (even for syntaxes in which newline does not end the comment and blank lines do not get comments). This can be changed with `comment-style'. (defalias 'comment-region #[(beg end &optional arg) "\305 \210 V\203 \306 \n)\212 \f#)\207" [beg end mid comment-region-function arg comment-normalize-vars nil] 4 (#$ . 26444) "*r\nP"]) (defalias 'comment-region-default #[(beg end &optional arg) "\306!\307\n \"A \310\f8 \fA@ \"\f@ #$b\210\311\312w\210\313 \210$`]$%b\210\311\312x\210\312\210%`^%$%Y\203E \314\315!\210 \205\211 $b\210\313 \210\316\317!\210`$Y\205\211 %b\210\312\210\320\317!\210`%X\205\211 \"\204z &\321\230?\205\211 \"\206\211 $b\210\322\323%\324#\211\204\230 &\321\230\204\230 \312\":\203\246 \325$%\"\202f \326W\203\267 \325$% [#\202f\327\330'\"\331U?\312\211 ( ) \332\f8\333=\203\347 \212$b\210)?\205\341 \334\335!()\202\354 \332\f8)\204\204*(\203 \310\202\331_\202 \306!S\336$%\337' \" +\327,+\"\203%+\202)\337'!)\340& \"\211 +\205G\327-+\"\203C+\202G\337&!)#\205R\337. \"#\205^\340\341.! \"\" )& +-\207" [arg numarg comment-style comment-styles style lines prefix-numeric-value assoc 2 " \n " nil beginning-of-line error "Nothing to comment" skip-syntax-forward " " skip-syntax-backward "" search-forward "\n" t uncomment-region 0 string-match "[ ]*\\'" 1 3 multi-char looking-at " \\| " comment-region-internal comment-padright comment-padleft comment-string-reverse block multi beg end comment-end comment-start triple indent comment-add s comment-start-skip comment-end-skip comment-continue] 11]) #@210 Comment out the BEG .. END region, putting it inside a box. The numeric prefix ARG specifies how many characters to add to begin- and end- comment markers additionally to what `comment-add' already specifies. (defalias 'comment-box #[(beg end &optional arg) "\306 \210\307 \"\211A@)\203 \310\202 \311\312 \f \\#)\207" [comment-style comment-styles x beg end comment-add comment-normalize-vars assoc box-multi box comment-region arg] 6 (#$ . 28623) "*r\np"]) #@179 Call `comment-region', unless the region only consists of comments, in which case call `uncomment-region'. If a prefix arg is given, it is passed on to the respective function. (defalias 'comment-or-uncomment-region #[(beg end &optional arg) "\303 \210\212b\210\304d!\210 `X)\203 \305\202 \306 \n#\207" [beg end arg comment-normalize-vars comment-forward uncomment-region comment-region] 4 (#$ . 29095) "*r\nP"]) #@513 Call the comment command you want (Do What I Mean). If the region is active and `transient-mark-mode' is on, call `comment-region' (unless it only consists of comments, in which case it calls `uncomment-region'). Else, if the current line is empty, call `comment-insert-comment-function' if it is defined, otherwise insert a comment and indent it. Else if a prefix ARG is specified, call `comment-kill'. Else, call `comment-indent'. You can configure `comment-style' to change the way regions are commented. (defalias 'comment-dwim #[(arg) "\306 \210\203 \203 \307\310 \311 \n#\207\212\312 \210\313\314!)\204. \n\203+ \315\n\250\205) \n!\207\316 \207 \2035 \207\317\n! \320 \210\321 \f\"c\210\212\322\230\204Q \323\f\"c\210\320 *\207" [mark-active transient-mark-mode arg comment-insert-comment-function add comment-start comment-normalize-vars comment-or-uncomment-region region-beginning region-end beginning-of-line looking-at "\\s-*$" comment-kill comment-indent comment-add indent-according-to-mode comment-padright "" comment-padleft comment-end] 4 (#$ . 29520) "*P"]) #@115 Non-nil means to only auto-fill inside comments. This has no effect in modes that do not define a comment syntax. (custom-declare-variable 'comment-auto-fill-only-comments 'nil '(#$ . 30616) :type 'boolean :group 'comment) #@239 Check that the adaptive-fill-prefix is consistent with the context. PREFIX is the prefix (presumably guessed by `adaptive-fill-mode'). COMPOS is the position of the beginning of the comment we're in, or nil if we're not inside a comment. (defalias 'comment-valid-prefix-p #[(prefix compos) "\204 \205 \n\205 \306\n \"?\207\212b\210\307 \210n)?\206h \306\310\n\311Q \"\205h \312\313\314 \"\315\316# \306\317\f\"\210\313\314\f\" \320 ! \f\314\225\315O \212b\210\321\322!!\205g i\323 ZU\206g `\324 \210`{\232-\207" [compos comment-start comment-start-skip prefix prefix-com prefix-space string-match comment-forward "\\`[ ]*\\(?:" "\\)" comment-string-strip match-string 0 nil t "\\`[ ]*" string-width looking-at regexp-quote current-left-margin move-to-left-margin prefix-indent prefix-comstart] 4 (#$ . 30846)]) #@595 Break line at point and indent, continuing comment if within one. This indents the body of the continued comment under the previous comment line. This command is intended for styles where you write a comment per line, starting a new comment (and terminating it if necessary) on each line. If you want to continue one comment across several lines, use \[newline-and-indent]. If a fill column is specified, it overrides the use of the comment column or comment indentation. The inserted newline is marked hard if variable `use-hard-newlines' is true, unless optional argument SOFT is non-nil. (defalias 'comment-indent-new-line #[(&optional soft) "\306\307!\210\310\211\n\205 \205 t?\205 \212\311 \211`)??\205\f\203- \312\313!\210\2021 \314\315!\210\212\316u\210\317 \210)\317 \210 \203N \204N \320 \210\321 !\202 \204` \n\203` \212\316u\210\311 `) \203t \322 \"\203t \320 \210\312 !\202 \204} \323 \202\212 b\210i \324\325 \\]^) { \326\327\330\n\307\211#! \"\211 !\203\250 \"\202\303 \212 b\210\331 \204\266 \"\202\302 \330\212\332 \210`)`{\310\307#) \" #\206\331 \333$%\"\211 &A@) '\310 (#\203\360 \"G\334V\203\360 \323 \202\312\313!\210\316u\210\335'!\210\212` )\310\210)`{ *)`T|\210\334\210*c+.*\207" [comin compos comment-start comment-auto-fill-only-comments soft fill-prefix comment-normalize-vars t nil comment-beginning insert-and-inherit 10 newline 1 -1 delete-horizontal-space indent-to-left-margin insert-before-markers-and-inherit comment-valid-prefix-p indent-according-to-mode 2 current-indentation string-match regexp-quote comment-string-strip comment-forward comment-enter-backward assoc 0 comment-indent adaptive-fill-mode comment-column comstart normalp comment-end comment-multi-line comment-style comment-styles x continuep comment-continue pt comend] 7 (#$ . 31680) nil]) (provide 'newcomment)
Close
