bug#32536: displayed width of man pages

[Filipp Gunbin]

Hi, 

On 02/09/2018 01:27 +0300, Juri Linkov wrote:

> +      (let ((width (cond
> +                    ((and (integerp Man-width) (> Man-width 0))
> +                     Man-width)
> +                    (Man-width
> +                     (let ((window (get-buffer-window nil t)))
> +                       (frame-width (and window (window-frame window)))))
> +                    (t
> +                     (window-width (get-buffer-window nil t))))))
> +        (when (and (integerp Man-width-max)
> +                   (> Man-width-max 0)
> +                   (> width Man-width-max))
                      ^^^^^^^^^^^^^^^^^^^^^^
                      this check is not needed, as you call min in the
                      next line

> +          (setq width (min width Man-width-max)))
> +        (setenv "COLUMNS" (number-to-string width))))