Improve the `long' computation of `mode-line-compact'

* src/xdisp.c (display_mode_line): Compute `long' based on total
window width, and use the passed-in window instead of the selected
window.

1 files changed, 1 insertions, 2 deletions

diff --git a/src/xdisp.c b/src/xdisp.c
index 7ad6b1b1892..7b430041f98 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -25467,8 +25467,7 @@ display_mode_line (struct window *w, enum face_id face_id, Lisp_Object format)
     {
       Lisp_Object mode_string = Fformat_mode_line (format, Qnil, Qnil, Qnil);
       if (EQ (Vmode_line_compact, Qlong)
-          && window_body_width (XWINDOW (selected_window), false) >=
-          SCHARS (mode_string))
+          && WINDOW_TOTAL_COLS (w) >= SCHARS (mode_string))
         {
           /* The window is wide enough; just display the mode line we
              just computed. */