Mercurial > emacs
changeset 47891:e7440f7b0700
(Man-getpage-in-background): Set width in environment.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 15 Oct 2002 17:41:26 +0000 |
| parents | 9edb8961585d |
| children | 30b1484cea8e |
| files | lisp/man.el |
| diffstat | 1 files changed, 18 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Tue Oct 15 05:15:40 2002 +0000 +++ b/lisp/man.el Tue Oct 15 17:41:26 2002 +0000 @@ -593,6 +593,23 @@ (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 @@ ))) (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))