mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

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

Browse Source 
easymenu which are lowercase in Emacs 21.4.
This commit is contained in:
Markus Rost 2002-10-03 18:20:27 +00:00
parent 0331883833
commit 748ef79d22
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/progmodes/ada-stmt.el
View File

@ -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)