[elpa] externals/marginalia f0e8a73: Check completion-extra-properties in marginalia-cycle

[ELPA Syncer]

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

    Check completion-extra-properties in marginalia-cycle
    
    This allows to cycle to the builtin completion in region annotator
---
 marginalia.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/marginalia.el b/marginalia.el
index 598e71c..4b9f514 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -821,7 +821,9 @@ Remember `this-command' for 
`marginalia-classify-by-command-name'."
           ;; metadata since we must bypass the 
`marginalia--completion-metadata-get' advice.
           (when (and (eq (cadr cat) 'builtin)
                      (not (assq 'annotation-function metadata))
-                     (not (assq 'affixation-function metadata)))
+                     (not (assq 'affixation-function metadata))
+                     (not (plist-get completion-extra-properties 
:annotation-function))
+                     (not (plist-get completion-extra-properties 
:affixation-function)))
             (setcdr cat (append (cddr cat) (list (cadr cat)))))
           (message "Marginalia: Use annotator `%s' for category `%s'" (cadr 
cat) (car cat))))
     (user-error "Marginalia: No active minibuffer")))