# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1019963871 0
# Node ID fc042127981b014c34413f3c66813dcb383ecd09
# Parent  f56cd90c95335d46c82367033c78ac75398c0b9e
(ada-add-ada-menu): Menu pseudo-keys generated by easymenu are now lowercase.

diff -r f56cd90c9533 -r fc042127981b lisp/progmodes/ada-xref.el
--- a/lisp/progmodes/ada-xref.el	Sat Apr 27 23:18:21 2002 +0000
+++ b/lisp/progmodes/ada-xref.el	Sun Apr 28 03:17:51 2002 +0000
@@ -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 @@
 	)
     
     ;; 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)