Lines Matching defs:open
656 ((delphi-char-token-at p ?\( 'open-group))
658 ((delphi-char-token-at p ?\[ 'open-group))
770 ((eq 'open-group token-kind) (throw 'done token)))
784 ((eq 'open-group token-kind) (setq token (delphi-group-end token)))
805 ;; any offset. We also stop if one of the terminators or an open ( or [ is
817 ;; Stop at the beginning of the line or an open group.
818 ((delphi-is kind '(newline open-group)) (throw 'done nil))
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)))
1084 ;; An open ( or [ always is an indent point.
1085 ((eq 'open-group token-kind)
1086 (throw 'done (delphi-open-group-indent token last-token)))
1195 ((eq token-kind 'open-group)
1196 (throw 'done (delphi-open-group-indent token last-token)))
1277 ;; An open ( or [ always is an indent point.
1278 ((eq 'open-group token-kind)
1280 (delphi-open-group-indent
1283 ;; Keep binary operations aligned with the open group.