Lines Matching +defs:next +defs:indent
53 ;; start-string/regexp indent variable holding start-string/regexp
65 ;; Trailing comments are indented to comment-column with indent-for-comment.
86 ;; '(lambda () (setq f90-do-indent 3
87 ;; f90-if-indent 3
88 ;; f90-type-indent 3
89 ;; f90-program-indent 2
90 ;; f90-continuation-indent 5
100 ;; indent-tabs-mode nil
132 ;; f90-previous-statement f90-next-statement
135 ;; f90-indent-line f90-indent-new-line
136 ;; f90-indent-region (can be called by calling indent-region)
137 ;; f90-indent-subprogram
170 (defgroup f90-indent nil
176 (defcustom f90-do-indent 3
179 :group 'f90-indent)
181 (defcustom f90-if-indent 3
184 :group 'f90-indent)
186 (defcustom f90-type-indent 3
189 :group 'f90-indent)
191 (defcustom f90-program-indent 2
194 :group 'f90-indent)
196 (defcustom f90-continuation-indent 5
199 :group 'f90-indent)
204 :group 'f90-indent)
207 "*Regexp matching comments to indent as code."
209 :group 'f90-indent)
214 :group 'f90-indent)
453 (define-key map "\C-\M-q" 'f90-indent-subprogram)
454 (define-key map "\C-j" 'f90-indent-new-line) ; LFD equals C-j
459 (define-key map "\C-c\C-e" 'f90-next-block)
463 (define-key map "\C-c\C-n" 'f90-next-statement)
465 (define-key map "\t" 'f90-indent-line)
483 ["Indent Subprogram" f90-indent-subprogram t]
489 ["Indent Region" f90-indent-region mark-active]
759 \\[f90-indent-line] indents the current line.
760 \\[f90-indent-new-line] indents current line and creates a new\
762 \\[f90-indent-subprogram] indents the current subprogram.
772 `f90-do-indent'
774 `f90-if-indent'
776 `f90-type-indent'
778 `f90-program-indent'
781 `f90-continuation-indent'
819 (set (make-local-variable 'indent-line-function) 'f90-indent-line)
820 (set (make-local-variable 'indent-region-function) 'f90-indent-region)
824 (set (make-local-variable 'comment-indent-function) 'f90-comment-indent)
827 (setq indent-tabs-mode nil) ; auto buffer local
884 ;; cf f90-indent-line
888 ;; (f90-indent-line-no)
894 (defsubst f90-indent-to (col &optional no-line-number)
903 (indent-to col (if (zerop (current-column)) 0 1)))
948 (f90-next-statement)
991 ;; change to eg f90-calculate-indent.
1002 (defsubst f90-comment-indent ()
1004 Used for `comment-indent-function' by F90 mode.
1006 `f90-indented-comment-re' (if not trailing code) calls `f90-calculate-indent'.
1013 ;; Don't attempt to indent trailing comment as code.
1017 (f90-calculate-indent))
1040 (defsubst f90-indent-line-no ()
1078 (defun f90-get-correct-indent ()
1079 "Get correct indent for a line starting with line number.
1095 (setq icol (+ icol f90-do-indent)))
1099 (setq icol (+ icol f90-if-indent))))
1106 (setq icol (+ icol f90-do-indent)))
1110 (setq icol (+ icol f90-if-indent)))
1112 (setq icol (- icol f90-if-indent)))
1114 (setq icol (- icol f90-do-indent))))
1118 (defun f90-calculate-indent ()
1119 "Calculate the indent column based on previous statements."
1131 (f90-next-statement))
1136 f90-program-indent))
1143 f90-continuation-indent)))
1148 (setq icol (f90-get-correct-indent))
1153 (setq icol (+ icol f90-if-indent)))
1155 (setq icol (+ icol f90-do-indent)))
1157 (setq icol (+ icol f90-type-indent)))
1160 (setq icol (+ icol f90-program-indent)))))
1170 (setq icol (- icol f90-if-indent)))
1172 (setq icol (- icol f90-do-indent)))
1174 (setq icol (- icol f90-type-indent)))
1177 (setq icol (- icol f90-program-indent))))))
1195 (defun f90-next-statement ()
1196 "Move point to beginning of the next F90 statement.
1360 (defun f90-next-block (&optional num)
1361 "Move point forward to the next end or start of a code block.
1393 (f90-next-block (- (or num 1))))
1428 (defun f90-indent-line (&optional no-update)
1435 indent no-line-number)
1439 (f90-indent-line-no)
1443 (setq indent (f90-comment-indent))
1446 (setq indent (f90-calculate-indent)))
1447 (or (= indent (current-column))
1448 (f90-indent-to indent no-line-number))
1459 (defun f90-indent-new-line ()
1460 "Re-indent current line, insert a newline and indent the newline.
1466 (f90-indent-line) ; calls indent-line-no, update-line
1474 (f90-indent-line 'no-update)) ; nothing to update
1478 ;; Why is second line getting extra indent over first?
1479 (defun f90-indent-region (beg-region end-region)
1490 (progn (f90-indent-line 'no-update)
1499 (f90-indent-line 'no-update)
1505 ind-b (cond ((setq struct (f90-looking-at-do)) f90-do-indent)
1510 f90-if-indent)
1512 f90-type-indent)
1515 f90-program-indent)))
1521 (f90-indent-to (f90-comment-indent))
1523 (+ ind-curr f90-continuation-indent))
1524 (f90-indent-to (+ ind-curr f90-continuation-indent) 'no-line-no))))
1528 (f90-indent-line-no)
1532 ((looking-at "!") (setq ind-curr (f90-comment-indent)))
1535 (- ind-lev f90-if-indent)))
1537 (setq ind-curr (- ind-lev f90-program-indent)))
1539 (cond ((setq struct (f90-looking-at-do)) f90-do-indent)
1543 f90-if-indent)
1545 f90-type-indent)
1547 f90-program-indent)))
1559 (cond ((looking-at f90-end-if-re) f90-if-indent)
1560 ((looking-at "end[ \t]*do\\>") f90-do-indent)
1561 ((looking-at f90-end-type-re) f90-type-indent)
1563 f90-program-indent)))
1569 (f90-indent-to ind-curr))
1573 (f90-indent-to (f90-comment-indent))
1575 (+ ind-curr f90-continuation-indent))
1576 (f90-indent-to
1577 (+ ind-curr f90-continuation-indent) 'no-line-no)))))
1587 (defun f90-indent-subprogram ()
1588 "Properly indent the subprogram containing point."
1596 (indent-region (point) (mark) nil)
1600 (indent-region (point) (mark) nil)
1604 "Break line at point, insert continuation marker(s) and indent.
1617 (indent-according-to-mode))
1706 ;; f90-indent-region on a program block without an explicit PROGRAM
1796 (f90-indent-new-line)))
1807 (if (fboundp 'next-command-event) ; XEmacs
1808 (setq event (next-command-event)