(ada-add-ada-menu): Menu pseudo-keys generated by easymenu are now lowercase.

2 files changed, 11 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0c20df2ac02..52fe70d3f90 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,11 @@
 
 2002-04-27  Richard M. Stallman  <rms@gnu.org>
 
+        * progmodes/ada-xref.el (ada-add-ada-menu): Menu pseudo-keys
+        generated by easymenu are now lowercase.
+
+2002-04-27  Richard M. Stallman  <rms@gnu.org>
+
         * menu-bar.el (menu-bar-update-buffers): Add menu items
         Next Buffer and Previous Buffer.
 
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 5cf2c2e75b9..94eb7ef26e5 100644
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -7,7 +7,7 @@
 ;;      Rolf Ebert <ebert@inf.enst.fr>
 ;;      Emmanuel Briot <briot@gnat.com>
 ;; Maintainer: Emmanuel Briot <briot@gnat.com>
-;; Ada Core Technologies's version:   $Revision: 1.150 $
+;; Ada Core Technologies's version:   $Revision: 1.9 $
 ;; Keywords: languages ada xref
 
 ;; This file is part of GNU Emacs.
@@ -620,11 +620,11 @@ name as was passed to `ada-create-menu'."
         )
     
     ;; for Emacs
-    (let* ((menu         (lookup-key ada-mode-map [menu-bar Ada]))
-           (edit-menu    (lookup-key ada-mode-map [menu-bar Ada Edit]))
-           (help-menu    (lookup-key ada-mode-map [menu-bar Ada Help]))
-           (goto-menu    (lookup-key ada-mode-map [menu-bar Ada Goto]))
-           (options-menu (lookup-key ada-mode-map [menu-bar Ada Options])))
+    (let* ((menu         (lookup-key ada-mode-map [menu-bar ada]))
+           (edit-menu    (lookup-key ada-mode-map [menu-bar ada edit]))
+           (help-menu    (lookup-key ada-mode-map [menu-bar ada help]))
+           (goto-menu    (lookup-key ada-mode-map [menu-bar ada goto]))
+           (options-menu (lookup-key ada-mode-map [menu-bar ada options])))
 
       (define-key-after menu [Check] '("Check file" . ada-check-current)
         'Customize)