Mercurial > emacs

comparison lisp/progmodes/ada-mode.el @ 54889:d1e4aef75070

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ada-create-menu): Remove redundant call.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 14 Apr 2004 20:41:47 +0000
parents e8824c4f5f7e
children b4eeb441c089 0643dc72a250
comparison
equal deleted inserted replaced
54888:89ed55db7532 54889:d1e4aef75070
1 ;;; ada-mode.el --- major-mode for editing Ada sources 1 ;;; ada-mode.el --- major-mode for editing Ada sources
2 2
3 ;; Copyright (C) 1994, 95, 97, 98, 99, 2000, 2001, 2002, 2003 3 ;; Copyright (C) 1994, 95, 97, 98, 99, 2000, 2001, 2002, 03, 2004
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Rolf Ebert <ebert@inf.enst.fr> 6 ;; Author: Rolf Ebert <ebert@inf.enst.fr>
7 ;; Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de> 7 ;; Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de>
8 ;; Emmanuel Briot <briot@gnat.com> 8 ;; Emmanuel Briot <briot@gnat.com>
4730 ["Exit" ada-exit t] 4730 ["Exit" ada-exit t]
4731 ["When" ada-when t]) 4731 ["When" ada-when t])
4732 ))) 4732 )))
4733 4733
4734 (easy-menu-define ada-mode-menu ada-mode-map "Menu keymap for Ada mode" m) 4734 (easy-menu-define ada-mode-menu ada-mode-map "Menu keymap for Ada mode" m)
4735 (easy-menu-add ada-mode-menu ada-mode-map)
4736 (if (featurep 'xemacs) 4735 (if (featurep 'xemacs)
4737 (progn 4736 (progn
4738 (define-key ada-mode-map [menu-bar] ada-mode-menu) 4737 (define-key ada-mode-map [menu-bar] ada-mode-menu)
4739 (set 'mode-popup-menu (cons "Ada mode" ada-mode-menu)))))) 4738 (set 'mode-popup-menu (cons "Ada mode" ada-mode-menu))))))
4740 4739