[Top][All Lists]

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

[elpa] externals/transient 9b6a251 04/11: transient-show-help: Avoid thi

From: Jonas Bernoulli
Subject: [elpa] externals/transient 9b6a251 04/11: transient-show-help: Avoid this-original-command
Date: Thu, 4 Nov 2021 21:02:17 -0400 (EDT)

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

    transient-show-help: Avoid this-original-command
    Using `this-original-command' would suggests that the value
    of `this-command' may have changed but that isn't the case.
 lisp/transient.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 558ffd2..584dc16 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3295,7 +3295,7 @@ Show the first one that is specified."
              (manpage (oref prefix man-page))
              (- (not (eq this-command (oref transient--prefix command)))))
         (transient--show-manpage manpage)
-      (transient--describe-function this-original-command))))
+      (transient--describe-function this-command))))
 (cl-defmethod transient-show-help ((obj transient-infix))
   "Show the manpage if defined or the command doc-string.
@@ -3303,7 +3303,7 @@ If the manpage is specified, then try to jump to the 
   (if-let ((manpage (oref transient--prefix man-page)))
       (transient--show-manpage manpage (ignore-errors (oref obj argument)))
-    (transient--describe-function this-original-command)))
+    (transient--describe-function this-command)))
 ;; `cl-generic-generalizers' doesn't support `command' et al.
 (cl-defmethod transient-show-help (cmd)

reply via email to

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