Mercurial > emacs
diff lisp/man.el @ 50062:b43d8c1413de
* man.el (Man-getpage-in-background): Always use `setenv' for
environment variables, instead of modifying process-environment
directly. The previous version let-bound process-environment --
the let-binding is skipped for GROFF_NO_SGR because there is
already a let-binding in effect in some outer scope.
* emulation/crisp.el (top-level): Interoperate with cua.
author | Kai Großjohann <kgrossjo@eu.uu.net> |
---|---|
date | Sun, 09 Mar 2003 14:05:25 +0000 |
parents | a323f25ec045 |
children | 7dc2f9f7086b |
line wrap: on
line diff
--- a/lisp/man.el Sat Mar 08 19:38:02 2003 +0000 +++ b/lisp/man.el Sun Mar 09 14:05:25 2003 +0000 @@ -623,21 +623,19 @@ (start-process manual-program buffer "sh" "-c" (format (Man-build-man-command) man-args)) 'Man-bgproc-sentinel) - (let ((process-environment - (cons "GROFF_NO_SGR=1" process-environment))) - - (let ((exit-status - (call-process shell-file-name nil (list buffer nil) nil "-c" - (format (Man-build-man-command) man-args))) - (msg "")) - (or (and (numberp exit-status) - (= exit-status 0)) - (and (numberp exit-status) - (setq msg - (format "exited abnormally with code %d" - exit-status))) - (setq msg exit-status)) - (Man-bgproc-sentinel bufname msg)))))))) + (setenv "GROFF_NO_SGR" "1") + (let ((exit-status + (call-process shell-file-name nil (list buffer nil) nil "-c" + (format (Man-build-man-command) man-args))) + (msg "")) + (or (and (numberp exit-status) + (= exit-status 0)) + (and (numberp exit-status) + (setq msg + (format "exited abnormally with code %d" + exit-status))) + (setq msg exit-status)) + (Man-bgproc-sentinel bufname msg))))))) (defun Man-notify-when-ready (man-buffer) "Notify the user when MAN-BUFFER is ready.