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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0c20df2ac02aedff39fc10c1358b3e51ceecaf30..52fe70d3f907562a7b9e18d04e068a76526cc1de 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,11 @@
        * international/mule-cmds.el (read-language-name): Take of
        non-list values.
 
+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

diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 5cf2c2e75b9a1e3b4a31d907f70f7589023acb34..94eb7ef26e531d65e702a36357f1f15a947c7b0b 100644 (file)
--- 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)