(Man-getpage-in-background): Set width in environment.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 847eb31b16ebd4c3f2b517b69f3bba04c5dd2776..369696c253c09d69530b61a1f9fa7a42feec282f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-15  Dave Love  <fx@gnu.org>
+
+       * man.el (Man-getpage-in-background): Set width in environment.
+
 2002-10-15  Kenichi Handa  <handa@m17n.org>
 
        * mail/sendmail.el (sendmail-send-it): Call

diff --git a/lisp/man.el b/lisp/man.el
index ba7ad02ba25522002ac0ce0e4cc17ee350c01b2b..1cf5f498ca23500ec2d6f4cff349eda009d8f59b 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -593,6 +593,23 @@ all sections related to a subject, put something appropriate into the
            (default-directory "/"))
        ;; Prevent any attempt to use display terminal fanciness.
        (setenv "TERM" "dumb")
+       ;; In Debian Woody, at least, we get overlong lines under X
+       ;; unless COLUMNS or MANWIDTH is set.  This isn't a problem on
+       ;; a tty.  man(1) says:
+       ;;        MANWIDTH
+       ;;               If $MANWIDTH is set, its value is used as the  line
+       ;;               length  for which manual pages should be formatted.
+       ;;               If it is not set, manual pages  will  be  formatted
+       ;;               with  a line length appropriate to the current ter-
+       ;;               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 (frame-width)))))
        (if (fboundp 'start-process)
            (set-process-sentinel
             (start-process manual-program buffer "sh" "-c"
@@ -656,7 +673,7 @@ See the variable `Man-notify-method' for the different notification behaviors."
      )))
 
 (defun Man-softhyphen-to-minus ()
-  ;; \255 is some kind of dash in Latin-N.  Versions of Debian man, at
+  ;; \255 is SOFT HYPHEN in Latin-N.  Versions of Debian man, at
   ;; least, emit it even when not in a Latin-N locale.
   (unless (eq t (compare-strings "latin-" 0 nil
                                 current-language-environment 0 6 t))