Small fix for f90-next-statement.

* lisp/progmodes/f90.el (f90-next-statement):
Ignore preprocessor lines, like f90-previous-statement does.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c84b2ea2f820a989507e25a0c2b0784b4af80917..aec57cca1cbb20e98d9a2b43c1ff3c621de063e4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,13 @@
+2011-10-11  Glenn Morris  <rgm@gnu.org>
+
+       * progmodes/f90.el (f90-next-statement): Ignore preprocessor lines,
+       like f90-previous-statement does.
+
 2011-10-11  Thierry Volpiatto  <thierry.volpiatto@gmail.com>
 
-       * lisp/eshell/eshell.el (eshell-command): History have to be saved 
-       only in interactive use to avoid error.
-       
+       * lisp/eshell/eshell.el (eshell-command): History should be saved
+       only in interactive use, to avoid error.
+
 2011-10-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * minibuffer.el (completion-file-name-table): Fix last change,

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 3d5c8a97835d0a471857a00065f339e936da172b..007203a8b213ca4f761fd748295950333cedb3cd 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -1578,7 +1578,7 @@ Return nil if no later statement is found."
     (while (and (setq not-last-statement
                       (and (zerop (forward-line 1))
                            (not (eobp))))
-                (looking-at "[ \t0-9]*\\(!\\|$\\)")))
+                (looking-at "[ \t0-9]*\\(!\\|$\\|#\\)")))
     not-last-statement))
 
 (defun f90-beginning-of-subprogram ()