diff options
| author | Richard M. Stallman | 1993-07-20 05:05:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-20 05:05:48 +0000 |
| commit | 0322056b5795f593a2040294f114fafb633b714c (patch) | |
| tree | 5dd9758a4db03f8114ef491086aaa3a679fa42af | |
| parent | 2aefa7fb46b89460d8e0d362129304d9e1ea9d69 (diff) | |
| download | emacs-0322056b5795f593a2040294f114fafb633b714c.tar.gz emacs-0322056b5795f593a2040294f114fafb633b714c.zip | |
(Man-getpage-in-background): Copy process-environment
so we only alter the copy.
| -rw-r--r-- | lisp/man.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/man.el b/lisp/man.el index 60252c92561..cca12f51dc8 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -428,7 +428,7 @@ start a background process even if a buffer already exists and | |||
| 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 |