Commit c4b3db1a authored by Markus Rost's avatar Markus Rost
Browse files

(ada-xref-update-project-menu,ada-add-ada-menu): Handle the menu

pseudo-keys generated by easymenu which are lowercase in Emacs 21.4.
parent 748ef79d
2002-10-03 Markus Rost <rost@math.ohio-state.edu>
* progmodes/ada-stmt.el (ada-stmt-add-to-ada-menu): Handle the
menu pseudo-keys generated by easymenu which are lowercase in
Emacs 21.4.
* progmodes/ada-xref.el
(ada-xref-update-project-menu,ada-add-ada-menu): Ditto.
2002-10-03 John Paul Wallington <jpw@shootybangbang.com>
* frame.el (delete-frame-hook): Variable alias for
......@@ -22,7 +31,8 @@
2002-10-02 Markus Rost <rost@math.ohio-state.edu>
* progmodes/sh-script.el (sh-alias-alist): Use append instead of nconc.
* progmodes/sh-script.el (sh-alias-alist): Use append instead of
nconc.
* startup.el (normal-top-level): Reset standard-value property of
`user-full-name' here.
......
......@@ -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))
)
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment