Lines Matching +defs:prefix +defs:re
79 :prefix "comment-"
328 (defun comment-quote-re (str unp)
339 (let ((re (concat (comment-quote-re ce unp)
340 "\\|" (comment-quote-re cs unp))))
342 (while (re-search-forward re nil t)
378 (if (re-search-forward comment-start-skip limit noerror)
420 (if (not (re-search-backward comment-start-skip limit t))
458 ;; Let's assume it's a `cs' if we're on the same line.
478 (re-search-forward comment-end-skip nil 'move)))
492 (re-search-forward (concat comment-end-skip "\\'") nil t))
494 ;; comment-end-skip not found. Maybe we're at EOB which implicitly
500 ;; blindly assume we're at the end of a two-char comment-end.
643 With prefix ARG, kill comments on that many lines starting with this one."
646 (dotimes (_ (prefix-numeric-value arg))
665 If N is `re', a regexp is returned instead, that would match
701 If N is `re', a regexp is returned instead, that would match
735 The numeric prefix ARG can specify a number of chars to remove from the
749 The numeric prefix ARG can specify a number of chars to remove from the
753 (let* ((numarg (prefix-numeric-value arg))
755 (srei (comment-padright ccs 're))
756 (csre (comment-padright comment-start 're))
828 (erei (and box (comment-padleft cce 're)))
832 (if (and ere (re-search-forward
837 (re-search-forward sre (line-end-position) t))
863 (re "\\s-*a=m\\s-*")
864 (_ (string-match re s))
873 (setq re "a=m")
876 (string-match re e)
904 (while (and (> ,bindent 0) (re-search-forward " *" e t))
913 (1- (prefix-numeric-value arg))))
1001 With just \\[universal-argument] prefix arg, uncomment each line in region BEG .. END.
1002 Numeric prefix ARG means use ARG comment characters.
1018 (let* ((numarg (prefix-numeric-value arg))
1070 The numeric prefix ARG specifies how many characters to add to begin- and
1082 in which case call `uncomment-region'. If a prefix arg is given, it
1100 Else if a prefix ARG is specified, call `comment-kill'.
1128 (defun comment-valid-prefix-p (prefix compos)
1129 "Check that the adaptive-fill-prefix is consistent with the context.
1130 PREFIX is the prefix (presumably guessed by `adaptive-fill-mode').
1131 COMPOS is the position of the beginning of the comment we're in, or nil
1132 if we're not inside a comment."
1137 ;; We're not inside a comment: the prefix shouldn't match
1140 (string-match comment-start-skip prefix)))
1142 ;; Accept any prefix if the current comment is not EOL-terminated.
1144 ;; Accept any prefix that starts with the same comment-start marker
1147 prefix)
1148 (let ((prefix-com (comment-string-strip (match-string 0 prefix) nil t)))
1149 (string-match "\\`[ \t]*" prefix-com)
1150 (let* ((prefix-space (match-string 0 prefix-com))
1151 (prefix-indent (string-width prefix-space))
1152 (prefix-comstart (substring prefix-com (match-end 0))))
1156 (and (looking-at (regexp-quote prefix-comstart))
1158 (or (= prefix-indent
1162 (equal prefix-space
1202 (if (and fill-prefix (not adaptive-fill-mode))
1203 ;; Blindly trust a non-adaptive fill-prefix.
1206 (insert-before-markers-and-inherit fill-prefix))
1208 ;; If necessary check whether we're inside a comment.
1216 ;; If there's an adaptive prefix, use it unless we're inside
1217 ;; a comment and the prefix is not a comment starter.
1218 ((and fill-prefix
1219 (comment-valid-prefix-p fill-prefix compos))
1221 (insert-and-inherit fill-prefix))
1222 ;; If we're not inside a comment, just try to indent.