# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 898678719 0
# Node ID c129b4c40a0c696525c66e29a6396518db1bc763
# Parent  3c4fc0e6aa43331008ee6dd562fc1d0901c9341d
(ad-redefinition-action,
ad-default-compilation-action): Use `other' widget type.

diff -r 3c4fc0e6aa43 -r c129b4c40a0c lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Wed Jun 24 08:58:07 1998 +0000
+++ b/lisp/emacs-lisp/advice.el	Wed Jun 24 08:58:39 1998 +0000
@@ -1849,7 +1849,8 @@
 `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 @@
 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)