diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-02-21 11:46:14 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2023-02-21 12:32:48 +0100 |
| commit | 7a59f20a4e5aefb8bd007275efbcf4e658d77ac0 (patch) | |
| tree | 41120d641eff76e6d80ccb6df8735d04a3ca3a7d /lisp/help-fns.el | |
| parent | 68c972cba1af0f0b1572ef41bdd6010fbd1ea726 (diff) | |
| download | emacs-7a59f20a4e5aefb8bd007275efbcf4e658d77ac0.tar.gz | |
Follow aliases for `interactive-only` declarations
Make `interactive-only` declarations apply to aliases of the same
function as well since this quality isn't in the name but in what
the function does.
* lisp/emacs-lisp/bytecomp.el (byte-compile-form):
* lisp/help-fns.el (help-fns--interactive-only):
Follow aliases when retrieving the `interactive-only` property.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 1172f068934..84266e02901 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -769,7 +769,7 @@ the C sources, too." (and (symbolp function) (not (eq (car-safe (symbol-function function)) 'macro)) (let* ((interactive-only - (or (get function 'interactive-only) + (or (function-get function 'interactive-only) (if (boundp 'byte-compile-interactive-only-functions) (memq function byte-compile-interactive-only-functions))))) |