# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1033669227 0
# Node ID 1b89f0ef4d72dcd7cbee8aac783fb892389afbd0
# Parent  2626f97f0c1c004c3f233f42ad80c0c1104235fe
(ada-stmt-add-to-ada-menu):  Handle the menu pseudo-keys generated by
easymenu which are lowercase in Emacs 21.4.

diff -r 2626f97f0c1c -r 1b89f0ef4d72 lisp/progmodes/ada-stmt.el
--- a/lisp/progmodes/ada-stmt.el	Thu Oct 03 17:53:23 2002 +0000
+++ b/lisp/progmodes/ada-stmt.el	Thu Oct 03 18:20:27 2002 +0000
@@ -114,7 +114,10 @@
 					:included '(string= mode-name "Ada"))
 				  menu))
 
-      (define-key-after (lookup-key ada-mode-map [menu-bar Ada]) [Templates]
+      (define-key-after (or
+			 (lookup-key ada-mode-map [menu-bar Ada])
+			 (lookup-key ada-mode-map [menu-bar ada]))
+	[Templates]
 	(list 'menu-item
 	      "Templates"
 	      (easy-menu-create-menu "Templates" menu)