(fortran-imenu-generic-expression): Change definition layout.

(fortran-mode-menu): Reinstate customize entries.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b4a951adedf012163ff24b04e6f39845ef188503..456cd09738e93fef99aa2a89ac5bf15a702c92f8 100644 (file)
--- 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 fe1850cddaa70678527dabf764ca4dee8bea969e..706817e970ea583af5ce22d0de52b10077f6b6fa 100644 (file)
--- 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)]