diff options
| author | Richard M. Stallman | 1995-03-11 02:17:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-03-11 02:17:04 +0000 |
| commit | b75f9a7686f4bac083c5f7f253efedc8ac9fc1fd (patch) | |
| tree | 600fd0287ed5ead07147930187e758b0255bb4e1 | |
| parent | e34379890042bdb66263d962e845328ac0b63f67 (diff) | |
| download | emacs-b75f9a7686f4bac083c5f7f253efedc8ac9fc1fd.tar.gz emacs-b75f9a7686f4bac083c5f7f253efedc8ac9fc1fd.zip | |
(vc-path): Use /usr/sccs only if it is a dir.
| -rw-r--r-- | lisp/vc.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 6ac48e2d367..5b9de8bb486 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -95,8 +95,9 @@ value of this flag.") | |||
| 95 | (defvar vc-checkout-switches nil | 95 | (defvar vc-checkout-switches nil |
| 96 | "*Extra switches passed to the checkout program by \\[vc-checkout].") | 96 | "*Extra switches passed to the checkout program by \\[vc-checkout].") |
| 97 | (defvar vc-path | 97 | (defvar vc-path |
| 98 | (if (file-exists-p "/usr/sccs") | 98 | (if (file-directory-p "/usr/sccs") |
| 99 | '("/usr/sccs") nil) | 99 | '("/usr/sccs") |
| 100 | nil) | ||
| 100 | "*List of extra directories to search for version control commands.") | 101 | "*List of extra directories to search for version control commands.") |
| 101 | (defvar vc-directory-exclusion-list '("SCCS" "RCS") | 102 | (defvar vc-directory-exclusion-list '("SCCS" "RCS") |
| 102 | "*Directory names ignored by functions that recursively walk file trees.") | 103 | "*Directory names ignored by functions that recursively walk file trees.") |