diff options
| author | Markus Rost <[email protected]> | 2002-10-03 18:21:34 +0000 |
|---|---|---|
| committer | Markus Rost <[email protected]> | 2002-10-03 18:21:34 +0000 |
| commit | c4b3db1ad656c8d53520474db4fcf45f643bbe81 (patch) | |
| tree | b30b13caf0e71f9c52c75cc47da9172c37efefa0 /lisp/progmodes/ada-xref.el | |
| parent | 748ef79d225369c4cfe84bc0361d1cee16443084 (diff) | |
(ada-xref-update-project-menu,ada-add-ada-menu): Handle the menu
pseudo-keys generated by easymenu which are lowercase in Emacs 21.4.
Diffstat (limited to 'lisp/progmodes/ada-xref.el')
| -rw-r--r-- | lisp/progmodes/ada-xref.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el index 9a1f458848..0390ac0485 100644 --- a/lisp/progmodes/ada-xref.el +++ b/lisp/progmodes/ada-xref.el @@ -475,10 +475,14 @@ All the directories are returned as absolute directories." (or ada-xref-project-files '(nil))) (if (not ada-xemacs) - (if (lookup-key ada-mode-map [menu-bar Ada Project]) - (setcdr (lookup-key ada-mode-map [menu-bar Ada Project]) - submenu))) - )) + (if (and (lookup-key ada-mode-map [menu-bar Ada]) + (lookup-key ada-mode-map [menu-bar Ada Project])) + (setcdr (lookup-key ada-mode-map [menu-bar Ada Project]) + submenu) + (if (lookup-key ada-mode-map [menu-bar ada Project]) + (setcdr (lookup-key ada-mode-map [menu-bar ada Project]) + submenu)))) + )) ;;------------------------------------------------------------- @@ -725,8 +729,8 @@ name as was passed to `ada-create-menu'." (not ada-tight-gvd-integration))) :button (:toggle . ada-tight-gvd-integration)) t)) - (define-key ada-mode-map [menu-bar Ada Edit rem3] '("------------" . nil)) - (define-key ada-mode-map [menu-bar Ada Edit open-file-from-src-path] + (define-key edit-menu [rem3] '("------------" . nil)) + (define-key edit-menu [open-file-from-src-path] '("Search File on source path..." . ada-find-file)) ) ) |