[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient c9ab648 08/11: transient--show-help: Update d
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient c9ab648 08/11: transient--show-help: Update doc-strings |
Date: |
Thu, 4 Nov 2021 21:02:18 -0400 (EDT) |
branch: externals/transient
commit c9ab648e5b59929e44970d7b59a2a61b11544572
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
transient--show-help: Update doc-strings
---
lisp/transient.el | 18 +++++++++++-------
1 file changed, 11 insertions(+), 7 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 24cea40..39e5b86 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3276,11 +3276,12 @@ a prefix command, while porting a regular keymap to a
transient."
;;; Help
(cl-defgeneric transient-show-help (obj)
- "Show help for OBJ's command.")
+ "Show documentation for the command represented by OBJ.")
(cl-defmethod transient-show-help ((obj transient-prefix))
- "Show the info manual, manpage or command doc-string.
-Show the first one that is specified."
+ "Call `show-help' if non-nil, else show `info-manual',
+if non-nil, else show the `man-page' if non-nil, else use
+`describe-function'."
(with-slots (show-help info-manual man-page command) obj
(cond (show-help (funcall show-help obj))
(info-manual (transient--show-manual info-manual))
@@ -3288,7 +3289,10 @@ Show the first one that is specified."
(t (transient--describe-function command)))))
(cl-defmethod transient-show-help ((obj transient-suffix))
- "Show the command doc-string."
+ "Call `show-help' if non-nil, else use `describe-function'.
+Also used to dispatch showing documentation for the current
+prefix. If the suffix is a sub-prefix, then also call the
+prefix method."
(cond
((eq this-command 'transient-help)
(transient-show-help transient--prefix))
@@ -3301,9 +3305,9 @@ Show the first one that is specified."
(transient--describe-function this-command)))))
(cl-defmethod transient-show-help ((obj transient-infix))
- "Show the manpage if defined or the command doc-string.
-If the manpage is specified, then try to jump to the correct
-location."
+ "Call `show-help' if non-nil, else show the `man-page'
+if non-nil, else use `describe-function'. When showing the
+manpage, then try to jump to the correct location."
(if-let ((show-help (oref obj show-help)))
(funcall show-help obj)
(if-let ((man-page (oref transient--prefix man-page))
- [elpa] externals/transient updated (74cba5a -> 7f5520b), Jonas Bernoulli, 2021/11/04
- [elpa] externals/transient 938b059 01/11: transient--show: Set point after displaying window again, Jonas Bernoulli, 2021/11/04
- [elpa] externals/transient 6276927 02/11: transient--describe-function: Move definition, Jonas Bernoulli, 2021/11/04
- [elpa] externals/transient 09c911e 03/11: transient--show-manual: New function, Jonas Bernoulli, 2021/11/04
- [elpa] externals/transient 2226375 06/11: transient-show-help: Refactor and improve, Jonas Bernoulli, 2021/11/04
- [elpa] externals/transient 667488e 09/11: Extend multi-value support, Jonas Bernoulli, 2021/11/04
- [elpa] externals/transient ea5ac99 07/11: transient-show-help: Support per-object help functions, Jonas Bernoulli, 2021/11/04
- [elpa] externals/transient c9ab648 08/11: transient--show-help: Update doc-strings,
Jonas Bernoulli <=
- [elpa] externals/transient 9b6a251 04/11: transient-show-help: Avoid this-original-command, Jonas Bernoulli, 2021/11/04
- [elpa] externals/transient df1ba0f 05/11: transient-show-help: Cosmetics, Jonas Bernoulli, 2021/11/04
- [elpa] externals/transient 202271f 10/11: Resurrect transient-files class, Jonas Bernoulli, 2021/11/04
- [elpa] externals/transient 7f5520b 11/11: Add support for non-proportional text, Jonas Bernoulli, 2021/11/04