feat: exclude commands for transient suffix only

KarimAziev · Feb 14, 2024 · 00330b2 · 00330b2
1 parent 460857e
commit 00330b2
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/counsel-extra.el b/counsel-extra.el
@@ -869,7 +869,9 @@ Argument COLLECTION is a list or array to be used for completion."
                 (when-let ((sym (intern-soft str)))
                   (and (commandp sym)
                        (not (get sym 'byte-obsolete-info))
-                       (not (get sym 'no-counsel-M-x))
+                       (not (get sym 'byte-obsolete-info))
+                       (not (eq (get sym 'command-predicate)
+                                'transient--suffix-only))
                        (cond ((not (bound-and-true-p
                                     read-extended-command-predicate)))
                              ((functionp read-extended-command-predicate)