changeset 22577:c129b4c40a0c

(ad-redefinition-action, ad-default-compilation-action): Use `other' widget type.
author Andreas Schwab <schwab@suse.de>
date Wed, 24 Jun 1998 08:58:39 +0000
parents 3c4fc0e6aa43
children f330ab785b83
files lisp/emacs-lisp/advice.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)