[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient df1ba0f144 301/366: transient-show-help: Cosm
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient df1ba0f144 301/366: transient-show-help: Cosmetics |
Date: |
Tue, 25 Jan 2022 18:54:49 -0500 (EST) |
branch: externals/transient
commit df1ba0f14420379a4e0a4eff4f76eb15bc9f5918
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
transient-show-help: Cosmetics
---
lisp/transient.el | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 584dc16f89..eac211e97f 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3279,11 +3279,10 @@ a prefix command, while porting a regular keymap to a
transient."
(cl-defmethod transient-show-help ((obj transient-prefix))
"Show the info manual, manpage or command doc-string.
Show the first one that is specified."
- (if-let ((manual (oref obj info-manual)))
- (transient--show-manual manual)
- (if-let ((manpage (oref obj man-page)))
- (transient--show-manpage manpage)
- (transient--describe-function (oref obj command)))))
+ (with-slots (info-manual man-page command) obj
+ (cond (info-manual (transient--show-manual info-manual))
+ (man-page (transient--show-manpage man-page))
+ (t (transient--describe-function command)))))
(cl-defmethod transient-show-help ((obj transient-suffix))
"Show the command doc-string."
@@ -3301,8 +3300,10 @@ Show the first one that is specified."
"Show the manpage if defined or the command doc-string.
If the manpage is specified, then try to jump to the correct
location."
- (if-let ((manpage (oref transient--prefix man-page)))
- (transient--show-manpage manpage (ignore-errors (oref obj argument)))
+ (if-let ((man-page (oref transient--prefix man-page))
+ (argument (and (slot-boundp obj 'argument)
+ (oref obj argument))))
+ (transient--show-manpage man-page argument)
(transient--describe-function this-command)))
;; `cl-generic-generalizers' doesn't support `command' et al.
- [elpa] externals/transient 779b847c20 252/366: make: Update path to ox-extra, (continued)
- [elpa] externals/transient 779b847c20 252/366: make: Update path to ox-extra, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient eb28c513a8 253/366: Release version 0.3.3, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 6e741ee2bd 260/366: Stop using oref-default to get default value of object-allocated slot, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 90a0562200 265/366: transient-highlight-higher-levels: New option, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 769219b5f5 272/366: Enable section movement, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 626d105ecf 274/366: transient--read-number-N: Return empty string instead of nil, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 57942fe961 280/366: manual: No longer depend on the ox-extra package, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient badebdd1c1 288/366: Set local checkdoc-symbol-words, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 7976562a3c 291/366: Sharp-quote functions, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 74cba5a418 296/366: Release version 0.3.7, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient df1ba0f144 301/366: transient-show-help: Cosmetics,
Jonas Bernoulli <=
- [elpa] externals/transient ea5ac99ffc 303/366: transient-show-help: Support per-object help functions, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient f4790969fe 312/366: make: Add stats target, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 28491e1f8e 321/366: Properly deal with stealth undefined command, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 143a13938c 323/366: transient-infix-read: Always enable-recursive-minibuffers, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient f2e0dfcc4b 330/366: transient--get-predicate-for: Ignore error in transient--suffix-symbol, Jonas Bernoulli, 2022/01/25