mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(ada-add-ada-menu): Menu pseudo-keys generated by easymenu are now lowercase.

Browse Source
This commit is contained in:
Richard M. Stallman 2002-04-28 03:18:29 +00:00
parent 332b907c86
commit e8e98f20c2
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -3,6 +3,11 @@
* international/mule-cmds.el (read-language-name): Take of
non-list values.
2002-04-27 Richard M. Stallman <rms@gnu.org>
* progmodes/ada-xref.el (ada-add-ada-menu): Menu pseudo-keys
generated by easymenu are now lowercase.
2002-04-27 Richard M. Stallman <rms@gnu.org>
* menu-bar.el (menu-bar-update-buffers): Add menu items

12
lisp/progmodes/ada-xref.el
View File

@ -7,7 +7,7 @@
;; Rolf Ebert <ebert@inf.enst.fr>
;; Emmanuel Briot <briot@gnat.com>
;; Maintainer: Emmanuel Briot <briot@gnat.com>
;; Ada Core Technologies's version: $Revision: 1.150 $
;; Ada Core Technologies's version: $Revision: 1.9 $
;; Keywords: languages ada xref
;; This file is part of GNU Emacs.
@ -620,11 +620,11 @@ name as was passed to `ada-create-menu'."
)
;; for Emacs
(let* ((menu (lookup-key ada-mode-map [menu-bar Ada]))
(edit-menu (lookup-key ada-mode-map [menu-bar Ada Edit]))
(help-menu (lookup-key ada-mode-map [menu-bar Ada Help]))
(goto-menu (lookup-key ada-mode-map [menu-bar Ada Goto]))
(options-menu (lookup-key ada-mode-map [menu-bar Ada Options])))
(let* ((menu (lookup-key ada-mode-map [menu-bar ada]))
(edit-menu (lookup-key ada-mode-map [menu-bar ada edit]))
(help-menu (lookup-key ada-mode-map [menu-bar ada help]))
(goto-menu (lookup-key ada-mode-map [menu-bar ada goto]))
(options-menu (lookup-key ada-mode-map [menu-bar ada options])))
(define-key-after menu [Check] '("Check file" . ada-check-current)
'Customize)