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È cÁf¨˝!ÂG˛ ÁP˙ È—cȱ¼!È cȽ;Â`¾HÁaà 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Ê˘˙ʨ È`)´#)Å#²˚!Â+ cÁ4¸³!È 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 "´Èˋˆ˜!ȯ˘´˙#Ȩ˘!IJ˚!)Ç" [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 "¯È¯¯˘ È˙¨²˚
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\\ÉÁ½è!Ä\\É)ÈÊé Ƚê!Å?½!® ë=¢
]" "[ ]*[0-9]+" fortran-check-for-matching-do "end[ ]*if\\b" "continue\\b" "end[ ]*do\\b" "end\\b[ ]*[^ =(a-z]" message "Warning: `end' not in column %d. Probably an unclosed block."] 29))
(defun fortran-current-line-indentation nil "\
Indentation of current line, ignoring Fortran line number or continuation.
This is the column position of the first non-whitespace character
aside from the line number and/or column 5 line-continuation character.
For comment lines, returns indentation of the first
non-indentation text within the comment." (byte-code "ʈ Ș! ¯˘!bÈ˙ ; Á ¨ !!Á0˜²!Â-¯˘!bÁ0˚¸!È˙³!Èi)Ç" [comment-line-start-skip fortran-comment-indent-char t beginning-of-line looking-at match-end 0 skip-chars-forward char-to-string " [^ 0
]" move-to-column 5 " "] 10))
(defun fortran-indent-to-column (col) "\
Indents current line with spaces to column COL.
notes: 1) A non-zero/non-blank character in column 5 indicates a continuation
line, and this continuation character is retained on indentation;
2) If fortran-continuation-char is the first non-whitespace character,
this is a continuation line;
3) A non-continuation line which has a number as the first
non-whitespace character is a numbered line." (byte-code "Ê˚ ȸ!Â2 Ä/ ; ³HÁ ˝³!bÈ˛ˇ—
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))
