Mercurial > emacs
changeset 22663:54d865200af8
(fortran-mode-map) <menu>: Tweak the imenu
menu entry.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 02 Jul 1998 19:12:18 +0000 |
| parents | f0078b7750b7 |
| children | b685e806f640 |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Thu Jul 02 17:47:49 1998 +0000 +++ b/lisp/progmodes/fortran.el Thu Jul 02 19:12:18 1998 +0000 @@ -405,8 +405,7 @@ (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 @@ ["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