Mercurial > emacs
comparison lisp/progmodes/ada-mode.el @ 11869:ab2739454f2a
(ada-add-ada-menu): Fix args to easy-menu-define.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 22 May 1995 21:42:13 +0000 |
parents | 3cf67df24e7f |
children | a75524689022 |
comparison
equal
deleted
inserted
replaced
11868:129b45ef421b | 11869:ab2739454f2a |
---|---|
106 | 106 |
107 | 107 |
108 ;;; LCD Archive Entry: | 108 ;;; LCD Archive Entry: |
109 ;;; ada-mode|Rolf Ebert|<ebert@inf.enst.fr> | 109 ;;; ada-mode|Rolf Ebert|<ebert@inf.enst.fr> |
110 ;;; |Major-mode for Ada | 110 ;;; |Major-mode for Ada |
111 ;;; |$Date: 1995/04/04 03:00:59 $|$Revision: 1.4 $| | 111 ;;; |$Date: 1995/04/07 00:14:59 $|$Revision: 1.5 $| |
112 | 112 |
113 | 113 |
114 (defconst ada-mode-version (substring "$Revision: 1.4 $" 11 -2) | 114 (defconst ada-mode-version (substring "$Revision: 1.5 $" 11 -2) |
115 "$Id: ada-mode.el,v 1.4 1995/04/04 03:00:59 kwzh Exp kwzh $ | 115 "$Id: ada-mode.el,v 1.5 1995/04/07 00:14:59 kwzh Exp kwzh $ |
116 | 116 |
117 Report bugs to: Rolf Ebert <ebert@inf.enst.fr>") | 117 Report bugs to: Rolf Ebert <ebert@inf.enst.fr>") |
118 | 118 |
119 | 119 |
120 ;;;-------------------- | 120 ;;;-------------------- |
3434 ;;; define menu 'Ada' | 3434 ;;; define menu 'Ada' |
3435 ;;;------------------- | 3435 ;;;------------------- |
3436 | 3436 |
3437 (defun ada-add-ada-menu () | 3437 (defun ada-add-ada-menu () |
3438 "Adds the menu 'Ada' to the menu-bar in Ada Mode." | 3438 "Adds the menu 'Ada' to the menu-bar in Ada Mode." |
3439 (easy-menu-define t ada-mode-map t | 3439 (easy-menu-define ada-mode-menu ada-mode-map "Menu keymap for Ada mode." |
3440 '("Ada" | 3440 '("Ada" |
3441 ["next package" ada-next-package t] | 3441 ["next package" ada-next-package t] |
3442 ["previous package" ada-previous-package t] | 3442 ["previous package" ada-previous-package t] |
3443 ["next procedure" ada-next-procedure t] | 3443 ["next procedure" ada-next-procedure t] |
3444 ["previous procedure" ada-previous-procedure t] | 3444 ["previous procedure" ada-previous-procedure t] |