;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:48:56 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/newcomment.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.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 (#$ . 1033)) #@254 *Column to indent right-margin comments to. Setting this variable automatically makes it local to the current buffer. Each mode establishes a different default value for this variable; you can set the value for a particular mode using that mode's hook. (custom-declare-variable 'comment-column '32 '(#$ . -1377) :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 (#$ . -1772)) #@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 (#$ . -1890)) #@70 Regexp to match the end of a comment plus everything up to its body. (defvar comment-end-skip nil (#$ . 2142)) #@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 "" (#$ . -2260)) #@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 (#$ . 2413)) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\304\207" [current-load-list block-comment-start block-comment-end boundp nil] 2) #@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 (#$ . 2934)) #@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 (#$ . 3087)) #@305 How many more comment chars should be inserted by `comment-region'. This determines the default value of the numeric argument of `comment-region'. This should generally stay 0, except for a few modes like Lisp where it can be convenient to set it to 1 so that regions are commented with two semi-colons. (defvar comment-add 0 (#$ . 3578)) #@527 Possible comment 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. (defconst comment-styles '((plain nil nil nil nil) (indent nil nil nil t) (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)) (#$ . 3924)) #@94 *Style to be used for `comment-region'. See `comment-styles' for a list of available styles. (custom-declare-variable 'comment-style ''plain '(#$ . -4650) :group 'comment :type (if (boundp 'comment-styles) `(choice ,@(mapcar (lambda (s) `(const ,(car s))) comment-styles)) 'symbol)) #@318 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 " ". nil means 0. (custom-declare-variable 'comment-padding '" " '(#$ . 4940) :group 'comment :type '(choice string integer (const nil))) #@168 *Non-nil means \[comment-indent-new-line] continues comments, with no new terminator or starter. This is obsolete because you might as well use \[newline-and-indent]. (custom-declare-variable 'comment-multi-line 'nil '(#$ . -5384) :type 'boolean :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 (#$ . 5653)]) #@66 Return the mirror image of string S, without any trailing space. (defalias 'comment-string-reverse #[(s) "\302\303 \304\")\237\260\305\306#\207" [s string comment-string-strip string-to-sequence list nil t] 4 (#$ . 5965)]) (defalias 'comment-normalize-vars #[(&optional noerror) "\204\f \206\337\306\307!\207\n\310=\203N\311\302!\312  \313\230\203\"\314\202# )\315\316\317!!*\320\216r*q\210\321)!\210 \322\f\261\210eb\210\323\324!\205Jm.L\210+\204V\325++\250\203c\326+\327\"+\204\204 \313\230\204\204\311\330!\331\332\"\203|\333\202}\334\324\335OPL\210\204\230\311\336!\337\340\341\342\211#!\343QL\210$?\205\337 \313\230\203\250\314\202\255\341 \342\211#\311\344!\345,\203\273\313\202\274\346\347\340\f\325\324O!,\203\323\fG\324X\203\323\313\202\324\346\340\f\324\335O!\350\260L)\207" [comment-start noerror comment-use-syntax comment-end ce cs error "No comment syntax is defined" undecided make-local-variable syntax-table "" "\n" get-buffer-create generate-new-buffer-name " *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] 10]) (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 \"Qeb\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 (#$ . 7588)]) #@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 of 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\211\315&\316 8\203U\317 8\203U\313\f\n\206Cd\314\211\211\211\211\317 8\314\211\211\211\257\315&\316 8\203a\317 8\203l ?\205\255\311\312!\202\255`\316 8\320 \314\204\241`Y\203\241\321 !\203\233\n\206\222d\310\225^\211\202}\322u\210\202{\206\250b\210,*\207" [comment-use-syntax comment-start-skip limit noerror pt s re-search-forward 1 0 error "No comment" parse-partial-sexp nil t 8 3 line-beginning-position looking-at -1 end bol start pos] 14 (#$ . 8242)]) #@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 of 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 (#$ . 9144)]) #@150 Find the beginning of the enclosing comment. Returns nil if not inside a comment, else moves point and returns the same as `comment-search-forward'. (defalias 'comment-beginning #[nil "\303`\304\"\305=?\205T`\306\307\310\"\205S\212b\210\311\n!\203:\303\312\225\304\"\313=\204:\303`\304\"\313=?\205G\314 Y\205G\315\316!\203F` V\202Gm)\203O\202S 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 (#$ . 9805)]) #@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 (#$ . 10376)]) #@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 \302u\210\303\304!\207`\305 \210\214`}\210\306 \307P\310\311#\203%\312\224b\2025db\210\313u\210\314\310f!\310x\210\303\304!*\207" [end comment-end-skip -1 skip-syntax-backward " " beginning-of-line re-search-forward "\\'" nil t 0 -2 string] 4 (#$ . 10880)]) #@40 Default for `comment-indent-function'. (defalias 'comment-indent-default #[nil "\302\303!\203\304\225\204i\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 (#$ . 11307)]) #@142 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\320\203_\321 \202s\212j\210` c\210\321 c\210)b\210\212 )\211\204\210\322 \210\202\311\212\323\320x\210n)\204\242i\212\320\210i)Z\\^iU\203\260b\210\202\311\323\320x\210`|\210n\203\302\202\307iT]j\210b\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 point-marker indent-according-to-mode " " block-comment-end comment-end ender eolpos begpos cpos indent comment-column comment-indent-function fill-column] 5 (#$ . 11605) "*"]) #@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)\212\305 \210\306 \210\305 \210\307\310 !b\210i\311\312 \"\210)\313 \207i\311\312 \"\207" [arg comment-column - comment-kill nil beginning-of-line comment-search-backward comment-search-forward line-end-position message "Comment column set to %d" comment-indent] 3 (#$ . 12640) "P"]) #@114 Kill the comment on this line, if any. With prefix ARG, kill comments on that many lines starting with this one. (defalias 'comment-kill #[(arg) "\304!\305 \nW\203F\212\306 \210\307\310 \311\"\211\2037 b\210\312\313!\210`\314 \210\315 n\2031`S\2022`\"\210\316 \210*\203?\317y\210 T\211\202*\320\207" [arg _ #1=#:--dotimes-temp--97269 cs 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 nil] 4 (#$ . 13301) "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 (#$ . 13849)]) #@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 (#$ . 14808)]) #@134 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) "\306 \210 V\203\307 \n)\212b\210\310 !\311 !\307` W\203\200\312 \313\"\211\203\200`-\fb\210\314 \204>\315\316!\210`.\307/01\3171\320\"\2112\205X\3212\322Q3\214\f.}\210-b\210\323\324!\210`eZ\325U\203z\326\327!\203z\330\307w\210`eZ4GZ\331V\203\211\313/\326\3325!!\203\226\333\225b\2103\203\250\326\3342P!\203\250\333\225b\210 \204\263e`|\210\202\274\323\324!\210\335 [!\210db\210\336 \210d`Z\325U\203\332`6\330\307x\337V\203\3316b\210)\326\340!\204\376n\203\353o\204\353\341u\210 \204\366`d|\210\202\376\342\324!\210\335 !\210\34347\313#\2103\203x\3440\2064!8/\205 \3458\320\"\2119\205+\3469\347Q:eb\210:\203S\350:\351 \313#\203S\352\353\313\211\307\354\225\203M\354\202N\325%\210\202V\307:\325y\210\3503\351 \313#\203w\352\353\313\211\307\354\225\203q\354\202r\325%\210\2020+db\210.\202 \307\211\223+\207" [beg end mid arg spt numarg comment-normalize-vars nil copy-marker prefix-numeric-value comment-search-forward t comment-forward error "Can't find the comment end" comment-padright re "^\\s-*?\\(" "\\)" skip-syntax-backward " " 1 looking-at "=\\{7\\}" "=" 7 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 "" 2 ipt ept box comment-continue ccs srei sre comment-start comment-padding pos comment-end cce erei ere] 7 (#$ . 15602) "*r\nP"]) #@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}\314\225\314\224Z\306\224Z\306]\202}\f Z \315Q\315\nQ\311\316 \"\203F \306\225SH\202G\317\311\320\"\321\306\225\306\224Z GZ\322Z\\\"\323\310\211$\311\320\"\210\323\310\211$. \313\321 \324\"R\313\321 \\\324\"\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-" 61 "\\s-*a=m\\s-*" make-string 3 replace-match 32 width cce s ccs e c _ fill] 6 (#$ . 17315)]) (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) #@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) "\302\303!\304\305BC\306\307\310\311\312\313BBD\314\315 B\316\317\320\321\304\322\323\324EDC\325\326\327\330BBEFE\331\304\332\333\334\335\336\337BB\340BB\304\322\323\341BBDC\342\343\326\327\344BBE\257EF\257E\257E)\207" [bindent body make-symbol "bindent" let ((save-excursion (goto-char beg) (current-column))) save-restriction (narrow-to-region beg end) (goto-char (point-min)) insert make-string (32) prog1 progn save-excursion (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 (#$ . 18207)])) #@523 Comment region BEG..END. CS and CE are the comment start resp end string. CCS and CCE are the comment continuation strings for the start resp end of lines (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 ;\203 \307\230\203\310\n;\203\n\307\230\203\310 \204$\310\310 \2040\f\2040 \2032\310\f\203? \204?\311!\f\204E\310 \204N \212b\210 \204al\204a\312c\210\313 \210\212b\210i)\214}\210eb\210\314\315\"c\210d\316 !eb\210\317\"#\310#\210eb\210\320\321!\204\234!\322 ^!\310\210 i] m\204\257\310y\210\202\217 G G]\\$\\\323\\ %\204\307\316! \203\343\324 \n! \f&\211&@&A)eb\210\203\360\320\321!\204\325!\306\"\210c\210 \310\210m\203 \n\203\f\203\325 \306\"\210\nc\210\310\210m\206\"\310y\210\310?\205)\202\346*\212eb\210\320\326!\203K\316\225\316\224Z^'\327'!\210'Z)\310\210`(\330 \210\316V\203\204\331\332(\306#\203\204\316\225\316\224Z\333Z^'\316\224b\210\327'!\210'Z)\202T.\207" [no-empty ce cce ccs block lines t "" nil comment-string-reverse "\n" indent-according-to-mode make-string 32 0 comment-quote-nested looking-at "[ ]*$" current-indentation -1 comment-make-extra-lines move-to-column " *" delete-char beginning-of-line re-search-forward " *" 1 cs end beg #1=#:bindent max-indent min-indent comment-start comment-end tab-width indent csce n e] 9 (#$ . 19208)]) #@581 Comment or uncomment each line in the region. With just \[universal-argument] prefix arg, uncomment each line in region BEG..END. Numeric prefix arg ARG means use ARG comment characters. If ARG is negative, delete that many comment characters instead. By default, comments start at the left margin, are terminated on each line, even for syntax in which newline does not end the comment and blank lines do not get comments. This can be changed with `comment-style'. The strings used as comment starts are built from `comment-start' without trailing spaces and `comment-padding'. (defalias 'comment-region #[(beg end &optional arg) "\306 \210 V\203\307 \n)\310 ! \311 !\"A\"\312\"8#\"A@$\"@%\212b\210\313\307w\210\314 \210`] b\210\313\307x\210\307\210 `^ Y\203Z\315\316!\210#\205\223b\210\314 \210\317\320!\210`Y\205\223 b\210\307\210\321\320!\210` X\205\223&\322\230\203\213$\205\223b\210\323\324 \325##)#\204\245&\322\230\204\245\307$ :\203\261\326 \"\202/\f\327W\203\300\326 \f[#\202/ \204\321'G\330U\203\321\202\323\fS\331 \332'\f\"(\333)(\"\203\354(\202\360\332'!)\334&\f\"\211(\205\333*(\"\203\n(\202\332&!)%\205\332+\f\"%\205%\334\335+!\f\"$#\336\"8& .\207" [beg end mid arg numarg comment-add comment-normalize-vars nil prefix-numeric-value assoc 2 " \n " beginning-of-line error "Nothing to comment" skip-syntax-forward " " skip-syntax-backward "" search-forward "\n" t uncomment-region 0 1 comment-region-internal comment-padright string-match comment-padleft comment-string-reverse 3 add comment-style comment-styles style lines block multi comment-end comment-start s comment-start-skip comment-end-skip comment-continue] 12 (#$ . 21023) "*r\nP"]) #@208 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 \"\211A@)\203\307\202\310\311 \f \n\\#)\207" [comment-style comment-styles x beg end comment-add assoc box-multi box comment-region arg] 6 (#$ . 22780) "*r\np"]) #@371 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, insert a comment and indent it. Else if a prefix ARG is specified, call `comment-kill'. Else, call `comment-indent'. (defalias 'comment-dwim #[(arg) "\306 \210\2033 \2033`\307 ^`\307 ]\212 b\210\310d!\210\n`X)\203,\311 \n\f#\2021\312 \n\f#*\207\212\313 \210\314\315!)\204N\f\203K\316\f\250\205I\f!\207\317 \207\f\203X\320\f!\202e G\321U\203d\202e\322\323 \210\324 \"c\210\212\325\230\204\201\326\"c\210\323 *\207" [mark-active transient-mark-mode end beg arg comment-start comment-normalize-vars mark comment-forward uncomment-region comment-region beginning-of-line looking-at "\\s-*$" comment-kill comment-indent prefix-numeric-value 1 0 indent-according-to-mode comment-padright "" comment-padleft comment-add add comment-end] 4 (#$ . 23219) "*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 '(#$ . 24258) :type 'boolean :group 'comment) #@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\212\311 \211`)??\205\341\312 \210\f\203+\313\314!\210\202/\315\316!\210 \203<\317 \210\313 !\202\341\204S \204S\n\203S\212\320u\210\311 `) \204\\\321 \202\341\212 b\210i\322 \323\\]^) {\324\325\326\n\307\211#!\"\211\203\207 \202\242\212 b\210\327 \204\225 \202\241\326\212\330 \210`)`{\310\307#) \310!\313\314!\210\320u\210\331\332\"#\"\211$A@)!\210\212`%\310\210%`{&%`T|\210\333 \210\320u\210&c\210\310u. *\207" [comin compos comment-start comment-auto-fill-only-comments soft fill-prefix comment-normalize-vars t nil comment-beginning delete-horizontal-space insert-and-inherit 10 newline 1 indent-to-left-margin -1 indent-according-to-mode current-indentation 2 string-match regexp-quote comment-string-strip comment-forward comment-enter-backward comment-indent assoc beginning-of-line comment-multi-line comment-column comstart normalp comment-end comment-continue comment-style comment-styles x pt comend] 7 (#$ . 24488) nil]) (provide 'newcomment)