The File menu has recently been renamed from 'files to 'file in Emacs
CVS. This has revealed a dependancy in JDEE that can easily be fixed
by using menu-bar-file-menu (which has existed since at least 19.27)
which also simplifies the code a little:
*** jde.el-orig Fri Oct 29 00:43:02 2004
--- jde.el Wed Nov 10 23:09:59 2004
***************
*** 1247,1258 ****
(when (fboundp 'add-submenu)
(add-submenu '("File") val "Insert File...")))
(let* ((mb (assq 'menu-bar global-map))
- (files (assq 'files mb))
(menu (if (fboundp 'easy-menu-create-menu)
(easy-menu-create-menu
(car val) (cdr val))))
(menu-name (car val)))
! (define-key-after (cdr (cdr files)) [jde-new]
(cons menu-name menu)
'open-file)))))
--- 1247,1257 ----
(when (fboundp 'add-submenu)
(add-submenu '("File") val "Insert File...")))
(let* ((mb (assq 'menu-bar global-map))
(menu (if (fboundp 'easy-menu-create-menu)
(easy-menu-create-menu
(car val) (cdr val))))
(menu-name (car val)))
! (define-key-after menu-bar-file-menu [jde-new]
(cons menu-name menu)
'open-file)))))
