Lines Matching defs:statements
109 "*Indentation of Delphi statements with respect to containing block. E.g.
118 "*Extra indentation for blocks in compound statements. E.g.
223 (defconst delphi-routine-statements
227 (defconst delphi-body-expr-statements '(if while for on)
231 (defconst delphi-expr-statements `(case ,@delphi-body-expr-statements)
232 "Expression statements contain expressions after their keyword.")
234 (defconst delphi-body-statements `(else ,@delphi-body-expr-statements)
247 (defconst delphi-block-statements
251 (defconst delphi-mid-block-statements
255 (defconst delphi-end-block-statements `(end until)
258 (defconst delphi-match-block-statements
259 `(,@delphi-end-block-statements ,@delphi-mid-block-statements)
278 (defconst delphi-unit-statements
283 `(,@delphi-decl-sections ,@delphi-unit-statements
284 ,@delphi-routine-statements)
291 (defconst delphi-enclosing-statements
292 `(,@delphi-block-statements ,@delphi-mid-block-statements
293 ,@delphi-decl-sections ,@delphi-use-clauses ,@delphi-routine-statements)
296 (defconst delphi-previous-statements
297 `(,@delphi-unit-statements ,@delphi-routine-statements)
300 (defconst delphi-previous-enclosing-statements
301 `(,@delphi-block-statements ,@delphi-mid-block-statements
306 `(,@delphi-block-statements ,@delphi-mid-block-statements)
310 `(,@delphi-decl-sections ,@delphi-routine-statements)
828 ;; colons that precede statements (i.e. case labels).
838 `(,@delphi-block-statements
839 ,@delphi-expr-statements)))
905 ((delphi-is token-kind delphi-end-block-statements)
909 ((delphi-is token-kind delphi-block-statements) (throw 'done token))
935 ((delphi-is token-kind delphi-end-block-statements)
1063 (when (delphi-is (delphi-token-kind token) delphi-block-statements)
1091 ((delphi-is token-kind delphi-end-block-statements)
1153 ((delphi-is token-kind delphi-previous-enclosing-statements)
1165 ;; c = class; or c = class of T; are previous statements.
1168 ;; statements.
1172 ((delphi-is token-kind delphi-previous-statements)
1201 ((delphi-is token-kind delphi-end-block-statements)
1215 ((and (delphi-is token-kind delphi-routine-statements)
1226 ;; Enclosing body statements are delimiting. We indent the compound
1229 (delphi-is token-kind delphi-body-statements))
1236 delphi-block-statements)
1254 ;; Unit statements mean we indent right to the left.
1255 ((delphi-is token-kind delphi-unit-statements) (throw 'done 0))
1291 ((delphi-is token-kind delphi-end-block-statements)
1304 (delphi-is token-kind delphi-expr-statements))
1334 ;; Body expression statements are enclosing. Indent from the
1337 ((delphi-is token-kind delphi-body-expr-statements)
1391 ((delphi-is token-kind delphi-enclosing-statements)
1460 ((delphi-is token-kind delphi-unit-statements) 0)
1470 ((delphi-is token-kind delphi-match-block-statements)
1944 Indentation of Delphi statements with respect to containing block.
1946 Extra indentation for blocks in compound statements.