[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7a59f20a4e5 1/2: Follow aliases for `interactive-only` declaratio
From: |
Mattias Engdegård |
Subject: |
master 7a59f20a4e5 1/2: Follow aliases for `interactive-only` declarations |
Date: |
Tue, 21 Feb 2023 06:33:09 -0500 (EST) |
branch: master
commit 7a59f20a4e5aefb8bd007275efbcf4e658d77ac0
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
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.
---
lisp/emacs-lisp/bytecomp.el | 2 +-
lisp/help-fns.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index a0e124bcf1b..b1410fc2646 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3416,7 +3416,7 @@ lambda-expression."
(let* ((fn (car form))
(handler (get fn 'byte-compile))
(interactive-only
- (or (get fn 'interactive-only)
+ (or (function-get fn 'interactive-only)
(memq fn byte-compile-interactive-only-functions))))
(when (memq fn '(set symbol-value run-hooks ;; add-to-list
add-hook remove-hook run-hook-with-args
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)))))