[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient 222637523a 302/366: transient-show-help: Refa
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient 222637523a 302/366: transient-show-help: Refactor and improve |
Date: |
Tue, 25 Jan 2022 18:54:49 -0500 (EST) |
branch: externals/transient
commit 222637523ad389a1dbf19e9a65fa1ae62de360dc
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
transient-show-help: Refactor and improve
---
lisp/transient.el | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index eac211e97f..782a76441c 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3286,15 +3286,14 @@ Show the first one that is specified."
(cl-defmethod transient-show-help ((obj transient-suffix))
"Show the command doc-string."
- (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)))
- (if-let ((prefix (get (transient--suffix-command obj) 'transient--prefix))
- (manpage (oref prefix man-page))
- (- (not (eq this-command (oref transient--prefix command)))))
- (transient--show-manpage manpage)
- (transient--describe-function this-command))))
+ (cond
+ ((eq this-command 'transient-help)
+ (transient-show-help transient--prefix))
+ ((let ((prefix (get (transient--suffix-command obj)
+ 'transient--prefix)))
+ (and prefix (not (eq (oref transient--prefix command) this-command))
+ (prog1 t (transient-show-help prefix)))))
+ (t (transient--describe-function this-command))))
(cl-defmethod transient-show-help ((obj transient-infix))
"Show the manpage if defined or the command doc-string.
- [elpa] externals/transient 6af9f8c3c0 254/366: Backport commit 12bab20920 from Emacs, (continued)
- [elpa] externals/transient 6af9f8c3c0 254/366: Backport commit 12bab20920 from Emacs, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient b47e9d7d76 256/366: Release version 0.3.4, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient b711543401 261/366: Release version 0.3.5, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 99e48369a5 269/366: transient--invalid: Add heisenbug catcher, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient e90481000f 271/366: Explicitly call transient--pre-command in button action, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient efdf91980a 273/366: transient--goto-button: Anchor headings, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient e17e2b2f6d 276/366: transient-show-help: Tweak self-suffixes, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient be119ee43f 278/366: Export variables for transient non-infix suffixes, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 022f20e958 283/366: Explicitly require edmacro, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 09c911e621 299/366: transient--show-manual: New function, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 222637523a 302/366: transient-show-help: Refactor and improve,
Jonas Bernoulli <=
- [elpa] externals/transient c9ab648e5b 304/366: transient--show-help: Update doc-strings, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 349116159f 308/366: manual: Use Org macros, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient e57d1e176b 313/366: make: Cosmetics, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient daa22e7632 317/366: manual: Downcase keywords, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 1cdadfddf8 340/366: manual: Use source block, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient c2875e705a 362/366: transient--delay-post-command: Add debug statement, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient e0b57679f7 359/366: transient--debug: Re-align output, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 73694be44a 179/366: transient-infix-read: Support use by regular commands, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient e2fee19879 204/366: Support using variables in group and suffix specifications, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 9b17afb9a0 214/366: transient-infix-set: Remove outdated claim from doc-string, Jonas Bernoulli, 2022/01/25