diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-07-02 21:46:42 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-07-02 21:46:42 +0000 |
commit | 6eb77bb45e78d5ba55c65cb76a8c3b8464cf6d0e (patch) | |
tree | cbb2dd143f46b5eb89d5c0555fffec5100a466b2 /lisp/vc.el | |
parent | b15b6e7928ca31d54c2836b6fbb35816aad61a06 (diff) | |
download | emacs-6eb77bb45e78d5ba55c65cb76a8c3b8464cf6d0e.tar.gz |
(vc-path): New variable.
(vc-do-command): Use vc-path.
Diffstat (limited to 'lisp/vc.el')
-rw-r--r-- | lisp/vc.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index fd1c644fdf6..3a098a1eba1 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -83,6 +83,10 @@ The value is only computed when needed to avoid an expensive search.") "*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 @@ the master name of FILE; this is appended to an optional list of FLAGS." 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) |