comparison lisp/progmodes/ada-mode.el @ 11869:ab2739454f2a

(ada-add-ada-menu): Fix args to easy-menu-define.

11868:129b45ef421b

;;; LCD Archive Entry:
;;; ada-mode|Rolf Ebert|<[e-mail]>
;;; |Major-mode for Ada
;;; |$Date: 1995/04/04 03:00:59 $|$Revision: 1.4 $|


(defconst ada-mode-version (substring "$Revision: 1.4 $" 11 -2)
  "$Id: ada-mode.el,v 1.4 1995/04/04 03:00:59 kwzh Exp kwzh $

Report bugs to: Rolf Ebert <[e-mail]>")


;;;--------------------

;;; define menu 'Ada'
;;;-------------------

(defun ada-add-ada-menu ()
  "Adds the menu 'Ada' to the menu-bar in Ada Mode."
  (easy-menu-define t ada-mode-map t
                    '("Ada"
                      ["next package" ada-next-package t]
                      ["previous package" ada-previous-package t]
                      ["next procedure" ada-next-procedure t]
                      ["previous procedure" ada-previous-procedure t]

11869:ab2739454f2a

;;; LCD Archive Entry:
;;; ada-mode|Rolf Ebert|<[e-mail]>
;;; |Major-mode for Ada
;;; |$Date: 1995/04/07 00:14:59 $|$Revision: 1.5 $|


(defconst ada-mode-version (substring "$Revision: 1.5 $" 11 -2)
  "$Id: ada-mode.el,v 1.5 1995/04/07 00:14:59 kwzh Exp kwzh $

Report bugs to: Rolf Ebert <[e-mail]>")


;;;--------------------

;;; define menu 'Ada'
;;;-------------------

(defun ada-add-ada-menu ()
  "Adds the menu 'Ada' to the menu-bar in Ada Mode."
  (easy-menu-define ada-mode-menu ada-mode-map "Menu keymap for Ada mode."
                    '("Ada"
                      ["next package" ada-next-package t]
                      ["previous package" ada-previous-package t]
                      ["next procedure" ada-next-procedure t]
                      ["previous procedure" ada-previous-procedure t]