diff options
author | Jonas Bernoulli <jonas@bernoul.li> | 2021-10-24 15:35:05 +0200 |
---|---|---|
committer | Jonas Bernoulli <jonas@bernoul.li> | 2021-10-24 21:18:24 +0200 |
commit | 3b5de7f9916c974bf3b2ae3bca90b9812c951eed (patch) | |
tree | 551e0dad5694d9b20a943809008575f210dba6ef /lisp/transient.el | |
parent | 3f763898aaafa547a2a991eed99d2694670b07e4 (diff) | |
download | emacs-3b5de7f9916c974bf3b2ae3bca90b9812c951eed.tar.gz |
; lisp/transient.el: Revert some misguided stylistic fixes.
These aren't actual modes. Set checkdoc-symbol-words to avoid
false-positives. The first line of doc-strings of methods do
not need to end with period.
Diffstat (limited to 'lisp/transient.el')
-rw-r--r-- | lisp/transient.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index c33a4c722a0..77bf41deba8 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -1289,8 +1289,8 @@ variable instead.") (defvar transient--exitp nil "Whether to exit the transient.") (defvar transient--showp nil "Whether the transient is show in a popup buffer.") -(defvar transient--helpp nil "Whether `help-mode' is active.") -(defvar transient--editp nil "Whether `edit-mode' is active.") +(defvar transient--helpp nil "Whether help-mode is active.") +(defvar transient--editp nil "Whether edit-mode is active.") (defvar transient--active-infix nil "The active infix awaiting user input.") @@ -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) @@ -3672,5 +3672,6 @@ we stop there." (provide 'transient) ;; Local Variables: ;; indent-tabs-mode: nil +;; checkdoc-symbol-words: ("command-line" "edit-mode" "help-mode") ;; End: ;;; transient.el ends here |