From: Dave Love <fx@gnu.org>
Date: Thu, 2 Jul 1998 19:12:18 +0000 (+0000)
Subject: (fortran-mode-map) <menu>: Tweak the imenu
X-Git-Tag: emacs-20.3~416
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8fbfe89f860203f767ea902dc3803a540e5702ef;p=emacs.git

(fortran-mode-map) <menu>: Tweak the imenu
menu entry.
---

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index ea537f011d8..4b54bb16ed7 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -405,8 +405,7 @@ format style.")
   (define-key fortran-mode-map "\C-c\C-p" 'fortran-previous-statement)
   (define-key fortran-mode-map "\C-c\C-n" 'fortran-next-statement)
   (define-key fortran-mode-map "\C-c\C-d" 'fortran-join-line) ; like f90
-  (define-key fortran-mode-map
-    "\M-^" 'fortran-join-line) ; basically a delete-indentation equivalent
+  (define-key fortran-mode-map "\M-^" 'fortran-join-line) ; subvert delete-indentation
   (define-key fortran-mode-map "\C-xnd" 'fortran-narrow-to-subprogram)
   ;(define-key fortran-mode-map "\t" 'fortran-indent-line)
   (define-key fortran-mode-map "0" 'fortran-electric-line-number)
@@ -457,10 +456,11 @@ format style.")
        ["Fill Statement/Comment" fill-paragraph  t]
        "----"
        ["Add imenu menu"
-        (progn (imenu-add-to-menubar "Index")
+        (progn (imenu-add-menubar-index)
                ;; Prod menu bar to update -- is this the right way?
                (menu-bar-mode 1))
-        t]))))
+        (not (and (boundp 'imenu--index-alist)
+		  imenu--index-alist))]))))
 
 (defvar fortran-mode-abbrev-table nil)
 (if fortran-mode-abbrev-table