/[emacs]/emacs/lisp/man.el
ViewVC logotype

Diff of /emacs/lisp/man.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.119 by lektu, Thu Apr 3 15:49:40 2003 UTC revision 1.120 by kai, Mon Apr 7 09:32:39 2003 UTC
# Line 667  all sections related to a subject, put s Line 667  all sections related to a subject, put s
667                ;; the page will actually be displayed, but it seems                ;; the page will actually be displayed, but it seems
668                ;; reasonable.                ;; reasonable.
669                (setenv "COLUMNS" (number-to-string (frame-width)))))                (setenv "COLUMNS" (number-to-string (frame-width)))))
670            (setenv "GROFF_NO_SGR" "1")
671          (if (fboundp 'start-process)          (if (fboundp 'start-process)
672              (set-process-sentinel              (set-process-sentinel
673               (start-process manual-program buffer "sh" "-c"               (start-process manual-program buffer "sh" "-c"
674                              (format (Man-build-man-command) man-args))                              (format (Man-build-man-command) man-args))
675               'Man-bgproc-sentinel)               'Man-bgproc-sentinel)
           (setenv "GROFF_NO_SGR" "1")  
676            (let ((exit-status            (let ((exit-status
677                   (call-process shell-file-name nil (list buffer nil) nil "-c"                   (call-process shell-file-name nil (list buffer nil) nil "-c"
678                                 (format (Man-build-man-command) man-args)))                                 (format (Man-build-man-command) man-args)))

Legend:
Removed from v.1.119  
changed lines
  Added in v.1.120

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26