[elpa] externals/marginalia d0e800cd8d 2/3: marginalia--symbol-class: Improve help-echo

[ELPA Syncer]

branch: externals/marginalia
commit d0e800cd8dfc3c27a648a24cb9a49be4bbee0ce4
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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"))