Existing comments of all types are recognized and aligned.
If the line has no comment, a side-by-side comment is inserted and aligned
if the value of comment-start is not nil.
Otherwise, a separate-line comment is inserted, on this line
or on a new line inserted before this line if this line is not blank." (interactive) (byte-code "ÆÇ È! É f Ê Ë `)Â#\" Ì f * ÈÍ!?< Ë Î Ï j cf ÈÍ!G Î P Ç ÐcÑÒ! cÓ;` ÔHa Õ iZ\"" [comment-line-start-skip comment-start-skip t comment-start comment-line-start fortran-comment-indent-char nil beginning-of-line looking-at fortran-indent-line re-search-forward end-of-line indent-for-comment "^[ ]*$" delete-horizontal-space fortran-comment-hook "
List the currently defined abbrevs in Fortran mode." (interactive) (byte-code "ÁÂÃ!ÄÅ!ÆÇ\"ÂÈ!" [fortran-mode-abbrev-table nil message "Listing abbrev table..." require abbrevlist list-one-abbrev-table "*Help*" "Listing abbrev table...done"] 5))
(defun fortran-column-ruler nil "\
Inserts a column ruler momentarily above current line, till next keystroke.
The ruler is defined by the value of fortran-column-ruler.
The key typed is executed unless it is SPC." (interactive) (byte-code "ÁÂÃ `)ÁÄ$" [fortran-column-ruler nil momentary-string-display beginning-of-line "Type SPC or any command to erase ruler."] 6))
(defun fortran-window-create nil "\
Makes the window 72 columns wide." (interactive) (byte-code "ÂÃÄÅ!)ÆÇ!ÈÉÁ\"ÊË !" [window-min-width t nil 2 split-window-horizontally 73 other-window 1 switch-to-buffer " fortran-window-extra" select-window previous-window] 6))
(defun fortran-split-line nil "\
Break line at point and insert continuation marker and alignment." (interactive) (byte-code "ÃÄ Å Æ!) ÇÈ É# ÇÊ
CHARS is like the inside of a [...] in a regular expression
except that ] is never special and quotes ^, - or ." (interactive "*s") (byte-code "ÁÂ!Ã`Ä!`\"" [chars nil skip-chars-backward delete-region skip-chars-forward] 5))
(defun fortran-electric-line-number (arg) "\
Self insert, but if part of a Fortran line number indent it automatically.
Auto-indent does not happen if a numeric arg is used." (interactive "P") (byte-code "Ä ? Å!4 ÆÇÈ `)Â#)# ÉÊ!+ c4 ËÌ! cÍ " [arg fortran-electric-line-number t last-command-char nil self-insert-command re-search-backward "[^ 0-9]" beginning-of-line looking-at "[0-9]" skip-chars-backward " " fortran-indent-line] 7))
(defun beginning-of-fortran-subprogram nil "\
Moves point to the beginning of the current fortran subprogram." (interactive) (byte-code "ÂÁÃÄ!ÅÆÂÇ#ÈÆ! ÉÊ!)" [case-fold-search t nil beginning-of-line -1 re-search-backward "^[ 0-9]*end\\b[ ]*[^ =(a-z]" move looking-at forward-line 1] 5))
(defun end-of-fortran-subprogram nil "\
Moves point to the end of the current fortran subprogram." (interactive) (byte-code "ÂÁÃÄ!ÅÆÂÇ#ÈÉ!bÊË!)" [case-fold-search t nil beginning-of-line 2 re-search-forward "^[ 0-9]*end\\b[ ]*[^ =(a-z]" move match-beginning 0 forward-line 1] 5))
(defun mark-fortran-subprogram nil "\
Put mark at end of fortran subprogram, point at beginning.
The marks are pushed." (interactive) (byte-code "ÀÁ Â`!Ã " [nil end-of-fortran-subprogram push-mark beginning-of-fortran-subprogram] 4))
(defun fortran-previous-statement nil "\
Moves point to beginning of the previous fortran statement.
Returns 'first-statement if that statement is the first
non-comment Fortran statement in the file, and nil otherwise." (interactive) (byte-code "ÅÅÅÆ ÇÈÉÊ
!!P! ÇË!ÌÍ!ÎU < Ç !< ÇÏ!< ÇË!< ÇÈ P! D Å K ?T ÐÑ!c ] Ò c ? c Ó*" [not-first-statement continue-test fortran-continuation-char comment-line-start-skip comment-start-skip nil beginning-of-line looking-at "[ ]*" regexp-quote char-to-string " [^ 0
Indents current fortran line based on its contents and on previous lines." (interactive) (byte-code "ÃÄ Å Æ U? ÇÈ`É\\Á# Ê ?' Ë!9 Å Ç
Ì `)Í# 9 Î )iW D Ï!)" [cfi t comment-start-skip nil calculate-fortran-indent beginning-of-line fortran-current-line-indentation re-search-forward "^[ ]*[0-9]+" 4 fortran-line-number-indented-correctly-p fortran-indent-to-column end-of-line move fortran-indent-comment move-to-column] 12))
(defun fortran-indent-subprogram nil "\
Properly indents the Fortran subprogram which contains point." (interactive) (byte-code "ÀÁ ÂÃ!Ä`Å À#)ÂÆ!" [nil mark-fortran-subprogram message "Indenting subprogram..." indent-region mark "Indenting subprogram...done."] 7))
(defun calculate-fortran-indent nil "\
Calculates the fortran indent column based on previous lines." (byte-code "ÎÎÃÏ `eU\" & Ð ÑÒ!ÓÔ!d ÓÕ!X Î Ö×!ØU M ÓÙ! M ÓÚ!? U Î9 ) a \\ ÓÛ!s \\ ÓÜ! \\)Ý ÓÞ!?Ó!° ß=¢
Return t if current line's line number is correctly indente.
Do not call if there is no line number." (byte-code "Á ÂÃ!iX iU ÂÄ!iÅU)" [fortran-line-number-indent beginning-of-line skip-chars-forward " " "0-9" 5] 5))
