Lines Matching defs:then
324 "if" "then" "else" "endif" "elseif"
479 ;; ".*)[ \t]*then[ \t]*\\($\\|!\\)"
481 ;; right to me, because then one has neighbouring blocks that are
484 ".*\n\\([^if]*\\([^i].\\|.[^f]\\|.\\>\\)\\)\\)\\<then\\|"
1160 (defun fortran-looking-at-if-then ()
1162 ;; cf f90-looking-at-if-then.
1193 (fortran-looking-at-if-then)
1226 (fortran-looking-at-if-then)
1382 (looking-at ".*)[ \t]*then\\b[ \t]*[^ \t(=a-z0-9]")
1383 (let (then-test) ; multi-line if-then
1387 ;; Search forward for then.
1390 (setq then-test
1392 ".*then\\b[ \t]*[^ \t(=a-z0-9]")))))
1393 then-test))
1404 ;; May be sitting on multi-line if-then statement, first
1415 (or (looking-at ".*)[ \t]*then\\b[ \t]*[^ \t(=a-z0-9]")
1416 ;; Multi-line if-then.
1417 (let (then-test)
1420 ;; Search forward for then.
1423 (setq then-test
1425 ".*then\\b[ \t]*[^ \t(=a-z0-9]")))))
1426 then-test)))))
1441 (looking-at ".*)[ \t]*then\\b[ \t]*[^ \t(=a-z0-9]")
1442 (let (then-test) ; multi-line if-then
1446 ;; Search forward for then.
1449 (setq then-test
1451 (concat ".*then\\b[ \t]*"
1453 then-test))
1510 (defalias 'fortran-indent-new-line 'reindent-then-newline-and-indent)
1537 (if (or (looking-at ".*)[ \t]*then\\b[ \t]*[^ \t_$(=a-z0-9]")
1538 (let (then-test) ; multi-line if-then
1540 ;; Search forward for then.
1542 (not (setq then-test
1544 ".*then\\b[ \t]\
1546 then-test))
1869 ;; string was found above then use that, else break the line
1931 "Call `fortran-split-line'. Joins continuation lines first, then refills."