Mercurial > emacs
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)