Lines Matching defs:statement
51 ;; * Implement insertion and removal of statement continuations in
119 `fortran-minimum-statement-indent-fixed' (if `indent-tabs-mode' nil), or
120 `fortran-minimum-statement-indent-tab' (if `indent-tabs-mode' non-nil);
157 (defcustom fortran-minimum-statement-indent-fixed 6
158 "*Minimum statement indentation for fixed format continuation style."
162 (defcustom fortran-minimum-statement-indent-tab (max tab-width 6)
163 "*Minimum statement indentation for TAB format continuation style."
189 Also, from an ENDDO statement blink on matching DO [WHILE] statement."
270 "Regexp matching the start of an IF statement.")
430 ;; Possible statement continuation:
455 ;; Naked END statement.
463 "^[ \t0-9]*\\(" ; statement number
467 ;; IF ( ... ) foo is not a block, but a single statement.
502 ;; We might like `;' to be punctuation (g77 multi-statement
543 (define-key map "\C-c\C-p" 'fortran-previous-statement)
544 (define-key map "\C-c\C-n" 'fortran-next-statement)
722 `fortran-minimum-statement-indent-fixed' (fixed format) or
723 `fortran-minimum-statement-indent-tab' (TAB format),
731 `fortran-minimum-statement-indent-fixed'
733 `fortran-minimum-statement-indent-tab'
743 Non-nil causes \\[fortran-indent-line] on an ENDIF (or ENDDO) statement
1049 fortran-minimum-statement-indent-tab
1050 fortran-minimum-statement-indent-fixed) (current-column))
1110 (defun fortran-previous-statement ()
1111 "Move point to beginning of the previous Fortran statement.
1112 Returns 'first-statement if that statement is the first
1113 non-comment Fortran statement in the file, and nil otherwise.
1116 (let (not-first-statement continue-test)
1126 (while (and (setq not-first-statement (zerop (forward-line -1)))
1135 (not not-first-statement))
1136 (message "Incomplete continuation statement."))
1138 (fortran-previous-statement))
1139 ((not not-first-statement)
1140 'first-statement))))
1142 (defun fortran-next-statement ()
1143 "Move point to beginning of the next Fortran statement.
1144 Returns 'last-statement if that statement is the last
1145 non-comment Fortran statement in the file, and nil otherwise.
1148 (let (not-last-statement)
1150 (while (and (setq not-last-statement
1157 (if (not not-last-statement)
1158 'last-statement)))
1161 "Return non-nil if at the start of a line with an IF ... THEN statement."
1241 "From a line matching REGEX, blink matching KEYWORD statement line.
1269 "From an ENDIF or ELSE statement, blink the matching IF statement."
1274 "From an ENDDO statement, blink the matching DO or DO WHILE statement."
1302 (not (eq (fortran-next-statement) 'last-statement))
1331 (not (eq (fortran-previous-statement) 'first-statement))
1372 (not (eq (fortran-next-statement) 'last-statement))
1404 ;; May be sitting on multi-line if-then statement, first
1405 ;; move to beginning of current statement. Note:
1406 ;; `fortran-previous-statement' moves to previous statement
1407 ;; *unless* current statement is first one. Only move
1408 ;; forward if not first-statement.
1409 (if (not (eq (fortran-previous-statement) 'first-statement))
1410 (fortran-next-statement))
1433 (not (eq (fortran-previous-statement) 'first-statement))
1523 (let (icol first-statement (case-fold-search t)
1524 (fortran-minimum-statement-indent
1526 fortran-minimum-statement-indent-tab
1527 fortran-minimum-statement-indent-fixed)))
1529 (setq first-statement (fortran-previous-statement))
1530 (if first-statement
1531 (setq icol fortran-minimum-statement-indent)
1533 (setq icol fortran-minimum-statement-indent)
1569 (setq icol fortran-minimum-statement-indent)))))
1575 (setq fortran-minimum-statement-indent 0 icol 0))
1580 (setq icol (+ fortran-minimum-statement-indent
1582 (setq fortran-minimum-statement-indent 0))
1593 (first-statement)
1618 (not (= icol fortran-minimum-statement-indent)))
1620 an unclosed block." fortran-minimum-statement-indent))))))
1621 (max fortran-minimum-statement-indent icol)))
1690 fortran-minimum-statement-indent-tab
1691 fortran-minimum-statement-indent-fixed))
1703 ;; Put body of statement where specified.
1725 "When called from a numbered statement, return t if matching DO is found.
1790 ;; Move to start of current statement.
1791 (fortran-next-statement)
1792 (fortran-previous-statement)
1975 "Fill surrounding comment block as paragraphs, else fill statement.
1978 argument JUSTIFY, otherwise `fortran-fill-statement' is called.
1982 (fortran-fill-statement)
1985 (defun fortran-fill-statement ()
1986 "Fill a Fortran statement up to `fill-column'."
1996 ;; Find beginning of statement.
1997 (fortran-next-statement)
1998 (fortran-previous-statement)
2006 (fortran-previous-statement)))