diff options
| author | Glenn Morris | 2008-10-16 07:18:04 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-10-16 07:18:04 +0000 |
| commit | 3d56260a0bee73719dca5a39aa562cebadfa4331 (patch) | |
| tree | 2a1a63bfff3f1384d895eaf4567d7eaba97c901e | |
| parent | 2d7752a0d322db32eed4d67ca5cdf988b2427204 (diff) | |
| download | emacs-3d56260a0bee73719dca5a39aa562cebadfa4331.tar.gz emacs-3d56260a0bee73719dca5a39aa562cebadfa4331.zip | |
(Man-getpage-in-background): Force recent `man's to output
escape sequences even when stdout is not a tty. (Bug#1142)
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/man.el | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d07e5becd85..3ac0b618b6d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2008-10-16 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * man.el (Man-getpage-in-background): Force recent `man's to output | ||
| 4 | escape sequences even when stdout is not a tty. (Bug#1142) | ||
| 5 | |||
| 1 | 2008-10-15 Teodor Zlatanov <tzz@lifelogs.com> | 6 | 2008-10-15 Teodor Zlatanov <tzz@lifelogs.com> |
| 2 | 7 | ||
| 3 | * international/mule-conf.el: Add `utf8' and `UTF8' as | 8 | * international/mule-conf.el: Add `utf8' and `UTF8' as |
diff --git a/lisp/man.el b/lisp/man.el index 353a9032992..5b77b0b12d6 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -829,6 +829,10 @@ all sections related to a subject, put something appropriate into the | |||
| 829 | (Man-width (frame-width)) | 829 | (Man-width (frame-width)) |
| 830 | ((window-width)))))) | 830 | ((window-width)))))) |
| 831 | (setenv "GROFF_NO_SGR" "1") | 831 | (setenv "GROFF_NO_SGR" "1") |
| 832 | ;; Since man-db 2.4.3-1, man writes plain text with no escape | ||
| 833 | ;; sequences when stdout is not a tty. In 2.5.0, the following | ||
| 834 | ;; env-var was added to allow control of this (see Debian Bug#340673). | ||
| 835 | (setenv "MAN_KEEP_FORMATTING" "1") | ||
| 832 | (if (fboundp 'start-process) | 836 | (if (fboundp 'start-process) |
| 833 | (set-process-sentinel | 837 | (set-process-sentinel |
| 834 | (start-process manual-program buffer | 838 | (start-process manual-program buffer |