Lines Matching +defs:end +defs:group
78 (defmacro defgroup (group val docs &rest group-attributes)
79 `(defvar ,group ,val ,docs)))
95 :group 'languages)
106 :group 'delphi)
113 end;"
115 :group 'delphi)
123 end else begin end
124 end; else
126 end;"
128 :group 'delphi)
139 end; end;"
141 :group 'delphi)
146 :group 'delphi)
152 :group 'delphi)
161 :group 'delphi)
166 :group 'delphi)
171 :group 'delphi)
176 :group 'delphi)
181 :group 'delphi)
195 destructor dispinterface div do downto else end except exports
255 (defconst delphi-end-block-statements `(end until)
256 "Statements that end block sections.")
259 `(,@delphi-end-block-statements ,@delphi-mid-block-statements)
360 (defun delphi-string-of (start end)
361 ;; Returns the buffer string from start to end.
362 (buffer-substring-no-properties start end))
371 (defun delphi-token-of (kind start end)
372 ;; Constructs a token from a kind symbol and its start/end points.
373 `[,kind ,start ,end])
387 (defsubst delphi-token-end (token)
388 ;; Returns the end point of the token.
395 (defun delphi-set-token-end (token end)
396 ;; Sets the end point of the token.
397 (if token (aset token 2 end)))
402 (delphi-string-of (delphi-token-start token) (delphi-token-end token))
406 ;; Returns true if the point p is within the token's start/end points.
407 (and (<= (delphi-token-start token) p) (< p (delphi-token-end token))))
461 (end-of-line)
486 (defun delphi-literal-end-pattern (literal-kind)
487 ;; Returns the end pattern of the literal kind.
496 ;; Returns the pattern that delimits end of the search for the literal kind.
513 (defun delphi-is-literal-end (p)
514 ;; True if the point p is at the end point of a (completed) literal.
516 (pattern (delphi-literal-end-pattern kind)))
517 (or (null kind) ; Non-literals are considered as end points.
521 ;; Special case: string delimiters are start/end ambiguous.
522 ;; We have an end only if there is some string content (at
524 (not (delphi-is-literal-end (1- p)))))
534 (at-end (delphi-is-literal-end p)))
536 (and at-start at-end)
537 (and (not at-start) (not at-end)
541 ;; Continues the search for a literal's true end point and returns the
542 ;; point past the end pattern (if found) or the limit (if not found).
559 ;; the point to its end (or the limit, if not found). The literal region is
563 (cond ((not (delphi-is-literal-end search-start))
573 ;; We found the start of a new literal. Find its end and mark it.
594 (end (next-single-property-change p 'token)))
595 (delphi-token-of kind (or start (point-min)) (or end (point-max)))))))
611 (end nil)
616 (setq end (point))
619 (setq token (delphi-token-of kind (point) end)))
656 ((delphi-char-token-at p ?\( 'open-group))
657 ((delphi-char-token-at p ?\) 'close-group))
658 ((delphi-char-token-at p ?\[ 'open-group))
659 ((delphi-char-token-at p ?\] 'close-group))
682 (let ((next (delphi-token-at (delphi-token-end token))))
735 (delphi-token-start token) (delphi-token-end token)
737 (setq p (delphi-token-end token))
747 (defun delphi-after-change (change-start change-end old-length)
753 ;; Reparse at least from the token previous to the change to the end of
757 (progn (goto-char change-end) (end-of-line) (point)))
760 (defun delphi-group-start (from-token)
761 ;; Returns the token that denotes the start of the ()/[] group.
769 ((eq 'close-group token-kind) (setq token (delphi-group-start token)))
770 ((eq 'open-group token-kind) (throw 'done token)))
775 (defun delphi-group-end (from-token)
776 ;; Returns the token that denotes the end of the ()/[] group.
784 ((eq 'open-group token-kind) (setq token (delphi-group-end token)))
785 ((eq 'close-group token-kind) (throw 'done token)))
787 ;; end not found.
815 ((eq 'close-group kind) (setq token (delphi-group-start token)))
817 ;; Stop at the beginning of the line or an open group.
818 ((delphi-is kind '(newline open-group)) (throw 'done nil))
844 ((eq 'close-group kind) (setq token (delphi-group-start token)))
846 ((delphi-is kind `(newline open-group ,@delphi-use-clauses))
847 ;; Stop at the beginning of the line, an open group, or a use clause
853 (defun delphi-open-group-indent (token last-token &optional offset)
855 (when (eq 'open-group (delphi-token-kind token))
886 ((eq 'open-group token-kind) (setq token (delphi-group-end token)))
905 ((delphi-is token-kind delphi-end-block-statements)
932 ((eq 'close-group token-kind) (setq token (delphi-group-start token)))
935 ((delphi-is token-kind delphi-end-block-statements)
984 (defun delphi-comment-block-end (comment)
985 ;; Returns the end comment token of a contiguous // comment block. If the
992 (end-comment comment)
997 (setq end-comment next-comment))
1000 end-comment)))
1008 (end-of-line)
1034 (defun delphi-is-use-clause-end (at-token last-token last-colon from-kind)
1035 ;; True if we are after the end of a uses type clause.
1085 ((eq 'open-group token-kind)
1086 (throw 'done (delphi-open-group-indent token last-token)))
1089 ((eq 'close-group token-kind) (setq token (delphi-group-start token)))
1091 ((delphi-is token-kind delphi-end-block-statements)
1093 ;; We can stop at an end token that is right up against the
1108 ((delphi-is-use-clause-end token last-token last-colon from-kind)
1195 ((eq token-kind 'open-group)
1196 (throw 'done (delphi-open-group-indent token last-token)))
1199 ((eq 'close-group token-kind) (setq token (delphi-group-start token)))
1201 ((delphi-is token-kind delphi-end-block-statements)
1203 ;; We can stop at an end token that is right up against the
1278 ((eq 'open-group token-kind)
1280 (delphi-open-group-indent
1283 ;; Keep binary operations aligned with the open group.
1288 ((eq 'close-group token-kind) (setq token (delphi-group-start token)))
1291 ((delphi-is token-kind delphi-end-block-statements)
1378 ;; end;
1456 (cond ((eq 'close-group token-kind)
1458 (delphi-indent-of (delphi-group-start token)))
1530 ;; Writes a message to the end of the specified buffer.
1603 (delphi-debug-parse-region (window-start) (window-end)))
1611 (delphi-fontify-region (window-start) (window-end) t))
1623 (goto-char (delphi-token-end (delphi-current-token)))
1633 (delphi-debug-tokenize-region (window-start) (window-end)))
1776 (end-comment (delphi-comment-block-end comment))
1778 (comment-end (delphi-token-end end-comment))
1795 comment-end (if (delphi-is-literal-end comment-end)
1797 (1- comment-end)
1798 comment-end)))
1808 (narrow-to-region content-start comment-end)
1831 (end-of-line) ; Don't reset the first line.
1839 (setq comment-end (point-max))
1848 (delphi-parse-region comment-start comment-end)
1871 ;; region. Sets the current point to the end of the token (or limit).
1874 (let ((end (min (delphi-token-end token) limit)))
1875 (set-match-data (list (delphi-token-start token) end))
1876 (goto-char end)