Lines Matching +defs:line +defs:re
149 "*Non-nil means TAB in Delphi mode should always reindent the current line,
150 regardless of where in the line point is when the TAB command is used."
156 line, insert a blank line and move to the default indent column of the blank
157 line. If nil, then no indentation occurs, and NEWLINE does the usual
213 '(comment-single-line comment-multi-line-1 comment-multi-line-2)
316 (defconst delphi-spaces-re (concat "[" delphi-space-chars "]*"))
317 (defconst delphi-leading-spaces-re (concat "^" delphi-spaces-re))
456 (defun delphi-next-line-start (&optional from-point)
457 ;; Returns the first point of the next line.
461 (end-of-line)
480 '((comment-single-line . "//")
481 (comment-multi-line-1 . "{")
482 (comment-multi-line-2 . "(*")
489 '((comment-single-line . "\n")
490 (comment-multi-line-1 . "}")
491 (comment-multi-line-2 . "*)")
499 '((comment-single-line . "\n")
500 (comment-multi-line-1 . "}")
501 (comment-multi-line-2 . "\\*)")
547 (re-search-forward pattern limit 'goto-limit-on-fail)
570 ((re-search-forward
574 (let ((kind (cond ((match-beginning 1) 'comment-single-line)
575 ((match-beginning 2) 'comment-multi-line-1)
576 ((match-beginning 3) 'comment-multi-line-2)
754 ;; line after the change.
757 (progn (goto-char change-end) (end-of-line) (point)))
803 (defun delphi-line-indent-of (from-token &optional offset &rest terminators)
804 ;; Returns the column of first non-space character on the token's line, plus
817 ;; Stop at the beginning of the line or an open group.
826 (defun delphi-stmt-line-indent-of (from-token &optional offset)
827 ;; Like `delphi-line-indent-of' except is also stops on a use clause, and
847 ;; Stop at the beginning of the line, an open group, or a use clause
858 ;; There is nothing following the ( or [. Indent from its line.
859 (delphi-stmt-line-indent-of token delphi-indent-level))))
970 (if (not (eq 'comment-single-line (delphi-token-kind comment)))
978 ((eq kind 'comment-single-line)
988 (if (not (eq 'comment-single-line (delphi-token-kind comment)))
996 ((eq kind 'comment-single-line)
1002 (defun delphi-on-first-comment-line (comment)
1003 ;; Returns true if the current point is on the first line of the comment.
1008 (end-of-line)
1015 (delphi-on-first-comment-line comment))
1020 (beginning-of-line)
1021 (cond ((eq 'comment-single-line kind)
1025 ((looking-at (concat delphi-leading-spaces-re
1027 ;; Indent multi-line comment terminators to the comment start.
1117 (throw 'done (delphi-stmt-line-indent-of last-token 0)))
1130 (if last-colon (delphi-line-indent-of last-colon)
1131 (delphi-line-indent-of token delphi-case-label-indent))))
1142 (delphi-line-indent-of token delphi-indent-level))
1144 (delphi-line-indent-of token))))
1148 (throw 'done (delphi-stmt-line-indent-of token delphi-indent-level)))
1156 (delphi-line-indent-of last-token)
1158 (delphi-line-indent-of token delphi-indent-level))))
1166 (delphi-line-indent-of token)
1169 (delphi-line-indent-of last-token delphi-indent-level))))
1173 (throw 'done (delphi-stmt-line-indent-of token 0)))
1231 (delphi-stmt-line-indent-of token delphi-compound-block-indent)))
1241 (delphi-stmt-line-indent-of token delphi-indent-level)))
1246 (delphi-stmt-line-indent-of token delphi-indent-level)))
1252 (throw 'done (delphi-line-indent-of token 0)))
1308 (delphi-stmt-line-indent-of token 0))
1328 (delphi-stmt-line-indent-of
1331 (delphi-stmt-line-indent-of
1339 (delphi-stmt-line-indent-of
1345 (throw 'done (delphi-stmt-line-indent-of
1388 (throw 'done (delphi-stmt-line-indent-of token delphi-indent-level)))
1392 (throw 'done (delphi-stmt-line-indent-of
1398 (delphi-line-indent-of last-token delphi-indent-level)))
1400 ;; A ":" we indent relative to its line beginning. If we are in a
1410 (delphi-line-indent-of token delphi-indent-level 'semicolon))))
1447 ;; Returns the corrected indentation for the current line.
1450 ;; Move to the first token on the line.
1451 (beginning-of-line)
1481 ((delphi-stmt-line-indent-of block-start 0)))))
1485 (delphi-stmt-line-indent-of (delphi-else-start token) 0))
1493 (defun delphi-indent-line ()
1494 "Indent the current line according to the current language construct. If
1500 (line-start nil)
1503 (beginning-of-line)
1504 (setq line-start (point))
1514 (delete-region line-start (point))
1636 "Terminate the current line with a newline and indent the next, unless
1643 ;; Indent both the (now) previous and current line first.
1645 (previous-line 1)
1646 (delphi-indent-line))
1647 (delphi-indent-line)))
1651 "Indent the current line or insert a TAB, depending on the value of
1652 `delphi-tab-always-indents' and the current line position."
1655 ;; Or we are before the first non-space character on the line.
1657 (delphi-indent-line)
1782 (content-prefix-re delphi-leading-spaces-re)
1785 (when (eq 'comment-single-line comment-kind)
1792 content-prefix-re (concat delphi-leading-spaces-re
1794 delphi-spaces-re)
1814 (re-search-forward content-prefix-re nil t))
1818 ;; add an extra line to prevent the fill from doing it for us.
1831 (end-of-line) ; Don't reset the first line.
1835 (re-search-forward "^" nil t))
1851 (defun delphi-new-comment-line ()
1856 (if (not (eq 'comment-single-line (delphi-token-kind comment)))
1921 '("\M-j" delphi-new-comment-line)
1934 \\[delphi-tab]\t- Indents the current line for Delphi code.
1937 \\[delphi-new-comment-line]\t- If in a // comment, do a new comment line.
1950 Non-nil means TAB in Delphi mode should always reindent the current line,
1951 regardless of where in the line point is when the TAB command is used.
1954 line, insert a blank line and move to the default indent column of the
1955 blank line.
1989 (list '(indent-line-function delphi-indent-line)
1990 '(comment-indent-function delphi-indent-line)