changeset 3959:103a29fa86b7

(vc-path): New variable. (vc-do-command): Use vc-path.
author Richard M. Stallman <rms@gnu.org>
date Fri, 02 Jul 1993 21:46:42 +0000
parents 3112c8925d39
children 7be89f84a882
files lisp/vc.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)