[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
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/transient dae66b33df: Fix name of property used to hide commands from completion,
Jonas Bernoulli <=