diff options
| author | Stefan Kangas | 2024-07-16 03:35:59 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2024-07-16 03:36:31 +0200 |
| commit | e3bba63ecb9302d5a30c7ec55fa564aa9aba2b11 (patch) | |
| tree | bc7496e8046e30a5632e800694e963e89d36d286 | |
| parent | a7b68c25640de8214bc759d20180373c2dbcfa16 (diff) | |
| download | emacs-e3bba63ecb9302d5a30c7ec55fa564aa9aba2b11.tar.gz emacs-e3bba63ecb9302d5a30c7ec55fa564aa9aba2b11.zip | |
Checkdoc fixes in transient.el
* lisp/transient.el (transient-format-description): Checkdoc fixes.
| -rw-r--r-- | lisp/transient.el | 11 |
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. |
| 4005 | doesn't use the `face' property at all, then apply the face | 4005 | If the result doesn't use the `face' property at all, then apply the |
| 4006 | `transient-heading' to the complete string." | 4006 | face `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. |
| 4016 | is nil, then use \"(BUG: no description)\" as the description. | 4016 | If the result is nil, then use \"(BUG: no description)\" as the |
| 4017 | description. | ||
| 4017 | If the OBJ's `key' is currently unreachable, then apply the face | 4018 | If 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) |