Fix previous -responsible-p change

* lisp/vc/vc-sccs.el (vc-sccs-responsible-p):
* lisp/vc/vc-rcs.el (vc-rcs-responsible-p):
* lisp/vc/vc-cvs.el (vc-cvs-responsible-p): Make the previous
change work with relative file names, too.

diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el
index 7062c4971f8ef5cfdac61c274a4040edead5ee4e..c8954472245c49f0b2a866675bb140138da0951e 100644 (file)
--- a/lisp/vc/vc-cvs.el
+++ b/lisp/vc/vc-cvs.el
@@ -313,7 +313,7 @@ to the CVS command."
                 file
               (file-name-directory file))))
     (and (file-directory-p (expand-file-name "CVS" dir))
-         dir)))
+         (file-name-directory (expand-file-name "CVS" dir)))))
 
 (defun vc-cvs-could-register (file)
   "Return non-nil if FILE could be registered in CVS.

diff --git a/lisp/vc/vc-rcs.el b/lisp/vc/vc-rcs.el
index 226e162d8ba20c0d716629c49ff8f6dc66fb62d7..2422e99d3dab2cde9b6354a55146777972d31a71 100644 (file)
--- a/lisp/vc/vc-rcs.el
+++ b/lisp/vc/vc-rcs.el
@@ -294,7 +294,7 @@ to the RCS command."
                 file
               (file-name-directory file))))
     (and (file-directory-p (expand-file-name "RCS" dir))
-         dir)))
+         (file-name-directory (expand-file-name "RCS" dir)))))
 
 (defun vc-rcs-receive-file (file rev)
   "Implementation of receive-file for RCS."

diff --git a/lisp/vc/vc-sccs.el b/lisp/vc/vc-sccs.el
index d59ccb37b3be090e95a3b0421d8b8b4cedf93f20..4b56fbf28efac03aacf6b289d4710fef270ee2f9 100644 (file)
--- a/lisp/vc/vc-sccs.el
+++ b/lisp/vc/vc-sccs.el
@@ -216,7 +216,7 @@ to the SCCS command."
   ;; TODO: check for all the patterns in vc-sccs-master-templates
   (or (and (file-directory-p
             (expand-file-name "SCCS" (file-name-directory file)))
-           file)
+           (file-name-directory file))
       (let ((dir (vc-sccs-search-project-dir (or (file-name-directory file) "")
                                             (file-name-nondirectory file))))
         (and (stringp dir)