From a8189dfe47ec8bd3e8f7e453e7e03c88695811bd Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Thu, 13 Jul 2000 17:23:28 +0000
Subject: [PATCH] (fortran-imenu-generic-expression): Change definition layout.
 (fortran-mode-menu): Reinstate customize entries.

---
 lisp/ChangeLog            |  4 ++++
 lisp/progmodes/fortran.el | 38 ++++++++++++++++++++------------------
 2 files changed, 24 insertions(+), 18 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b4a951adedf..456cd09738e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2000-07-13  Dave Love  <fx@gnu.org>
 
+	* progmodes/fortran.el (fortran-imenu-generic-expression): Change
+	definition layout.
+	(fortran-mode-menu): Reinstate customize entries.
+
 	* cus-edit.el (custom-group-menu-create, customize-menu-create):
 	Use :filter, per old XEmacs code.
 
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index fe1850cddaa..706817e970e 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -378,17 +378,19 @@ These get fixed-format comments fontified.")
   (list
    (list
     nil
-    ;; Lines below are: 1. leading whitespace; 2. function
-    ;; declaration with optional type, e.g. `real', `real*4',
-    ;; character(*), `double precision' and possible statement
-    ;; continuation; 3. untyped declarations; 4. the variable to
-    ;; index.  [This will be fooled by `end function' allowed by G77.
-    ;; Also, it assumes sensible whitespace is employed.]
-    (concat "^\\s-+\\(\
-\\(\\sw\\|\\s-\\|[*()+]\\)*\
-\\<function\\|subroutine\\|entry\\|block\\s-*data\\|program\\)\
-[ \t" fortran-continuation-string "]+\
-\\(\\sw+\\)")
+    ;; [This will be fooled by `end function' allowed by G77.  Also,
+    ;; it assumes sensible whitespace is employed.]
+    (concat
+     ;; leading whitespace:
+     "^\\s-+\\("
+     ;; function declaration with optional type, e.g. `real',
+     ;; `real*4', character(*), `double precision':
+     "\\(\\sw\\|\\s-\\|[*()+]\\)*"
+     "\\<function\\|subroutine\\|entry\\|block\\s-*data\\|program\\)"
+     ;; Possible statement continuation:
+     "[ \t" fortran-continuation-string "]+"
+     ;; Variable to index:
+     "\\(\\sw+\\)")
     3)
    ;; Un-named block data
    (list nil "^\\s-+\\(block\\s-*data\\)\\s-*$" 1))
@@ -424,13 +426,13 @@ These get fixed-format comments fontified.")
        fortran-mode-menu map ""
        `("Fortran"
 	 ["Manual" (info "(emacs)Fortran")]
-;;; This loads cus-edit as things stand -- needs to be done lazily.
-;;; 	 ,(customize-menu-create 'fortran)
-;;; 	 ["Set" Custom-set t]
-;;; 	 ["Save" Custom-save t]
-;;; 	 ["Reset to Current" Custom-reset-current t]
-;;; 	 ["Reset to Saved" Custom-reset-saved t]
-;;; 	 ["Reset to Standard Settings" Custom-reset-standard t]
+	 ["Customize" :filter (lambda (&rest junk)
+				(cdr (custom-menu-create 'fortran)))]
+	 ["Set" Custom-set t]
+	 ["Save" Custom-save t]
+	 ["Reset to Current" Custom-reset-current t]
+	 ["Reset to Saved" Custom-reset-saved t]
+	 ["Reset to Standard Settings" Custom-reset-standard t]
 	 "----"
 	 ["Toggle Auto-fill" fortran-auto-fill-mode :style toggle
 	  :selected (eq auto-fill-function 'fortran-auto-fill)]
-- 
2.39.2