diff options
| author | Eli Zaretskii <[email protected]> | 2002-04-19 12:22:13 +0000 |
|---|---|---|
| committer | Eli Zaretskii <[email protected]> | 2002-04-19 12:22:13 +0000 |
| commit | b125e64388de7d5cecb60c1dffa5d7a0d472a958 (patch) | |
| tree | 45a479e359224a08c51cd042ed84232875e50a4d /lisp/progmodes | |
| parent | 9413a271ee0548b124ed45d5ee568ae24405ecf2 (diff) | |
Update maintainer.
(f90-line-continued): Recognize blank/comment lines embedded in
continuation lines.
(f90-looking-at-program-block-start): No extra indentation after
function or subroutine keyword appears in single quotes.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/f90.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 4588e8f73b..dd7fc86b3a 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc. ;; Author: Torbj\"orn Einarsson <[email protected]> -;; Maintainer: Dave Love <[email protected]> +;; Maintainer: Glenn Morris <[email protected]> ;; Keywords: fortran, f90, languages ;; This file is part of GNU Emacs. @@ -874,6 +874,8 @@ with no args, if that value is non-nil." (defsubst f90-line-continued () (save-excursion + (beginning-of-line) + (while (and (looking-at "[ \t]*\\(!\\|$\\)") (zerop (forward-line -1)))) (let ((bol (f90-get-beg-of-line))) (end-of-line) (while (f90-in-comment) @@ -994,7 +996,7 @@ Name is non-nil only for type." (looking-at "\\(module\\)[ \t]+\\(\\sw+\\)\\>")) (list (f90-match-piece 1) (f90-match-piece 2))) ((and (not (looking-at "end[ \t]*\\(function\\|subroutine\\)")) - (looking-at "[^!\"\&\n]*\\(function\\|subroutine\\)[ \t]+\\(\\sw+\\)")) + (looking-at "[^!'\"\&\n]*\\(function\\|subroutine\\)[ \t]+\\(\\sw+\\)")) (list (f90-match-piece 1) (f90-match-piece 2))))) (defsubst f90-looking-at-program-block-end () |