/[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.116 by kai, Fri Mar 7 21:04:53 2003 UTC revision 1.117 by kai, Sun Mar 9 14:05:25 2003 UTC
# Line 623  all sections related to a subject, put s Line 623  all sections related to a subject, put s
623               (start-process manual-program buffer "sh" "-c"               (start-process manual-program buffer "sh" "-c"
624                              (format (Man-build-man-command) man-args))                              (format (Man-build-man-command) man-args))
625               'Man-bgproc-sentinel)               'Man-bgproc-sentinel)
626            (let ((process-environment            (setenv "GROFF_NO_SGR" "1")
627                   (cons "GROFF_NO_SGR=1" process-environment)))            (let ((exit-status
628                     (call-process shell-file-name nil (list buffer nil) nil "-c"
629              (let ((exit-status                                 (format (Man-build-man-command) man-args)))
630                     (call-process shell-file-name nil (list buffer nil) nil "-c"                  (msg ""))
631                                   (format (Man-build-man-command) man-args)))              (or (and (numberp exit-status)
632                    (msg ""))                       (= exit-status 0))
633                (or (and (numberp exit-status)                  (and (numberp exit-status)
634                         (= exit-status 0))                       (setq msg
635                    (and (numberp exit-status)                             (format "exited abnormally with code %d"
636                         (setq msg                                     exit-status)))
637                               (format "exited abnormally with code %d"                  (setq msg exit-status))
638                                       exit-status)))              (Man-bgproc-sentinel bufname msg)))))))
                   (setq msg exit-status))  
               (Man-bgproc-sentinel bufname msg))))))))  
639    
640  (defun Man-notify-when-ready (man-buffer)  (defun Man-notify-when-ready (man-buffer)
641    "Notify the user when MAN-BUFFER is ready.    "Notify the user when MAN-BUFFER is ready.

Legend:
Removed from v.1.116  
changed lines
  Added in v.1.117

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