[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient a9bdd013f9 259/366: transient-show-help: Use
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient a9bdd013f9 259/366: transient-show-help: Use manpage of subprefixes |
Date: |
Tue, 25 Jan 2022 18:54:46 -0500 (EST) |
branch: externals/transient
commit a9bdd013f90619614c7fbc163bbd825b218b9dbc
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
transient-show-help: Use manpage of subprefixes
When a command that was defined using `transient-define-prefix'
is called as the suffix of another prefix, then the corresponding
suffix object isn't cloned from a specialized prototype, so slots
like `manpage' are undefined. But the `manpage' slot of the
prefix object may be set, so use that.
---
lisp/transient.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 50a8109562..51f116bc29 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3203,13 +3203,16 @@ Show the first one that is specified."
(transient--show-manpage manpage)
(transient--describe-function (oref obj command)))))
-(cl-defmethod transient-show-help ((_ transient-suffix))
+(cl-defmethod transient-show-help ((obj transient-suffix))
"Show the command doc-string."
(if (eq this-original-command 'transient-help)
(if-let ((manpage (oref transient--prefix man-page)))
(transient--show-manpage manpage)
(transient--describe-function (oref transient--prefix command)))
- (transient--describe-function this-original-command)))
+ (if-let ((prefix (get (transient--suffix-command obj) 'transient--prefix))
+ (manpage (oref prefix man-page)))
+ (transient--show-manpage manpage)
+ (transient--describe-function this-original-command))))
(cl-defmethod transient-show-help ((obj transient-infix))
"Show the manpage if defined or the command doc-string.
- [elpa] externals/transient d48f2451ec 232/366: transient--pre-exit: Don't log clearing of minibuffer, (continued)
- [elpa] externals/transient d48f2451ec 232/366: transient--pre-exit: Don't log clearing of minibuffer, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 48335f8370 237/366: transient-status: Prevent use while minibuffer is active, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient baebe85ceb 239/366: manual: Deal with texinfo cross reference idiocy, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 8c28b8a4fa 242/366: transient-prefix: Do not initially bind SUFFIX-DESCRIPTION, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient cc16a5eaa7 244/366: transient-{, base-}map: Mention related keymaps in doc-string, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 39c536eab6 245/366: make: Add bump-version target, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 4da0fab7d9 246/366: Release version 0.3.1, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient c145229a89 247/366: Add missing argument to user-error, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient a96818c93a 257/366: transient-display-buffer-action: Correct outdated doc-string, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient ef921d3048 258/366: transient--post-command: Deal with mystery quits, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient a9bdd013f9 259/366: transient-show-help: Use manpage of subprefixes,
Jonas Bernoulli <=
- [elpa] externals/transient 37684a8cf7 263/366: manual: use ox-texinfo's notoc support, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient cf5e58a3a7 267/366: make: Automatically set date in changelog, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient b2b375e848 275/366: transient-show-help: Avoid this-original-command, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient df13feff33 289/366: Remove various duplicated words, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient ee8bdcfcee 290/366: Fix alias definition, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 6842305e84 286/366: Support undefined suffixes if an extra step is taken, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 0c2255a296 295/366: transient-get-value: Add an emergency exit, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 938b059192 297/366: transient--show: Set point after displaying window again, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 9b6a251f5c 300/366: transient-show-help: Avoid this-original-command, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 667488ebff 305/366: Extend multi-value support, Jonas Bernoulli, 2022/01/25