Mercurial > emacs
changeset 47744:1b89f0ef4d72
(ada-stmt-add-to-ada-menu): Handle the menu pseudo-keys generated by
easymenu which are lowercase in Emacs 21.4.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Thu, 03 Oct 2002 18:20:27 +0000 |
| parents | 2626f97f0c1c |
| children | 36d9421bf776 |
| files | lisp/progmodes/ada-stmt.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)