From db352ce60ef91eda02fdd1ca21bbf7b705b8e481 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Wed, 24 Jun 1998 08:58:39 +0000 Subject: [PATCH] (ad-redefinition-action, ad-default-compilation-action): Use `other' widget type. --- lisp/emacs-lisp/advice.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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) -- 2.39.2