From: Andreas Schwab <schwab@suse.de>
Date: Wed, 24 Jun 1998 08:58:39 +0000 (+0000)
Subject: (ad-redefinition-action,
X-Git-Tag: emacs-20.3~502
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db352ce60ef91eda02fdd1ca21bbf7b705b8e481;p=emacs.git

(ad-redefinition-action,
ad-default-compilation-action): Use `other' widget type.
---

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index afb2c419778..86dde119594 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -1849,7 +1849,8 @@ old original, or keep it and raise an error.  The values `accept', `discard',
 `error' or `warn' govern what will be done.  `warn' is just like `accept' but
 it additionally prints a warning message.  All other values will be
 interpreted as `error'."
-  :type '(choice (const accept) (const discard) (const error) (const warn))
+  :type '(choice (const accept) (const discard) (const warn)
+		 (other :tag "error" error))
   :group 'advice)
 
 ;;;###autoload
@@ -1861,8 +1862,8 @@ loaded, and `like-original' will compile if the original definition of the
 advised function is compiled or a built-in function. Every other value will
 be interpreted as `maybe'. This variable will only be considered if the 
 COMPILE argument of `ad-activate' was supplied as nil."
-  :type '(choice (const always) (const never) (const maybe)
-		 (const like-original))
+  :type '(choice (const always) (const never) (const like-original)
+		 (other :tag "maybe" maybe))
   :group 'advice)