mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Move more logic to vc-ignore from vc-default-ignore

Browse source 
* lisp/vc/vc-dir.el (vc-dir-ignore):
Pass relative file names to vc-ignore.

* lisp/vc/vc.el (vc-ignore): Move the responsibility of
constructing the ignore pattern (right now, most often a relative
file name) using a file name received from the user, here.
(vc-default-ignore): ...from here (bug#37189, see discussion).
Also clarify the docstring.
This commit is contained in:
Dmitry Gutov 2020-02-23 01:51:38 +02:00
parent 2aed279be1
commit dd5756436c
2 changed files with 33 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/vc/vc-dir.el
View file

@ -879,7 +879,9 @@ If a prefix argument is given, ignore all marked files."
(vc-ignore (vc-dir-fileinfo->name filearg))
t))
vc-ewoc)
(vc-ignore (vc-dir-current-file))))
(vc-ignore
(file-relative-name (vc-dir-current-file))
default-directory)))
(defun vc-dir-current-file ()
(let ((node (ewoc-locate vc-ewoc)))