143 |
|
|
144 |
;;; Code: |
;;; Code: |
145 |
|
|
|
(defconst bug-f90-mode "T.Einarsson@clab.ericsson.se" |
|
|
"Address of mailing list for F90 mode bugs.") |
|
|
|
|
146 |
;; User options |
;; User options |
147 |
|
|
148 |
(defgroup f90 nil |
(defgroup f90 nil |
1469 |
(interactive) |
(interactive) |
1470 |
(let (ctype) |
(let (ctype) |
1471 |
(cond ((f90-in-string) |
(cond ((f90-in-string) |
1472 |
(insert "&") (newline) (insert "&")) |
(insert "&\n&")) |
1473 |
((f90-in-comment) |
((f90-in-comment) |
1474 |
(setq ctype (f90-get-present-comment-type)) |
(setq ctype (f90-get-present-comment-type)) |
1475 |
(newline) |
(newline 1) |
1476 |
(insert ctype)) |
(insert ctype)) |
1477 |
(t (insert "&") |
(t (insert "&") |
1478 |
(if (not no-update) (f90-update-line)) |
(if (not no-update) (f90-update-line)) |
1479 |
(newline) |
(newline 1) |
1480 |
(if f90-beginning-ampersand (insert "&"))))) |
(if f90-beginning-ampersand (insert "&"))))) |
1481 |
(f90-indent-line)) |
(f90-indent-line)) |
1482 |
|
|