diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-09-14 08:43:18 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-09-16 19:37:07 +0200 |
| commit | 63f419f1339cbd0a7d1e64586854a4f01b3f80d1 (patch) | |
| tree | 80bce487ec8c4f7d8258d13a49b21cb4eb3f289b /lisp/transient.el | |
| parent | 36474a1e490a5eae266805a0e04615741d56692c (diff) | |
| download | emacs-63f419f1339cbd0a7d1e64586854a4f01b3f80d1.tar.gz emacs-63f419f1339cbd0a7d1e64586854a4f01b3f80d1.tar.bz2 emacs-63f419f1339cbd0a7d1e64586854a4f01b3f80d1.zip | |
; Minor stylistic fixes found by checkdoc
Diffstat (limited to 'lisp/transient.el')
| -rw-r--r-- | lisp/transient.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index 5f441e80ddd..2be82f56d86 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -266,7 +266,7 @@ discouraged. For example, \"=\" is hard to reach using my custom keyboard layout, so I substitute \"(\" for that, which is easy to reach -using a layout optimized for lisp. +using a layout optimized for Lisp. (setq transient-substitute-key-function (lambda (obj) @@ -3119,19 +3119,19 @@ and its value is returned to the caller." desc))) (cl-defmethod transient-format-description ((obj transient-group)) - "Format the description by calling the next method. If the result -doesn't use the `face' property at all, then apply the face -`transient-heading' to the complete string." + "Format the description by calling the next method. +If the result doesn't use the `face' property at all, then apply +the face `transient-heading' to the complete string." (when-let ((desc (cl-call-next-method obj))) (if (text-property-not-all 0 (length desc) 'face nil desc) desc (propertize desc 'face 'transient-heading)))) (cl-defmethod transient-format-description :around ((obj transient-suffix)) - "Format the description by calling the next method. If the result -is nil, then use \"(BUG: no description)\" as the description. -If the OBJ's `key' is currently unreachable, then apply the face -`transient-unreachable' to the complete string." + "Format the description by calling the next method. +If the result is nil, then use \"(BUG: no description)\" as the +description. If the OBJ's `key' is currently unreachable, then +apply the face `transient-unreachable' to the complete string." (let ((desc (or (cl-call-next-method obj) (and (slot-boundp transient--prefix 'suffix-description) (funcall (oref transient--prefix suffix-description) |