master 06632fb: Fix previous -responsible-p change

[Lars Ingebrigtsen]

branch: master
commit 06632fbaf81900143aec988a846ee18e33a85e50
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
---
 lisp/vc/vc-cvs.el  | 2 +-
 lisp/vc/vc-rcs.el  | 2 +-
 lisp/vc/vc-sccs.el | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el
index 7062c49..c895447 100644
--- 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 226e162..2422e99 100644
--- 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 d59ccb3..4b56fbf 100644
--- 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)