Lines Matching +defs:set +defs:line
34 ;; uncommented one-line at a time.
51 ;; - check what c-comment-line-break-function has to say.
52 ;; - spill auto-fill of comments onto the end of the next line.
57 ;; - support gnu-style "multi-line with space in continue".
64 ;; one used on the preceding line(s).
71 (defalias 'set-comment-column 'comment-set-column)
75 (defalias 'indent-new-comment-line 'comment-indent-new-line)
90 Major modes should set this variable.")
101 can set the value for a particular mode using that mode's hook.
129 Should be an empty string if comments are terminated by end-of-line.")
142 "Function to insert a comment when a line doesn't contain one.
164 ;; ?? never set
170 This should be locally set by each major mode if needed.")
174 This string will be added at the beginning of each line except the very
186 it can be convenient to set it to 1 so that regions are commented with
193 (multi-line . (t nil nil t))
194 (extra-line . (t nil t t))
201 EXTRA specifies that an extra line should be used before and after the
227 (defcustom comment-multi-line nil
228 "Non-nil means `comment-indent-new-line' continues comments.
233 It also affects \\[indent-new-comment-line]. However, if you want this
242 terminated by the end of line (i.e. `comment-end' is empty)."
268 the variables are properly set."
274 (set (make-local-variable 'comment-start) cs))))
277 (set (make-local-variable 'comment-use-syntax)
284 (set-syntax-table st)
297 (set (make-local-variable 'comment-continue)
308 (set (make-local-variable 'comment-start-skip)
319 (set (make-local-variable 'comment-end-skip)
369 described by the syntax-tables can set this to non-nil so comment markers
401 (bol (line-beginning-position))
418 ;; comment-set-column) and to find the comment-start string (via
419 ;; comment-beginning) in indent-new-comment-line, it should be harmless.
422 (beginning-of-line)
427 (progn (beginning-of-line)
458 ;; Let's assume it's a `cs' if we're on the same line.
459 (>= (line-end-position) pt)))
490 (narrow-to-region (line-beginning-position) (point))
499 ;; set right. Since \\s> should catch the single-char case, we'll
521 "Indent this line's comment to `comment-column', or insert an empty comment.
525 (let* ((empty (save-excursion (beginning-of-line)
532 (beginning-of-line)
533 (let* ((eolpos (line-end-position))
570 ;; comment-indent-function refuses: delegate to line-indent.
577 (save-excursion (end-of-line) (current-column))))))
581 ;; Let's try to align to a comment on the previous line.
587 (when (and (zerop (forward-line -1))
589 (line-end-position) t)))
594 ;; Let's try to align to a comment on the next line, then.
597 (when (and (zerop (forward-line 1))
599 (line-end-position) t)))
605 ;; after other nonwhite text on the line.
615 (set-marker cpos nil))))
618 (defun comment-set-column (arg)
620 With no ARG, set the comment column to the current column.
621 With just minus as arg, kill any comment on this line.
622 With any other arg, set comment column to indentation of the previous comment
623 and then align or create a comment on this line at that column."
630 (beginning-of-line)
632 (beginning-of-line)
633 (goto-char (comment-search-forward (line-end-position)))
635 (message "Comment column set to %d" comment-column))
638 (message "Comment column set to %d" comment-column))))
642 "Kill the comment on this line, if any.
648 (beginning-of-line)
649 (let ((cs (comment-search-forward (line-end-position) t)))
657 (if arg (forward-line 1))))
734 "Uncomment each line in the BEG .. END region.
741 ;; (which works a line at a time), a comment can appear to be
742 ;; included in a mult-line string, but it is actually not.
748 "Uncomment each line in the BEG .. END region.
833 ere (line-end-position) t))
836 (forward-line 1)
837 (re-search-forward sre (line-end-position) t))
841 (set-marker end nil))
845 This is used for `extra-line' style (or `box' style if BLOCK is specified)."
901 (end-of-line)
903 (beginning-of-line)
946 ;; If the end is not at the end of a line and the comment-end
962 (end-of-line)
964 (not (or (eobp) (progn (forward-line) nil)))))
989 (insert cs) (setq cs ccs) ;switch to CCS after the first line
990 (end-of-line)
995 (end-of-line)
996 (not (or (eobp) (progn (forward-line) nil))))))))))
1000 "Comment or uncomment each line in the region.
1001 With just \\[universal-argument] prefix arg, uncomment each line in region BEG .. END.
1004 By default, comments start at the left margin, are terminated on each line,
1026 (goto-char beg) (skip-chars-forward " \t\n\r") (beginning-of-line)
1028 (goto-char end) (skip-chars-backward " \t\n\r") (end-of-line)
1036 (progn (goto-char beg) (beginning-of-line)
1039 (progn (goto-char end) (end-of-line) (skip-syntax-backward " ")
1099 Else, if the current line is empty, insert a comment and indent it.
1107 (if (save-excursion (beginning-of-line) (not (looking-at "\\s-*$")))
1108 ;; FIXME: If there's no comment to kill on this line and ARG is
1169 (defun comment-indent-new-line (&optional soft)
1170 "Break line at point and indent, continuing comment if within one.
1172 under the previous comment line.
1174 This command is intended for styles where you write a comment per line,
1175 starting a new comment (and terminating it if necessary) on each line.
1227 ;; the current line's indentation (plus 2 for good measure)
1231 ;; FIXME: use prev line's info rather than first line's.
1253 (continuep (or comment-multi-line
1256 ;; FIXME: wrong if comment-continue was set explicitly!
1257 ;; FIXME: use prev line's continuation if available.
1259 (if (and comment-multi-line (> (length comment-end) 0))
1266 (end-of-line)
1270 (end-of-line 0)