mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
pseudo-keys generated by easymenu which are lowercase in Emacs 21.4.
This commit is contained in:
Markus Rost 2002-10-03 18:21:34 +00:00
parent 748ef79d22
commit c4b3db1ad6
2 changed files with 21 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/ChangeLog
View file

@ -1,3 +1,12 @@
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.

16
lisp/progmodes/ada-xref.el
View file

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