aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2024-07-16 03:35:59 +0200
committerStefan Kangas2024-07-16 03:36:31 +0200
commite3bba63ecb9302d5a30c7ec55fa564aa9aba2b11 (patch)
treebc7496e8046e30a5632e800694e963e89d36d286
parenta7b68c25640de8214bc759d20180373c2dbcfa16 (diff)
downloademacs-e3bba63ecb9302d5a30c7ec55fa564aa9aba2b11.tar.gz
emacs-e3bba63ecb9302d5a30c7ec55fa564aa9aba2b11.zip
Checkdoc fixes in transient.el
* lisp/transient.el (transient-format-description): Checkdoc fixes.
-rw-r--r--lisp/transient.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/transient.el b/lisp/transient.el
index 05ad0ed8a0b..8788fbc834f 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -4001,9 +4001,9 @@ and its value is returned to the caller."
4001 set " "))))) 4001 set " ")))))
4002 4002
4003(cl-defmethod transient-format-description ((obj transient-group)) 4003(cl-defmethod transient-format-description ((obj transient-group))
4004 "Format the description by calling the next method. If the result 4004 "Format the description by calling the next method.
4005doesn't use the `face' property at all, then apply the face 4005If the result doesn't use the `face' property at all, then apply the
4006`transient-heading' to the complete string." 4006face `transient-heading' to the complete string."
4007 (and-let* ((desc (transient--get-description obj))) 4007 (and-let* ((desc (transient--get-description obj)))
4008 (cond ((oref obj inapt) 4008 (cond ((oref obj inapt)
4009 (propertize desc 'face 'transient-inapt-suffix)) 4009 (propertize desc 'face 'transient-inapt-suffix))
@@ -4012,8 +4012,9 @@ doesn't use the `face' property at all, then apply the face
4012 ((propertize desc 'face 'transient-heading))))) 4012 ((propertize desc 'face 'transient-heading)))))
4013 4013
4014(cl-defmethod transient-format-description :around ((obj transient-suffix)) 4014(cl-defmethod transient-format-description :around ((obj transient-suffix))
4015 "Format the description by calling the next method. If the result 4015 "Format the description by calling the next method.
4016is nil, then use \"(BUG: no description)\" as the description. 4016If the result is nil, then use \"(BUG: no description)\" as the
4017description.
4017If the OBJ's `key' is currently unreachable, then apply the face 4018If the OBJ's `key' is currently unreachable, then apply the face
4018`transient-unreachable' to the complete string." 4019`transient-unreachable' to the complete string."
4019 (let ((desc (or (cl-call-next-method obj) 4020 (let ((desc (or (cl-call-next-method obj)