From: Juri Linkov <juri@linkov.net>
Date: Thu, 9 Jan 2025 18:33:03 +0000 (+0200)
Subject: * lisp/man.el (Man-fit-to-window): Don't update on tty with MANWIDTH.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15658f11c9e177c1bff1886d0da7895507c7d49f;p=emacs.git

* lisp/man.el (Man-fit-to-window): Don't update on tty with MANWIDTH.

Check if 'Man-columns' is non-nil before trying to reformat
the manpage buffer.  The value of the varible 'Man-columns'
is nil on a non-window system where "MANWIDTH" or "COLUMNS"
is defined.  And the return value of the function 'Man-columns'
is meaningless in this case anyway.  So no need to react
to changes in window width (bug#74924).

(cherry picked from commit 351b6ac16d29459c5800bd980d428e61ee43cb7d)
---

diff --git a/lisp/man.el b/lisp/man.el
index 3b264dcb4e1..bd21d8c3fd4 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1281,6 +1281,7 @@ Return the buffer in which the manpage will appear."
   (when (window-live-p window)
     (with-current-buffer (window-buffer window)
       (when (and (derived-mode-p 'Man-mode)
+                 Man-columns
                  (not (eq Man-columns (Man-columns))))
         (let ((proc (get-buffer-process (current-buffer))))
           (unless (and proc (not (eq (process-status proc) 'exit)))