From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 18 Nov 1993 10:03:14 +0000 (+0000)
Subject: (calculate-fortran-indent): Fixup regexp for where statements.
X-Git-Tag: emacs-19.34~10786
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f93f92f169385cd8181a99b74f27c93e0e9399f0;p=emacs.git

(calculate-fortran-indent): Fixup regexp for where statements.
---

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 2f90cea6e34..7c3d517eff5 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -4,7 +4,7 @@
 
 ;; Author: Michael D. Prange <prange@erl.mit.edu>
 ;; Maintainer: bug-fortran-mode@erl.mit.edu
-;; Version 1.30.2 (June 1, 1993)
+;; Version 1.30.3 (November 16, 1993)
 ;; Keywords: languages
 
 ;; This file is part of GNU Emacs.
@@ -46,7 +46,7 @@
 
 ;;; Bugs to bug-fortran-mode@erl.mit.edu
 
-(defconst fortran-mode-version "version 1.30.2")
+(defconst fortran-mode-version "version 1.30.3")
 
 ;;; Code:
 
@@ -807,7 +807,7 @@ An abbrev before point is expanded if `abbrev-mode' is non-nil."
 		 (setq icol (+ icol fortran-if-indent)))
 		((looking-at "\\(otherwise\\|else[ \t]*where\\)\\b")
 		 (setq icol (+ icol fortran-if-indent)))
-		((looking-at "where.*(.*)[ \t]*\n")
+		((looking-at "where[ \t]*(.*)[ \t]*\n")
 		 (setq icol (+ icol fortran-if-indent)))
 		((looking-at "do\\b")
 		 (setq icol (+ icol fortran-do-indent)))