From: Dave Love <fx@gnu.org>
Date: Fri, 12 Jan 2001 12:40:28 +0000 (+0000)
Subject: (ada-popup-key): Fix last change.
X-Git-Tag: emacs-pretest-21.0.96~326
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50a8310e770ba4c48038d825fda65972721fc401;p=emacs.git

(ada-popup-key): Fix last change.
---

diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index b47ca1d2a09..70c78ed1d2f 100644
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -6,7 +6,7 @@
 ;;      Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de>
 ;;      Emmanuel Briot  <briot@gnat.com>
 ;; Maintainer: Emmanuel Briot <briot@gnat.com>
-;; Ada Core Technologies's version:   $Revision: 1.36 $
+;; Ada Core Technologies's version:   $Revision: 1.37 $
 ;; Keywords: languages ada
 
 ;; This file is not part of GNU Emacs
@@ -311,7 +311,8 @@ not to 'begin'."
 (defcustom ada-popup-key '[down-mouse-3]
   "*Key used for binding the contextual menu.
 If nil, no contextual menu is available."
-  :type '(choice vector string) :group 'ada)
+  :type '(restricted-regexp :match-alternatives '(stringp vectorp))
+  :group 'ada)
 
 (defcustom ada-search-directories
   '("." "$ADA_INCLUDE_PATH" "/usr/adainclude" "/usr/local/adainclude"