Mercurial > emacs

comparison lisp/progmodes/ada-mode.el @ 35959:c49a286df476

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ada-popup-key): Fix :type.
author Dave Love <fx@gnu.org>
date Wed, 07 Feb 2001 23:25:59 +0000
parents 9d5252e923a3
children d42c9135a92d
comparison
equal deleted inserted replaced
35958:6b6548798375 35959:c49a286df476
4 4
5 ;; Author: Rolf Ebert <ebert@inf.enst.fr> 5 ;; Author: Rolf Ebert <ebert@inf.enst.fr>
6 ;; Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de> 6 ;; Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de>
7 ;; Emmanuel Briot <briot@gnat.com> 7 ;; Emmanuel Briot <briot@gnat.com>
8 ;; Maintainer: Emmanuel Briot <briot@gnat.com> 8 ;; Maintainer: Emmanuel Briot <briot@gnat.com>
9 ;; Ada Core Technologies's version: $Revision: 1.37 $ 9 ;; Ada Core Technologies's version: $Revision: 1.38 $
10 ;; Keywords: languages ada 10 ;; Keywords: languages ada
11 11
12 ;; This file is not part of GNU Emacs 12 ;; This file is not part of GNU Emacs
13 13
14 ;; This program is free software; you can redistribute it and/or modify 14 ;; This program is free software; you can redistribute it and/or modify
309 :type 'boolean :group 'ada) 309 :type 'boolean :group 'ada)
310 310
311 (defcustom ada-popup-key '[down-mouse-3] 311 (defcustom ada-popup-key '[down-mouse-3]
312 "*Key used for binding the contextual menu. 312 "*Key used for binding the contextual menu.
313 If nil, no contextual menu is available." 313 If nil, no contextual menu is available."
314 :type '(restricted-regexp :match-alternatives '(stringp vectorp)) 314 :type '(restricted-sexp :match-alternatives (stringp vectorp))
315 :group 'ada) 315 :group 'ada)
316 316
317 (defcustom ada-search-directories 317 (defcustom ada-search-directories
318 '("." "$ADA_INCLUDE_PATH" "/usr/adainclude" "/usr/local/adainclude" 318 '("." "$ADA_INCLUDE_PATH" "/usr/adainclude" "/usr/local/adainclude"
319 "/opt/gnu/adainclude") 319 "/opt/gnu/adainclude")