From 748ef79d225369c4cfe84bc0361d1cee16443084 Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Thu, 3 Oct 2002 18:20:27 +0000 Subject: [PATCH] (ada-stmt-add-to-ada-menu): Handle the menu pseudo-keys generated by easymenu which are lowercase in Emacs 21.4. --- lisp/progmodes/ada-stmt.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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) -- 2.39.2