# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 741649602 0
# Node ID 103a29fa86b73cd5b254f662571bda122058e335
# Parent  3112c8925d3944f90256ee5c0d4b426ed894f39b
(vc-path): New variable.
(vc-do-command): Use vc-path.

diff -r 3112c8925d39 -r 103a29fa86b7 lisp/vc.el
--- a/lisp/vc.el	Fri Jul 02 21:37:09 1993 +0000
+++ b/lisp/vc.el	Fri Jul 02 21:46:42 1993 +0000
@@ -83,6 +83,10 @@
   "*Don't assume that permissions and ownership track version-control status.")
 (defvar vc-checkin-switches nil
   "*Extra switches passed to the checkin program by \\[vc-checkin].")
+(defvar vc-path
+  (if (file-exists-p "/usr/sccs")
+      '("/usr/sccs") nil)
+  "*List of extra directories to search for version control commands.")
 
 (defconst vc-maximum-comment-ring-size 32
   "Maximum number of saved comments in the comment ring.")
@@ -206,7 +210,8 @@
      flags)
     (if vc-file
 	(setq squeezed (append squeezed (list vc-file))))
-    (let ((default-directory (file-name-directory (or file "./"))))
+    (let ((default-directory (file-name-directory (or file "./")))
+	  (exec-path (if vc-path (append exec-path vc-path) exec-path)))
       (setq status (apply 'call-process command nil t nil squeezed)))
     (goto-char (point-max))
     (previous-line 1)