Mercurial > emacs
changeset 44909:fc042127981b
(ada-add-ada-menu): Menu pseudo-keys generated by easymenu are now lowercase.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 28 Apr 2002 03:17:51 +0000 |
| parents | f56cd90c9533 |
| children | 5b9979baa758 |
| files | lisp/progmodes/ada-xref.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/ada-xref.el Sat Apr 27 23:18:21 2002 +0000 +++ b/lisp/progmodes/ada-xref.el Sun Apr 28 03:17:51 2002 +0000 @@ -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 @@ ) ;; 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)