branch: externals/transient
commit 8c0a3ac0a4e98d5797f9a3a7e06d5d34eafe5b07
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient--show: Call transient--force-fixed-pitch earlier
The fixed-pitch font may differ from the default face in size, so this
could be done before the size of the window is calculated.
---
lisp/transient.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index ef1ff3e13e..083fcc0429 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3599,6 +3599,8 @@ have a history of their own.")
(transient--heading-at-point))))
(erase-buffer)
(run-hooks 'transient-setup-buffer-hook)
+ (when transient-force-fixed-pitch
+ (transient--force-fixed-pitch))
(setq window-size-fixed t)
(when (bound-and-true-p tab-line-format)
(setq tab-line-format nil))
@@ -3619,9 +3621,7 @@ have a history of their own.")
(when (or transient--helpp transient--editp)
(transient--insert-help))
(when-let ((line (transient--separator-line)))
- (insert line))
- (when transient-force-fixed-pitch
- (transient--force-fixed-pitch)))
+ (insert line)))
(unless (window-live-p transient--window)
(setq transient--window
(display-buffer buf transient-display-buffer-action)))
