branch: elpa/magit
commit 2b72af8441a2e48b0f4f4a928b0f203c0a6ffc9a
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
magit--ellipsis: Cosmetics
---
lisp/magit-base.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/lisp/magit-base.el b/lisp/magit-base.el
index b8d50a9d6ee..f14b8f9c038 100644
--- a/lisp/magit-base.el
+++ b/lisp/magit-base.el
@@ -1152,13 +1152,13 @@ Like `message', except that `message-log-max' is bound
to nil."
(if-let ((pair (car (or
(alist-get (or where t) magit-ellipsis)
(alist-get t magit-ellipsis)))))
- (pcase-let ((`(,fancy . ,universal) pair))
- (let ((ellipsis (if (and fancy (char-displayable-p fancy))
- fancy
- universal)))
- (if (characterp ellipsis)
- (char-to-string ellipsis)
- ellipsis)))
+ (pcase-let* ((`(,fancy . ,universal) pair)
+ (ellipsis (if (and fancy (char-displayable-p fancy))
+ fancy
+ universal)))
+ (if (characterp ellipsis)
+ (char-to-string ellipsis)
+ ellipsis))
(user-error "Variable magit-ellipsis is invalid"))))
(defun magit--ext-regexp-quote (string)
