Change calls to OS/FIND-PROGRAM so that they explicitly pass the

exec-path, which may be different from the default path.

diff --git a/v7/src/edwin/diros2.scm b/v7/src/edwin/diros2.scm
index 540384acfd9be8b4e109e285d4ef56a93eeca7a4..fef4f01a1a32d911acc355e28b3006e1f4b81b75 100644 (file)
--- a/v7/src/edwin/diros2.scm
+++ b/v7/src/edwin/diros2.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: diros2.scm,v 1.3 1999/01/02 06:11:34 cph Exp $
+;;; $Id: diros2.scm,v 1.4 1999/02/01 03:47:30 cph Exp $
 ;;;
 ;;; Copyright (c) 1992-1999 Massachusetts Institute of Technology
 ;;;
@@ -34,7 +34,7 @@ The files are compressed or uncompressed using gzip."
   (lambda (argument)
     (let ((n
           (dired-change-files "compress" argument
-            (let ((gzip (os/find-program "gzip" #f))
+            (let ((gzip (os/find-program "gzip" #f (ref-variable exec-path)))
                   (directory (buffer-default-directory (current-buffer))))
               (lambda (pathname lstart)
                 (let ((type (pathname-type pathname))

diff --git a/v7/src/edwin/dirunx.scm b/v7/src/edwin/dirunx.scm
index 11cf3c758bc10de924216671545034fdee6b9b8f..7110c174628a6c6104c41daf38f3b50f3f171585 100644 (file)
--- a/v7/src/edwin/dirunx.scm
+++ b/v7/src/edwin/dirunx.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dirunx.scm,v 1.11 1999/01/02 06:11:34 cph Exp $
+;;; $Id: dirunx.scm,v 1.12 1999/02/01 03:47:22 cph Exp $
 ;;;
 ;;; Copyright (c) 1992-1999 Massachusetts Institute of Technology
 ;;;
@@ -26,7 +26,7 @@
 (define (dired-change-inode program)
   (lambda (attribute argument)
     (dired-change-files (string-append "change" attribute "of") argument
-      (let ((program (os/find-program program #f))
+      (let ((program (os/find-program program #f (ref-variable exec-path)))
            (directory (buffer-default-directory (current-buffer))))
        (lambda (pathname lstart)
          (run-synchronous-process #f #f directory #f
@@ -59,7 +59,7 @@ The files are compressed or uncompressed using gzip."
   (lambda (argument)
     (let ((n
           (dired-change-files "compress" argument
-            (let ((gzip (os/find-program "gzip" #f))
+            (let ((gzip (os/find-program "gzip" #f (ref-variable exec-path)))
                   (directory (buffer-default-directory (current-buffer))))
               (lambda (pathname lstart)
                 (let ((type (pathname-type pathname))

diff --git a/v7/src/edwin/dirw32.scm b/v7/src/edwin/dirw32.scm
index 457beab6d18e3b0a265eac70bc8ad33d42c05ac6..b74e3350ddb01a1f09967006f0dffe409a277a75 100644 (file)
--- a/v7/src/edwin/dirw32.scm
+++ b/v7/src/edwin/dirw32.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dirw32.scm,v 1.3 1999/01/02 06:11:34 cph Exp $
+;;; $Id: dirw32.scm,v 1.4 1999/02/01 03:47:13 cph Exp $
 ;;;
 ;;; Copyright (c) 1996, 1999 Massachusetts Institute of Technology
 ;;;
@@ -34,7 +34,7 @@ The files are compressed or uncompressed using gzip."
   (lambda (argument)
     (let ((n
           (dired-change-files "compress" argument
-            (let ((gzip (os/find-program "gzip" #f))
+            (let ((gzip (os/find-program "gzip" #f (ref-variable exec-path)))
                   (directory (buffer-default-directory (current-buffer))))
               (lambda (pathname lstart)
                 (let ((type (pathname-type pathname))

diff --git a/v7/src/edwin/os2.scm b/v7/src/edwin/os2.scm
index 82ed6ac7783f4cfc28ed5770143fb9e126d570b8..296a51d5c9f7ba6f0cfa15e9847cb6221b678fa4 100644 (file)
--- a/v7/src/edwin/os2.scm
+++ b/v7/src/edwin/os2.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: os2.scm,v 1.44 1999/02/01 03:34:09 cph Exp $
+;;; $Id: os2.scm,v 1.45 1999/02/01 03:47:55 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-1999 Massachusetts Institute of Technology
 ;;;
@@ -143,7 +143,7 @@
   system-mailboxes)
 
 (define (os/rmail-pop-procedure)
-  (and (dos/find-program "popclient" (ref-variable exec-path) #f)
+  (and (os/find-program "popclient" #f (ref-variable exec-path))
        (lambda (server user-name password directory)
         (os2-pop-client server user-name password directory))))
 

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 538d5289c5d889ca83fa2d6866c17504831309d5..ef70f78e172074fa4336597a2a060a0ed616c02d 100644 (file)
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rmail.scm,v 1.60 1999/01/28 03:59:59 cph Exp $
+;;; $Id: rmail.scm,v 1.61 1999/02/01 03:47:02 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-1999 Massachusetts Institute of Technology
 ;;;
@@ -503,11 +503,13 @@ and use that file as the inbox."
          (let ((error-buffer (temporary-buffer " movemail errors")))
            (let ((start (buffer-start error-buffer))
                  (end (buffer-end error-buffer)))
-             (run-synchronous-process false start false false
-                                      (os/find-program "movemail"
-                                                       (edwin-etc-directory))
-                                      (->namestring source)
-                                      (->namestring target))
+             (run-synchronous-process
+              false start false false
+              (os/find-program "movemail"
+                               (edwin-etc-directory)
+                               (ref-variable exec-path))
+              (->namestring source)
+              (->namestring target))
              (if (mark< start end)
                  (error
                   (let ((m

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index a90fc334764d259c20ed821354b83d00b27f9a34..b6554d9506c35a1045582bf9de192bc658f375de 100644 (file)
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: sendmail.scm,v 1.43 1999/01/02 06:11:34 cph Exp $
+;;; $Id: sendmail.scm,v 1.44 1999/02/01 03:46:56 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-1999 Massachusetts Institute of Technology
 ;;;
@@ -694,7 +694,7 @@ the user from the mailer."
          ;; user as soon as possible.
          (let ((process
                 (start-pipe-subprocess
-                 (os/find-program program #f)
+                 (os/find-program program #f (ref-variable exec-path))
                  (vector (file-namestring program) "-oi" "-t"
                          (string-append "-f" (current-user-name))
                          ;; These mean "report errors by mail" and

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 001ecf95ba8a345d4d0393b0fc22caf5311c6d1e..f66f2f47575fb91369326b9490adb78809e1e56f 100644 (file)
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: unix.scm,v 1.92 1999/02/01 03:31:01 cph Exp $
+;;; $Id: unix.scm,v 1.93 1999/02/01 03:46:43 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -560,7 +560,7 @@ CANNOT contain the 'F' option."
                                      (file-namestring file)))
        (apply run-synchronous-process
               #f mark directory #f
-              (os/find-program program #f)
+              (os/find-program program #f (ref-variable exec-path))
               (append
                (split-unix-switch-string switches)
                (list
@@ -638,7 +638,7 @@ option, instead taking -P <filename>."
   boolean?)
 
 (define (os/rmail-pop-procedure)
-  (and (unix/find-program "popclient" (ref-variable exec-path) #f)
+  (and (os/find-program "popclient" #f (ref-variable exec-path))
        (lambda (server user-name password directory)
         (unix/pop-client server user-name password directory))))
 

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index d17f54032d7d40eb4541d125bc49a1c678a1430a..217301bc4e8381a8977e24094c0177f474b86e1f 100644 (file)
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: vc.scm,v 1.30 1999/01/02 06:11:34 cph Exp $
+;;; $Id: vc.scm,v 1.31 1999/02/01 03:46:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-1999 Massachusetts Institute of Technology
 ;;;
@@ -1202,7 +1202,8 @@ the value of vc-log-mode-hook."
                  #f
                  #f
                  (os/find-program command
-                                  (buffer-default-directory command-buffer))
+                                  (buffer-default-directory command-buffer)
+                                  (ref-variable exec-path))
                  (vc-command-arguments arguments))))
       (if (and (eq? 'EXITED (car result))
               (<= 0 (cdr result) status-limit))