[Emacs-diffs] Changes to emacs/lisp/man.el

[Kai Großjohann]

Index: emacs/lisp/man.el
diff -c emacs/lisp/man.el:1.116 emacs/lisp/man.el:1.117
*** emacs/lisp/man.el:1.116     Fri Mar  7 16:04:53 2003
--- emacs/lisp/man.el   Sun Mar  9 09:05:25 2003
***************
*** 623,643 ****
             (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))))))))
  
  (defun Man-notify-when-ready (man-buffer)
    "Notify the user when MAN-BUFFER is ready.
--- 623,641 ----
             (start-process manual-program buffer "sh" "-c"
                            (format (Man-build-man-command) man-args))
             'Man-bgproc-sentinel)
!         (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.