Use sym-type in advice string

1 files changed, 1 insertions, 2 deletions

diff --git a/helpful.el b/helpful.el
index 6d20b11..f0cb421 100644
--- a/helpful.el
+++ b/helpful.el
@@ -1120,8 +1120,7 @@ state of the current symbol."
       (helpful--insert-section-break)
       (insert
        (helpful--heading "Advice")
-       (format
-        "This %s is advised." (if (macrop helpful--sym) "macro" "function"))))
+       (format "This %s is advised." (downcase sym-type))))
 
     (let ((can-edebug
            (helpful--can-edebug-p helpful--sym helpful--callable-p))