Commit e8e98f20 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 332b907c
......@@ -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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment