[elpa] externals/marginalia 86ac625: Ensure that symbol-help category is refined (Fix #109)

[ELPA Syncer]

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

    Ensure that symbol-help category is refined (Fix #109)
---
 marginalia.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/marginalia.el b/marginalia.el
index 2ad123b..82e0988 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -933,7 +933,10 @@ These annotations are skipped for remote paths."
   "Return original category reported by completion metadata."
   ;; NOTE: Use `alist-get' instead of `completion-metadata-get' to bypass our
   ;; `marginalia--completion-metadata-get' advice!
-  (alist-get 'category marginalia--metadata))
+  (when-let (cat (alist-get 'category marginalia--metadata))
+    ;; Ignore Emacs 28 symbol-help category in order to ensure that the
+    ;; categories are refined to our categories function and variable.
+    (and (not (eq cat 'symbol-help)) cat)))
 
 (defun marginalia-classify-symbol ()
   "Determine if currently completing symbols."