(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 4496b3111b6a06ab97092e7f7e92c3d195de0275..b6cb9a9843de81b6f7b19bc081a1263e40503846 100644 (file)
--- 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 9a1f458848f12b724abcf19b14c9a603adddbad9..0390ac048549b405d67d97f85bcabd0365a97e0b 100644 (file)
--- 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))
       )
     )