Restore compatibility with Marginalia following commit f2ac221 by adv…

…ising (compat-function completion-metadata-get). Fix #32
iyefrat · Jul 10, 2024 · 3f5282f · 3f5282f
1 parent 4c8bcad
commit 3f5282f
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/all-the-icons-completion.el b/all-the-icons-completion.el
@@ -136,8 +136,12 @@ PROP is the property which is looked up."
   "Add icons to completion candidates."
   :global t
   (if all-the-icons-completion-mode
-      (advice-add #'completion-metadata-get :around #'all-the-icons-completion-completion-metadata-get)
-    (advice-remove #'completion-metadata-get #'all-the-icons-completion-completion-metadata-get)))
+      (progn
+	(advice-add #'completion-metadata-get :around #'all-the-icons-completion-completion-metadata-get)
+	(advice-add (compat-function completion-metadata-get) :around #'all-the-icons-completion-completion-metadata-get))
+    (progn
+      (advice-remove #'completion-metadata-get #'all-the-icons-completion-completion-metadata-get)
+      (advice-remove (compat-function completion-metadata-get) #'all-the-icons-completion-completion-metadata-get))))
 
 (provide 'all-the-icons-completion)
 ;;; all-the-icons-completion.el ends here