/[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.125.2.1 by handa, Fri Apr 16 12:50:07 2004 UTC revision 1.125.2.2 by miles, Mon Jun 28 07:28:43 2004 UTC
# Line 732  all sections related to a subject, put s Line 732  all sections related to a subject, put s
732          (setenv "GROFF_NO_SGR" "1")          (setenv "GROFF_NO_SGR" "1")
733          (if (fboundp 'start-process)          (if (fboundp 'start-process)
734              (set-process-sentinel              (set-process-sentinel
735               (start-process manual-program buffer "sh" "-c"               (start-process manual-program buffer
736                                (if (eq system-type 'cygwin) shell-file-name "sh")
737                                shell-command-switch
738                              (format (Man-build-man-command) man-args))                              (format (Man-build-man-command) man-args))
739               'Man-bgproc-sentinel)               'Man-bgproc-sentinel)
740            (let ((exit-status            (let ((exit-status
741                   (call-process shell-file-name nil (list buffer nil) nil "-c"                   (call-process shell-file-name nil (list buffer nil) nil
742                                   shell-command-switch
743                                 (format (Man-build-man-command) man-args)))                                 (format (Man-build-man-command) man-args)))
744                  (msg ""))                  (msg ""))
745              (or (and (numberp exit-status)              (or (and (numberp exit-status)

Legend:
Removed from v.1.125.2.1  
changed lines
  Added in v.1.125.2.2

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