From: Glenn Morris <rgm@gnu.org>
Date: Tue, 11 Oct 2011 07:27:46 +0000 (-0700)
Subject: Small fix for f90-next-statement.
X-Git-Tag: emacs-pretest-24.0.91~158
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c02ee9d6912b65d18e9ee1a3c79f7b83983c6f64;p=emacs.git

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 c84b2ea2f82..aec57cca1cb 100644
--- 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 3d5c8a97835..007203a8b21 100644
--- 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 ()