[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient b2b375e 1/3: transient-show-help: Avoid this-
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient b2b375e 1/3: transient-show-help: Avoid this-original-command |
Date: |
Wed, 25 Aug 2021 05:52:44 -0400 (EDT) |
branch: externals/transient
commit b2b375e84804045e8efde34c84674b29b022a66f
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
transient-show-help: Avoid this-original-command
Using `this-original-command' suggests that `this-command'
won't do but it does, so use the latter.
---
lisp/transient.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index a9e026e..a04d957 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3260,7 +3260,7 @@ Show the first one that is specified."
(cl-defmethod transient-show-help ((obj transient-suffix))
"Show the command doc-string."
- (if (eq this-original-command 'transient-help)
+ (if (eq this-command 'transient-help)
(if-let ((manpage (oref transient--prefix man-page)))
(transient--show-manpage manpage)
(transient--describe-function (oref transient--prefix command)))