(ada-stmt-add-to-ada-menu): Handle the menu pseudo-keys generated by

easymenu which are lowercase in Emacs 21.4.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/progmodes/ada-stmt.el b/lisp/progmodes/ada-stmt.el
index 277d5d285b3..cb9e1dcf934 100644
--- a/lisp/progmodes/ada-stmt.el
+++ b/lisp/progmodes/ada-stmt.el
@@ -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)