# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 896095548 0
# Node ID a12c92c5f4e98dd23fa8c6c4678ec2d6a9d6ebc3
# Parent  e7ac7f644152f2abdd01fcfd5e8d5c0bea91542b
(f90-comment-indent): Don't attempt to indent trailing comment as
code.
(f90-looking-at-if-then): Don't lose with scan-lists on bad syntax.

diff -r e7ac7f644152 -r a12c92c5f4e9 lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Mon May 25 08:08:51 1998 +0000
+++ b/lisp/progmodes/f90.el	Mon May 25 11:25:48 1998 +0000
@@ -989,7 +989,8 @@
 	    (setq struct (f90-match-piece 3))
 	    (if (looking-at "\\(\\sw+\\)[ \t]*\:")
 		(setq label (f90-match-piece 1)))
-	    (goto-char (scan-lists (point) 1 0))
+	    (let ((pos (scan-lists (point) 1 0)))
+	      (and pos (goto-char pos)))
 	    (skip-chars-forward " \t")
 	    (if (or (looking-at "then\\>")
 		    (if (f90-line-continued)
@@ -1041,7 +1042,11 @@
 	((and f90-directive-comment-re
 	      (looking-at f90-directive-comment-re)) 0)
 	((looking-at (regexp-quote f90-comment-region)) 0)
-	((looking-at f90-indented-comment-re)
+	((and (looking-at f90-indented-comment-re)
+	      ;; Don't attempt to indent trailing comment as code.
+	      (save-excursion
+		(skip-chars-backward " \t")
+		(bolp)))
 	 (f90-calculate-indent))
 	(t (skip-chars-backward " \t")
 	   (max (if (bolp) 0 (1+ (current-column))) comment-column))))