Skip to content

Commit

Permalink
transient--show: Call transient--force-fixed-pitch earlier
Browse files Browse the repository at this point in the history
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.
  • Loading branch information
tarsius committed Apr 5, 2024
1 parent 6da27d7 commit 8c0a3ac
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions lisp/transient.el
Original file line number Diff line number Diff line change
Expand Up @@ -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))
Expand All @@ -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)))
Expand Down

0 comments on commit 8c0a3ac

Please sign in to comment.