# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 878339837 0
# Node ID cdaddfc03fe867f48957d31a04404a214905183a
# Parent  44f91b648e0388530c9c65c50f8493cc749dedc4
(fortran-imenu-generic-expression): New variable.
(fortran-mode): Use it.

diff -r 44f91b648e03 -r cdaddfc03fe8 lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Fri Oct 31 23:09:43 1997 +0000
+++ b/lisp/progmodes/fortran.el	Fri Oct 31 23:17:17 1997 +0000
@@ -369,6 +369,33 @@
 (defvar fortran-font-lock-keywords fortran-font-lock-keywords-1
   "Default expressions to highlight in Fortran mode.")
 
+(defvar fortran-imenu-generic-expression
+    (list
+     (list
+      nil
+      ;; Lines are: 1. leading whitespace; 2. function declaration
+      ;; with optional type, e.g. `real', `double precision', [which
+      ;; will be fooled by `end function' allowed by G77]; 3. untyped
+      ;; declarations; 4. the name to index.
+      "^\\s-+\\(\
+\\(\\sw\\|\\s-\\)*\\<function\\|\
+subroutine\\|entry\\|block\\s-*data\\|program\\)[ \t]+\
+\\(\\sw+\\)"
+      3))
+  "imenu generic expression for `imenu-ci-deafult-create-index-function'.")
+(setq fortran-imenu-generic-expression
+    (list
+     (list
+      nil
+      ;; Lines are: 1. leading whitespace; 2. function declaration
+      ;; with optional type, e.g. `real', `double precision', [which
+      ;; will be fooled by `end function' allowed by G77]; 3. untyped
+      ;; declarations; 4. the variable to index.
+      "^\\s-+\\(\
+\\(\\sw\\|\\s-\\)*\\<function\\|\
+subroutine\\|entry\\|block\\s-*data\\|program\\)[ \t]+\
+\\(\\sw+\\)"
+      3)))
 
 (defvar fortran-mode-map () 
   "Keymap used in Fortran mode.")
@@ -587,6 +614,8 @@
   (make-local-variable 'fortran-tab-mode-string)
   (setq fortran-tab-mode-string " TAB-format")
   (setq indent-tabs-mode (fortran-analyze-file-format))
+  (make-local-variable 'imenu-generic-expression)
+  (setq imenu-generic-expression fortran-imenu-generic-expression)
   (run-hooks 'fortran-mode-hook))
 
 (defun fortran-comment-hook ()