emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/transient dae66b33df: Fix name of property used to hide


From: Jonas Bernoulli
Subject: [elpa] externals/transient dae66b33df: Fix name of property used to hide commands from completion
Date: Wed, 31 Jan 2024 11:14:03 -0500 (EST)

branch: externals/transient
commit dae66b33df9189d404d90e3ab0ad7b575617fb01
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Fix name of property used to hide commands from completion
---
 lisp/transient.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index c3cbf1984d..966388ba34 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1037,7 +1037,7 @@ this case, because the `man-page' slot was not set in 
this case."
     (transient-infix-set obj (transient-infix-read obj)))
   (transient--show))
 (put 'transient--default-infix-command 'interactive-only t)
-(put 'transient--default-infix-command 'command-predicate
+(put 'transient--default-infix-command 'completion-predicate
      #'transient--suffix-only)
 
 (eval-and-compile
@@ -1149,7 +1149,7 @@ this case, because the `man-page' slot was not set in 
this case."
                       args :command
                       `(prog1 ',sym
                          (put ',sym 'interactive-only t)
-                         (put ',sym 'command-predicate 
#'transient--suffix-only)
+                         (put ',sym 'completion-predicate 
#'transient--suffix-only)
                          (defalias ',sym
                            ,(if (eq (car-safe cmd) 'lambda)
                                 cmd
@@ -1172,7 +1172,7 @@ this case, because the `man-page' slot was not set in 
this case."
                       args :command
                       `(prog1 ',sym
                          (put ',sym 'interactive-only t)
-                         (put ',sym 'command-predicate 
#'transient--suffix-only)
+                         (put ',sym 'completion-predicate 
#'transient--suffix-only)
                          (defalias ',sym #'transient--default-infix-command))))
           (cond ((and car (not (keywordp car)))
                  (setq class 'transient-option)
@@ -1222,7 +1222,7 @@ in regular keymaps or by using 
`execute-extended-command')."
 (defalias 'transient--suffix-only #'ignore
   "Ignore ARGUMENTS, do nothing, and return nil.
 Also see `transient-command-completion-not-suffix-only-p'.
-Only use this alias as the value of the `command-predicate'
+Only use this alias as the value of the `completion-predicate'
 symbol property.")
 
 (when (and (boundp 'read-extended-command-predicate) ; since Emacs 28.1



reply via email to

[Prev in Thread] Current Thread [Next in Thread]