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)))))