andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix previous -responsible-p change

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2021-11-14 09:41:22 +01:00
parent 370d4038c5
commit 06632fbaf8
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/vc/vc-cvs.el
View file

@ -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.

2
lisp/vc/vc-rcs.el
View file

@ -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."

2
lisp/vc/vc-sccs.el
View file

@ -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)