diff options
| author | Andreas Schwab <schwab@suse.de> | 1998-06-24 08:58:39 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 1998-06-24 08:58:39 +0000 |
| commit | d91758bf692ef09f9ae270fdfcc3ca6ae04aeee7 (patch) | |
| tree | e8a222a4c31d7a44c7110d33c7b8d3d2f5b993df /lisp/emacs-lisp/advice.el | |
| parent | 1a942260c80e5a93be2fbe986861794feed5684c (diff) | |
| download | emacs-d91758bf692ef09f9ae270fdfcc3ca6ae04aeee7.tar.gz | |
(ad-redefinition-action,
ad-default-compilation-action): Use `other' widget type.
Diffstat (limited to 'lisp/emacs-lisp/advice.el')
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 7 |
1 files 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) |