| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/newcomment.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/newcomment.el
;;; in Emacs version 24.3
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 (#$ . 962))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\316\312!\210\317\312\320\321#\207" [custom-declare-variable comment-fill-column funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Column to use for `comment-indent'. If nil, use `fill-column' instead." :type (choice (const nil) integer) :group comment comment-column #[0 "\300\207" [32] 1 "\n\n(fn)"] "Column to indent right-margin comments to.\nEach mode may establish a different default value for this variable; you\ncan set the value for a particular mode using that mode's hook.\nComments might be indented to a different value in order not to go beyond\n`comment-fill-column' or in order to align them with surrounding comments." integer make-variable-buffer-local put safe-local-variable integerp] 8)
#@71 String to insert to start a new comment, or nil if no comment syntax.
(defvar comment-start nil (#$ . 2125))
(put 'comment-start 'safe-local-variable 'string-or-null-p)
#@201 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 (#$ . 2301))
(put 'comment-start-skip 'safe-local-variable 'stringp)
#@72 Regexp to match the end of a comment plus everything back to its body.
(defvar comment-end-skip nil (#$ . 2607))
(put 'comment-end-skip 'safe-local-variable 'stringp)
#@109 String to insert to end a new comment.
Should be an empty string if comments are terminated by end-of-line.
(defvar comment-end (purecopy "") (#$ . 2781))
(put 'comment-end 'safe-local-variable 'stringp)
#@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 (#$ . 2992))
#@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 (#$ . 3364))
#@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 (#$ . 3630))
#@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 (#$ . 3997))
(defvar block-comment-start nil)
(defvar block-comment-end nil)
#@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 (#$ . 4436))
#@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 (#$ . 4589))
#@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 (#$ . 5080))
#@1396 Comment region style definitions.
Each style is defined with a form (STYLE . (MULTI ALIGN EXTRA INDENT DOC)).
DOC should succinctly describe the style.
STYLE should be a mnemonic symbol.
MULTI specifies that comments are allowed to span multiple lines.
e.g. in C it comments regions as
/* blabla
* bli */
rather than
/* blabla */
/* bli */
if `comment-end' is empty, this has no effect.
ALIGN specifies that the `comment-end' markers should be aligned.
e.g. in C it comments regions as
/* blabla */
/* bli */
rather than
/* blabla */
/* bli */
if `comment-end' is empty, this has no effect, unless EXTRA is also set,
in which case the comment gets wrapped in a box.
EXTRA specifies that an extra line should be used before and after the
region to comment (to put the `comment-end' and `comment-start').
e.g. in C it comments regions as
/*
* blabla
* bli
*/
rather than
/* blabla
* bli */
if the comment style is not multi line, this has no effect, unless ALIGN
is also set, in which case the comment gets wrapped in a box.
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 "Start in column 0 (do not indent), as in Emacs-20") (indent-or-triple nil nil nil multi-char "Start in column 0, but only for single-char starters") (indent nil nil nil t "Full comment per line, ends not aligned") (aligned nil t nil t "Full comment per line, ends aligned") (box nil t t t "Full comment per line, ends aligned, + top and bottom") (extra-line t nil t t "One comment for all lines, end on a line by itself") (multi-line t nil nil t "One comment for all lines, end on last commented line") (box-multi t t t t "One comment for all lines, + top and bottom")) (#$ . 5455))
(byte-code "\301\302\303\304\305DD\306\307\310\300!\203 \311\312\313\"B\202 \314\315\316\317\320& \210\301\321\303\304\322DD\323\307\324\317\320&\210\301\325\303\304\326DD\327\315\330\307\331\317\320& \210\301\332\303\304\333DD\334\307\335\317\320&\210\301\336\303\304\337DD\340\307\341\317\320&\207" [comment-styles custom-declare-variable comment-style funcall function #[0 "\300\207" [indent] 1 "\n\n(fn)"] "Style to be used for `comment-region'.\nSee `comment-styles' for a list of available styles." :type boundp choice mapcar #[257 "\300\301\302\303@\3048#@F\207" [const :tag format "%s: %s" 5] 8 "\n\n(fn S)"] symbol :version "23.1" :group comment comment-padding #[0 "\300\301!\207" [purecopy " "] 2 "\n\n(fn)"] "Padding string that `comment-region' puts between comment chars and text.\nCan also be an integer which will be automatically turned into a string\nof the corresponding number of spaces.\n\nExtra spacing between the comment characters and the comment text\nmakes the comment easier to read. Default is 1. nil means 0." (choice string integer (const nil)) comment-inline-offset #[0 "\300\207" [1] 1 "\n\n(fn)"] "Inline comments have to be preceded by at least this many spaces.\nThis is useful when style-conventions require a certain minimal offset.\nPython's PEP8 for example recommends two spaces, so you could do:\n\n(add-hook 'python-mode-hook\n (lambda () (set (make-local-variable 'comment-inline-offset) 2)))\n\nSee `comment-padding' for whole-line comments." "24.3" integer comment-multi-line #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Non-nil means `comment-indent-new-line' continues comments.\nThat is, it inserts no new terminator or starter.\nThis affects `auto-fill-mode', which is the main reason to\ncustomize this variable.\n\nIt also affects \\[indent-new-comment-line]. However, if you want this\nbehavior for explicit filling, you might as well use \\[newline-and-indent]." boolean comment-empty-lines #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If nil, `comment-region' does not comment out empty lines.\nIf t, it always comments out empty lines.\nIf `eol' it only comments out empty lines if comments are\nterminated by the end of line (i.e. `comment-end' is empty)." (choice (const :tag "Never" nil) (const :tag "Always" t) (const :tag "EOl-terminated" 'eol))] 10)
#@99 Strip STR of any leading (if BEFOREP) and/or trailing (if AFTERP) space.
(fn STR BEFOREP AFTERP)
(defalias 'comment-string-strip #[771 "\300\301\205 \302\303\205
\304\305\260\"\210\306\307\"\207" [string-match "\\`" "\\s-*" "\\(.*?\\)" "\\s-*\n?" "\\'" match-string 1] 9 (#$ . 9799)])
#@74 Return the mirror image of string S, without any trailing space.
(fn S)
(defalias 'comment-string-reverse #[257 "\301\302\303\")\237\260\303\304#\207" [string comment-string-strip append nil t] 5 (#$ . 10098)])
#@337 Check and set up variables needed by other commenting functions.
All the `comment-*' commands call this function to set up various
variables, like `comment-start', to ensure that the commenting
functions work correctly. Lisp callers of any other `comment-*'
function should first call this function explicitly.
(fn &optional NOERROR)
(defalias 'comment-normalize-vars #[256 "?\205 \211?\205 \204, \306\307!\310G!\203 \311\312!\210\202+ \313\300!\210\211\313\301!\210\211\210\n\314=\203v \313\302!\210\315 \316\230\203C \317\202D \320\321!r\211q\210\322\323\324\325\326\327!\330\"\331\332%DC\216\333!\210\334\261\210eb\210\335\336!\205p m*\262\266\203\f\204| \324\f\250\203\206 \337\f\340\"
\204\246 \316\230\204\246 \313\305!\210\341\342\"\203\237 \343\202\240 \344\336\345OP \203\261 \341 \"\204\300 \313\301!\210\346\347\350\351\211#!\352Q+\205\324 \341+ \316\230\203\322 \317\202\323 \"?\205 \316\230\203\342 \317\202\347 \350 \351\211#\313\353!\210\3540\203\365 \316\202\366 \355\356\347\324\336O!0\203
G\336X\203
\316\202\355\347\336\345O!\357\260\211+\262\207" [comment-start comment-start-skip comment-use-syntax comment-end comment-padding comment-continue 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*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" set-syntax-table " hello " forward-comment 1 make-string 32 string-match "\\S-\\S-" " " "|" nil "\\(\\(^\\|[^\\\n]\\)\\(\\\\\\\\\\)*\\)\\(\\s<+\\|" regexp-quote comment-string-strip t "+\\)[ ]*" comment-end-skip "[ ]*\\(\\s>" "+" "\\|" "\\)" comment-quote-nested] 12 (#$ . 10321)])
(defalias 'comment-quote-re #[514 "\300\301\302O!\303\203 \304\202 \305\300\302\306O!R\207" [regexp-quote 0 1 "\\\\" "+" "*" nil] 9 "\n\n(fn STR UNP)"])
#@102 Quote or unquote nested comments.
If UNP is non-nil, unquote nested comment markers.
(fn CS CE UNP)
(defalias 'comment-quote-nested #[771 "\301\302\211#\262\301\302\211#\262\205\211 G\303V\205\211 \304\"\305\304\"Qeb\210\306\307\302#\205\207 \303\224b\210\310u\210\203@ \311\310!\210\202C \312c\210G\310U\203& \204a \313\303!\230\203& \314\315P\302\211#\210\202& e\303\224W\203& \303\224S\303\225S{\315P\230\203& \316u\210\311\303\225\303\224Z!\210c\210\202& \262\207" [comment-quote-nested comment-string-strip t 0 comment-quote-re "\\|" re-search-forward nil 1 delete-char "\\" match-string replace-match "!" -2] 8 (#$ . 12265)])
#@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 (#$ . 12924))
#@264 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.
(fn LIMIT &optional NOERROR)
(defalias 'comment-search-forward #[513 "\204 \303 #\203 \304\225\206 \305\224\207b\210\211?\205 \306\307!\207`\310\206( d\311\211\n\2052 \312!\313&\3148\203` \3158\203` \n\204` \310\206L d\311\211\211\211\211\315 8\311\211\211\211\257\313&\262\3148\203t \3158\204t \3148W\203 ?\205\264 \306\307!\202\264 `\3148\316 \311\211\204\252 `Y\203\252 \317 !\203\244 \206\234 d\305\225^\262\202\206 \320u\210\202\206 \211\206\257 b\210\266\204\207" [comment-use-syntax comment-start-skip 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] 17 (#$ . 13296)])
#@264 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.
(fn &optional LIMIT NOERROR)
(defalias 'comment-search-backward #[512 "\301\302#\204 \211?\205K \303\304!\207\305 \210\306\225\307\302\"`\204) \305 \210\310\"\202I b\210\311 \210`W\203E \307\302\"\211\262\203E `\262\202) \211b\210\266\203\207" [comment-start-skip re-search-backward t error "No comment" beginning-of-line 0 comment-search-forward comment-search-backward comment-forward] 8 (#$ . 14244)])
#@157 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'.
(fn)
(defalias 'comment-beginning #[0 "\301`\302\"\303=?\205W `\304\305\306\"\211\205U \212\211b\210\203! \307!\203< \301\310\225\302\"\311=\204< \301`\302\"\311=?\205I \312 Y\205I \313\314!\203H `V\202I m)\203Q \211\202U b\210\305\266\202\207" [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] 5 (#$ . 14903)])
#@140 Skip forward over N comments.
Just like `forward-comment' but only for positive N
and can use regexps instead of syntax.
(fn &optional N)
(defalias 'comment-forward #[256 "\211\206 \303\262\211\304W\203 \305\306!\207\203 \307!\207\211\304V\203D \307\303!\2049 \310 !\203> \304\225b\203> \311\n\312\313#\203> \211S\202? \314\262\202 \211\304U\207" [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 (#$ . 15494)])
#@118 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.
(fn)
(defalias 'comment-enter-backward #[0 "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 (#$ . 16020)])
#@46 Default for `comment-indent-function'.
(fn)
(defalias 'comment-indent-default #[0 "\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 (#$ . 16585)])
#@323 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.
(fn &optional INDENT)
(defalias 'comment-choose-indent #[256 "\211\204 \262i \206
\n\212\304\210i)Z\\\304\212\305\304x\210n\203# \306\202& i\\)W\2030 \211\262X\2039 \262\212\307\310y!\203R \311\312 \313\"\211\262\203R b\210i\262)\203g X\203g Y\203g \202\272 \212\307\314y!\203\264 \311\312 \313\"\211\262\203\264 b\210i \206\203 \n\212\304\210i)Z\\\212\305\304x\210iT)Y\203\254 \211X\203\254 \211]\262^\262\202\257 db\210\266\202h )\211^]\207" [comment-column comment-fill-column fill-column comment-inline-offset nil " " 0 zerop -1 comment-search-forward line-end-position t 1] 8 (#$ . 16899)])
#@169 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.
(fn &optional CONTINUE)
(defalias 'comment-indent #[256 "\306 \210\212\307 \210\310\311!)\203 \206 \211\203 \206 \n\203( \203( \312\2021 \2030 \2061 \f\2049 \313\314!\210\307 \210\315 \316\317\"\320\211
\203Q \204Q
\202\355 \203p \310\321!\204i \310!\203i \322\320x\323\245u\210\324 \262\202\216 \212j\210`Sf\325>\204\200 \326c\210`\262c\210\324 \262c\210)b\210\212 )\262\211\204\252 \212\322\320x\210n)\204\252 \262\211\204\264 \327 \210\202\346 \212\322\320x\210n)\204\303 \330!\262\212\322\320x\210n\204\324 \211i \\]\262)iU\204\346 `\322\320x\210`|\210\211j\210b\210\320\211\223\266\204\207" [comment-continue block-comment-start comment-start block-comment-end comment-end comment-insert-comment-function 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 comment-end-skip comment-column comment-indent-function comment-inline-offset] 11 (#$ . 17839) "*"])
#@307 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.
(fn ARG)
(defalias 'comment-set-column #[257 "\211\301=\203\n \302\303!\207\211\203, \304 \210\212\305 \210\306 \210\305 \210\307\310 !b\210i\311\312\"\210)\313 \207i\311\312\"\207" [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] 4 (#$ . 19080) "P"])
#@130 Kill the first comment on this line, if any.
With prefix ARG, kill comments on that many lines starting with this one.
(fn ARG)
(defalias 'comment-kill #[257 "\300 \210\301!\302\211W\205J \211\212\303 \210\304\305 \306\"\211\2039 \211b\210\307\310!\210`\262\311 \210\312n\2033 `S\2024 `\"\210\313 \210\210)\203B \314y\210\210\211T\262\202 \207" [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] 8 (#$ . 19783) "P"])
#@338 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.
(fn STR &optional N)
(defalias 'comment-padright #[513 "\211\206 \303\262;\205k \304\230?\205k \305\306\"\210\307\310\"\303\310\224O\310\225\311O\303\225\310\225ZG^\311OP \205: \305\312\n\"?9\204U \205P \313 \310\225SH\"R\202i \314\315\304#\316!\205b \317\314\320\304#R\266\204\207" [comment-padding comment-quote-nested comment-end 0 "" string-match "\\`\\s-*\\(.*?\\)\\s-*\\'" match-string 1 nil "\\`\\s-*\\S-\\s-*\\'" make-string mapconcat #[257 "\300\301!!\302P\207" [regexp-quote string "?"] 4 "\n\n(fn C)"] regexp-quote "+" #[257 "\300\301!!\302P\207" [regexp-quote string "?"] 4 "\n\n(fn C)"]] 13 (#$ . 20353)])
#@341 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.
(fn STR &optional N)
(defalias 'comment-padleft #[513 "\211\206 \303\262;\205a \304\230?\205a \305\306\"\210\303\225\307O\303\225\303\224ZG^\307O\310\303\"P\303\225H \2059 \305\311\n\"?9\204N \205I \312\"Q\202_ \313\205Z \314\315!!\316P\314!Q\266\204\207" [comment-padding comment-quote-nested comment-end 0 "" string-match "\\`\\s-*" nil match-string "\\`\\s-*\\S-\\s-*\\'" make-string "\\s-*" regexp-quote string "*"] 10 (#$ . 21320)])
#@164 Uncomment each line in the BEG .. END region.
The numeric prefix ARG can specify a number of chars to remove from the
comment markers.
(fn BEG END &optional ARG)
(defalias 'uncomment-region #[770 "\302 \210V\203 \262\262\303\212 #*\207" [comment-use-global-state uncomment-region-function comment-normalize-vars nil] 7 (#$ . 22105) "*r\nP"])
#@164 Uncomment each line in the BEG .. END region.
The numeric prefix ARG can specify a number of chars to remove from the
comment markers.
(fn BEG END &optional ARG)
(defalias 'uncomment-region-default #[770 "b\210\306!\262\307!\310\311\"\310 \311\"\205 \312\313Q\314`W\203\245\315\316\"\211\262\203\245`b\210\317 \204@ m\204@ \320\321!\210`\314\211\214}\210b\210\322\323!\210`eZ\324U\203r \316\211\262\203r \325\326!\203r dSf\327=\204r \330\314w\204} \331`e G#\332V\203\211 \333ed\"\334V\203\211 \316\262\212eb\210\325!)\204\235 \325\335\n!!\203\241 \336\225b\210\203\262 \325\337 P!\203\262 \336\225b\210\n\204\276 e`|\210\202\336 \340 \322\323!\210\341 [!\210o\204\331 \212eb\210\325 !)\204\335 e|\210\210db\210\342 \210\211\203\375 dSf\327=\204\375 `\330\314x\343V\203\374 \211b\210\210\325\344!\2041n\203o\204\345u\210\n\204`d|\210\2021\346\323!\210\341\n!\210m\2041\325\f!\2041`d|\210\347
\316#\210\203\234\350\206A !\205J\351\311\"\211\205R\352\353Qeb\210\211\203v\354\355 \316#\203v\356\357\316\211\314\334\225\203p\334\202q\324%\210\202y\314\262\324y\210\354 \355 \316#\203\232\356\357\316\211\314\334\225\203\224\334\202\225\324%\210\202U\266db\210)\266\202 \266\314\211\223\207" [comment-continue comment-start comment-padding comment-start-skip comment-end-skip comment-end 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-*" point-marker 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 ""] 22 (#$ . 22466)])
#@178 Make the leading and trailing extra lines.
This is used for `extra-line' style (or `box' style if BLOCK is specified).
(fn CS CE CCS CCE MIN-INDENT MAX-INDENT &optional BLOCK)
(defalias 'comment-make-extra-lines #[1798 "\302\204( \303\304\211#\262\305\306\307 Q\"\203\266 \310\311\225\311\224\302\224#\302]\262\202\266 Z\312Q\312\nQ\305\313\f\"\203H \n\302\225SH\202` \314\232\203_ \305\315\f\"\203_ \n\302\225SH\202` \316\317\305\"
G\320\310\302\225\302\224\321$\\\"\322\304\211\n$\262\305 \"\204\245 \305\312\"\203\245 \312\262\320Z\"\262\322\304\211\n$\262\305\"\210\322\304\211 $\262\266\307\320\323\"R\307\320\\\323\"\nRB\207" [comment-end comment-start-skip 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] 22 (#$ . 24326)])
#@181 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.
(fn BEG END &rest BODY)
(defalias 'comment-with-narrowing '(macro . #[642 "\300\301!\302\303\304D\305BBDC\306\307E\310\311\312\313BBD\314\315 B\303\316\317\320\302\321\322\323EDC\324\325\326\327BBEFE\330\302\331\332\333\334\335\336BB\337BB\302\321\322\340BBDC\341\342\325\326\343BBE\257EF\257E\257E\207" [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)] 30 (#$ . 25236)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put comment-with-narrowing edebug-form-spec t lisp-indent-function 2] 4)
#@249 Compute the number of extra comment starter characters.
(Extra semicolons in Lisp mode, extra stars in C mode, etc.)
If ARG is non-nil, just follow ARG.
If the comment starter is multi-char, just follow ARG.
Otherwise obey `comment-add'.
(fn ARG)
(defalias 'comment-add #[257 "\211\204 \302\303\"\304U\203 \305\\\207\306!S\207" [comment-start comment-add string-match "[ ]*\\'" 1 0 prefix-numeric-value] 4 (#$ . 26354)])
#@624 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.
(fn BEG END CS CE &optional CCS CCE BLOCK LINES INDENT)
(defalias 'comment-region-internal #[2308 "\304=\206 \205 \305G!?\306;\203! \307\230\203! \306\262\262;\2033 \307\230\2033 \306\262\204> \306\262\306\262\204K \204K \203N \306\262\203] \204] \310 !\262\204d \306\262\204q \262\262\212 b\210\211\204\204 l\204\204 \311c\210\312 \210\212\nb\210i)\214 }\210eb\210\313\314\"c\210d\315eb\210\316 \n\306#\210eb\210\317\320!\204\265 \321 ^\262\306\210\211i]\262m\204\307 \306y\210\202\251 \322
G\fG]\212b\210\323\324\304#)\203\344 S\202\345 \315#\262\204\357 \315\262\203\325\f\f\f\f&\211@\262
\211A\262\f\210eb\210\203\317\320!\204F\326\304\"\210 c\210 \262\f\306\210m\2033\n\262 \203F\203B\326\304\"\210c\210\306\210m\206Q\306y\210\306?\205X\202\266\202\212eb\210\317\327!\203u\315\225\315\224Z^\330!\210Z\262\210\306\210`\331 \210\315V\203\244\332\333\304#\203\244\334\315\225\315\224\335#^\315\224b\210\330!\210Z\262\210\202|\210*\262)\207" [comment-empty-lines comment-start comment-end tab-width 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] 22 (#$ . 26789)])
#@733 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'.
(fn BEG END &optional ARG)
(defalias 'comment-region #[770 "\301 \210V\203 \302\262\262\262\212#)\207" [comment-region-function comment-normalize-vars nil] 7 (#$ . 28772) "*r\nP"])
(defalias 'comment-region-default #[770 "\306!\307 \"A\3108A@@b\210\311\312w\210\313 \210`]\262b\210\311\312x\210\312\210`^\262Y\203> \314\315!\210\205 b\210\313 \210\316\317!\210`Y\205 b\210\312\210\320\317!\210`X\205 \204q \n\321\230?\205 \206 b\210\322\323\324#\262\204\216 \n\321\230\204\216 \312\262:\203\234 \325\"\202R\326W\203\256 \325[#\202R\327\330 \"\331U?\312\211\3328\333=\203\326 \212\nb\210\262?\205\320 \334\335!\262)\202\334 \3328\262\204\365 \204\365 \f\203\356 \310\202\357 \331_\262\202\374 \306 !S\262\336 \337 \f\"\327
\"\203\211\202\337 !\262\340\n
\"\211\205.\327\"\"\203+\211\202.\337\n!\262\205;\337#\" \205H\340\341#!\"
\n& \266\203\207" [comment-style comment-styles comment-end comment-start comment-add comment-start-skip 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 comment-end-skip comment-continue] 21 "\n\n(fn BEG END &optional ARG)"])
#@238 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.
(fn BEG END &optional ARG)
(defalias 'comment-box #[770 "\304 \210\305 \"\211A@)\203 \306\202 \307\310 \\#)\207" [comment-style comment-styles x comment-add comment-normalize-vars assoc box-multi box comment-region] 9 (#$ . 30923) "*r\np"])
#@79 Return non-nil if the text between BEG and END is all comments.
(fn BEG END)
(defalias 'comment-only-p #[514 "\212b\210\300d!\210\211`X)\207" [comment-forward] 4 (#$ . 31388)])
#@207 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.
(fn BEG END &optional ARG)
(defalias 'comment-or-uncomment-region #[770 "\300 \210\301\"\203 \302\202 \303#\207" [comment-normalize-vars comment-only-p uncomment-region comment-region] 7 (#$ . 31574) "*r\nP"])
#@519 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.
(fn ARG)
(defalias 'comment-dwim #[257 "\305 \210\203 \203 \306\307 \310 #\207\212\311 \210\312\313!)\204. \211\203+ \314\250\205) !\207\315 \207\n\2035 \n \207\316!\317 \210\320 \"c\210\212\f\321\230\204N \322\f\"c\210\317 )\207" [mark-active transient-mark-mode comment-insert-comment-function comment-start comment-end 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] 5 (#$ . 31977) "*P"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable comment-auto-fill-only-comments funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Non-nil means to only auto-fill inside comments.\nThis has no effect in modes that do not define a comment syntax." :type boolean :group comment] 8)
#@259 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.
(fn PREFIX COMPOS)
(defalias 'comment-valid-prefix-p #[514 "\211\204 \205 \205 \302 \"?\207\212\211b\210\303 \210n)?\206d \302\304 \305Q\"\205d \306\307\310\"\311\312#\302\313\"\210\307\310\"\314!\310\225\311O\212b\210\315\316!!\205_ i\317 ZU\206_ `\320 \210`{\232)\266\203\262\207" [comment-start comment-start-skip 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] 9 (#$ . 33387)])
#@616 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.
(fn &optional SOFT)
(defalias 'comment-indent-new-line #[256 "\306\307!\210\310\211\205 \205 \311\312!?\205 \212\313 \211\262`\262)??\205\n\203/ \314\315!\210\2023 \316\317!\210\212\320u\210\321 \210)\321 \210\n\203O \204O \322 \210\323\n!\202\n\204c \203c \212\320u\210\313 \262`\262)\n\203w \324\n\"\203w \322 \210\314\n!\202\n\204\200 \325 \202\n\212b\210i\f\326\327 \\]^) {\330\331\332\307\211#!\"\211\203\243
\202\275 \212b\210\333 \204\260
\202\274 \332\212\334 \210`)`{\310\307#) \206\321 \335!\"\"\211 #A@)\310 $ \203\345
G\336V\203\345 \325 \202\314\315!\210\320u\210\337!\210\212`\310\210\211`{`T|\210\336\210\211c\262\262),\266\203\207" [comment-start comment-auto-fill-only-comments fill-prefix adaptive-fill-mode comment-column comment-end comment-normalize-vars t nil called-interactively-p interactive 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 comment-multi-line comment-style comment-styles x comment-continue] 11 (#$ . 34166) nil])
(provide 'newcomment)