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