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

[Kai Großjohann]

Index: emacs/lisp/man.el
diff -c emacs/lisp/man.el:1.119 emacs/lisp/man.el:1.120
*** emacs/lisp/man.el:1.119     Thu Apr  3 10:49:40 2003
--- emacs/lisp/man.el   Mon Apr  7 05:32:39 2003
***************
*** 667,678 ****
              ;; the page will actually be displayed, but it seems
              ;; reasonable.
              (setenv "COLUMNS" (number-to-string (frame-width)))))
        (if (fboundp 'start-process)
            (set-process-sentinel
             (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)))
--- 667,678 ----
              ;; the page will actually be displayed, but it seems
              ;; reasonable.
              (setenv "COLUMNS" (number-to-string (frame-width)))))
+       (setenv "GROFF_NO_SGR" "1")
        (if (fboundp 'start-process)
            (set-process-sentinel
             (start-process manual-program buffer "sh" "-c"
                            (format (Man-build-man-command) man-args))
             'Man-bgproc-sentinel)
          (let ((exit-status
                 (call-process shell-file-name nil (list buffer nil) nil "-c"
                               (format (Man-build-man-command) man-args)))