Jason Rumney writes:
>
> 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:
>
Hi Jason,
I have applied your patch to the JDEE source. Thanks for providing a
fix for this problem.
Paul
>
> *** 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)))))
