[Emacs-diffs] /srv/bzr/emacs/trunk r106048: Small fix for f90-next-statement.

[Glenn Morris]

------------------------------------------------------------
revno: 106048
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2011-10-11 00:27:46 -0700
message:
  Small fix for f90-next-statement.
  
  * lisp/progmodes/f90.el (f90-next-statement):
  Ignore preprocessor lines, like f90-previous-statement does.
modified:
  lisp/ChangeLog
  lisp/progmodes/f90.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-10-11 05:41:39 +0000
+++ b/lisp/ChangeLog    2011-10-11 07:27:46 +0000
@@ -1,8 +1,13 @@
+2011-10-11  Glenn Morris  <address@hidden>
+
+       * progmodes/f90.el (f90-next-statement): Ignore preprocessor lines,
+       like f90-previous-statement does.
+
 2011-10-11  Thierry Volpiatto  <address@hidden>
 
-       * 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  <address@hidden>
 
        * minibuffer.el (completion-file-name-table): Fix last change,

=== modified file 'lisp/progmodes/f90.el'
--- a/lisp/progmodes/f90.el     2011-10-08 21:52:08 +0000
+++ b/lisp/progmodes/f90.el     2011-10-11 07:27:46 +0000
@@ -1578,7 +1578,7 @@
     (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 ()