[elpa] externals/marginalia f8e3d40: marginalia--symbol-class: Detect special form (builtin macros)

[ELPA Syncer]

branch: externals/marginalia
commit f8e3d409b478461e277cdea1df567387e4b9b1cd
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    marginalia--symbol-class: Detect special form (builtin macros)
---
 marginalia.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 5542ff8..7762957 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -440,6 +440,7 @@ f function
 c command
 C interactive-only command
 m macro
+M special-form
 p pure
 s side-effect-free
 @ autoloaded
@@ -465,7 +466,8 @@ t cl-type"
         ((get s 'side-effect-free) "s"))
        (cond
         ((commandp s) (if (get s 'interactive-only) "C" "c"))
-        ((eq (car-safe (symbol-function s)) 'macro) "m")
+        ((macrop (symbol-function s)) "m")
+        ((special-form-p (symbol-function s)) "M")
         (t "f"))
        (and (autoloadp (symbol-function s)) "@")
        (and (marginalia--advised s) "!")
@@ -555,7 +557,7 @@ keybinding since CAND includes it."
 (defun marginalia-annotate-function (cand)
   "Annotate function CAND with its documentation string."
   (when-let (sym (intern-soft cand))
-    (when (functionp sym)
+    (when (fboundp sym)
       (concat
        (marginalia-annotate-binding cand)
        (marginalia--fields