From: Markus Rost Date: Thu, 3 Oct 2002 18:20:27 +0000 (+0000) Subject: (ada-stmt-add-to-ada-menu): Handle the menu pseudo-keys generated by X-Git-Tag: ttn-vms-21-2-B4~12949 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=748ef79d225369c4cfe84bc0361d1cee16443084;p=emacs.git (ada-stmt-add-to-ada-menu): Handle the menu pseudo-keys generated by easymenu which are lowercase in Emacs 21.4. --- 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)