branch: externals/marginalia
commit d0e800cd8dfc3c27a648a24cb9a49be4bbee0ce4
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
marginalia--symbol-class: Improve help-echo
---
marginalia.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 529d97228d..54bfede186 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -488,7 +488,8 @@ t cl-type"
(t '("f" . "function")))
(and (autoloadp (symbol-function s)) '("@" . "autoload"))
(and (marginalia--advised s) '("!" . "advised"))
- (and (symbolp (symbol-function s)) '("&" . "alias"))
+ (and (symbolp (symbol-function s))
+ (cons "&" (format "alias for `%s'" (symbol-function s))))
(and (get s 'byte-obsolete-info) '("-" . "obsolete"))))
(when (boundp s)
(list
@@ -505,7 +506,8 @@ t cl-type"
'("U" . "custom, modified from standard")
'("u" . "custom, unmodified"))
'("v" . "variable"))
- (ignore-errors (and (not (eq (indirect-variable s) s)) '("&" .
"alias")))
+ (and (not (eq (ignore-errors (indirect-variable s)) s))
+ (cons "&" (format "alias for `%s'" (ignore-errors
(indirect-variable s)))))
(and (get s 'byte-obsolete-variable) '("-" . "obsolete"))))
(list
(and (facep s) '("a" . "face"))
