[elpa] externals/marginalia bf6eebc13f 1/2: marginalia-cycle: Add completion-predicate

[ELPA Syncer]

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

    marginalia-cycle: Add completion-predicate
---
 CHANGELOG.org | 2 ++
 marginalia.el | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 651f27349b..1dc9b4bed5 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -7,6 +7,8 @@
 - =marginalia-classify-by-prompt=: Use case-insensitive matching.
 - =marginalia-annotate-symbol=: Additional symbol classes. Use =M= for module
   functions, =P= for primitives and =S= for special forms.
+- =marginalia-cycle=: Add =completion-predicate= to display command only in
+  recursive minibuffers.
 
 * Version 1.2 (2023-04-17)
 
diff --git a/marginalia.el b/marginalia.el
index 3bf0c47b35..c4cffc6813 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -1322,5 +1322,9 @@ Remember `this-command' for 
`marginalia-classify-by-command-name'."
           (message "Marginalia: Use annotator `%s' for category `%s'" (cadr 
ann) (car ann))))
     (user-error "Marginalia: No active minibuffer")))
 
+;; Emacs 28: Only show `marginalia-cycle' in M-x in recursive minibuffers
+(put #'marginalia-cycle 'completion-predicate
+     (lambda (&rest _) (> (minibuffer-depth) 1)))
+
 (provide 'marginalia)
 ;;; marginalia.el ends here