From 8783fe91be449416e1aab353afed54ff965c236f Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 23 Nov 2007 00:32:42 +0000 Subject: [PATCH] (Man-getpage-in-background): Don't disregard user option `Man-width' on non-window systems. Remove test for `window-system' around setting envvar "COLUMNS" depending on the value of `Man-width'. --- lisp/man.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/lisp/man.el b/lisp/man.el index 4056ddedb29..41f1d37bb18 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -766,17 +766,16 @@ all sections related to a subject, put something appropriate into the ;; minal (using an ioctl(2) if available, the value of ;; $COLUMNS, or falling back to 80 characters if nei- ;; ther is available). - (if window-system - (unless (or (getenv "MANWIDTH") (getenv "COLUMNS")) - ;; This isn't strictly correct, since we don't know how - ;; the page will actually be displayed, but it seems - ;; reasonable. - (setenv "COLUMNS" (number-to-string - (cond - ((and (integerp Man-width) (> Man-width 0)) - Man-width) - (Man-width (frame-width)) - ((window-width))))))) + (unless (or (getenv "MANWIDTH") (getenv "COLUMNS")) + ;; This isn't strictly correct, since we don't know how + ;; the page will actually be displayed, but it seems + ;; reasonable. + (setenv "COLUMNS" (number-to-string + (cond + ((and (integerp Man-width) (> Man-width 0)) + Man-width) + (Man-width (frame-width)) + ((window-width)))))) (setenv "GROFF_NO_SGR" "1") (if (fboundp 'start-process) (set-process-sentinel -- 2.39.2