From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Thu, 3 Oct 2002 18:21:34 +0000 (+0000)
Subject: (ada-xref-update-project-menu,ada-add-ada-menu):  Handle the menu
X-Git-Tag: ttn-vms-21-2-B4~12948
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4b3db1ad656c8d53520474db4fcf45f643bbe81;p=emacs.git

(ada-xref-update-project-menu,ada-add-ada-menu):  Handle the menu
pseudo-keys generated by easymenu which are lowercase in Emacs 21.4.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4496b3111b6..b6cb9a9843d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 9a1f458848f..0390ac04854 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))
       )
     )