branch: externals/transient
commit 0a78a768a0113d98aa892a565e75b8cb54a188b0
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Cosmetics
Since there is more than enough space, I actually prefer the old way
in these cases. However, when updating the built-in version of this
package, these forms have to be replaced with `cond*', and without
these line-breaks, we would get a larger diff. Since I regularly
update the built-in copy, prioritize making that task less painful.
---
lisp/transient.el | 30 ++++++++++++++++--------------
1 file changed, 16 insertions(+), 14 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index a313d9001f..d9b71f6f36 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -4864,22 +4864,24 @@ apply the face `transient-unreachable' to the complete
string."
(propertize "|" 'face 'transient-delimiter))))))
(cl-defmethod transient--get-description ((obj transient-child))
- (cond-let* [[desc (oref obj description)]]
- ((functionp desc)
- (condition-case nil
- (funcall desc obj)
- (wrong-number-of-arguments (funcall desc))))
- (desc)))
+ (cond-let*
+ [[desc (oref obj description)]]
+ ((functionp desc)
+ (condition-case nil
+ (funcall desc obj)
+ (wrong-number-of-arguments (funcall desc))))
+ (desc)))
(cl-defmethod transient--get-face ((obj transient-suffix) slot)
- (cond-let* ((not (slot-boundp obj slot)) nil)
- [[face (slot-value obj slot)]]
- ((facep face) face)
- ((functionp face)
- (let ((transient--pending-suffix obj))
- (condition-case nil
- (funcall face obj)
- (wrong-number-of-arguments (funcall face)))))))
+ (cond-let*
+ ((not (slot-boundp obj slot)) nil)
+ [[face (slot-value obj slot)]]
+ ((facep face) face)
+ ((functionp face)
+ (let ((transient--pending-suffix obj))
+ (condition-case nil
+ (funcall face obj)
+ (wrong-number-of-arguments (funcall face)))))))
(defun transient--add-face (string face &optional append beg end)
(let ((str (copy-sequence string)))
