Mercurial > emacs
comparison lisp/man.el @ 4175:3e4fa4423f5a
(Man-getpage-in-background): Copy process-environment
so we only alter the copy.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 20 Jul 1993 05:05:48 +0000 |
| parents | 4edc10a61fa7 |
| children | b42338a458a5 |
comparison
equal
deleted
inserted
replaced
| 4174:3736ceccd7c1 | 4175:3e4fa4423f5a |
|---|---|
| 426 (not override-reuse-p) | 426 (not override-reuse-p) |
| 427 buffer) | 427 buffer) |
| 428 (Man-notify-when-ready buffer) | 428 (Man-notify-when-ready buffer) |
| 429 (message "Invoking man %s in background..." man-args) | 429 (message "Invoking man %s in background..." man-args) |
| 430 (setq buffer (generate-new-buffer bufname)) | 430 (setq buffer (generate-new-buffer bufname)) |
| 431 (let ((process-environment process-environment)) | 431 (let ((process-environment (copy-sequence process-environment))) |
| 432 ;; Prevent any attempt to use display terminal fanciness. | 432 ;; Prevent any attempt to use display terminal fanciness. |
| 433 (setenv "TERM" "dumb") | 433 (setenv "TERM" "dumb") |
| 434 (set-process-sentinel | 434 (set-process-sentinel |
| 435 (start-process "man" buffer "sh" "-c" | 435 (start-process "man" buffer "sh" "-c" |
| 436 (format (Man-build-man-command) man-args)) | 436 (format (Man-build-man-command) man-args)) |