Commit 604a985a authored by Wolfgang Scherer's avatar Wolfgang Scherer Committed by Lars Ingebrigtsen

Set correct svn:ignore property for relative filenames

* lisp/vc/vc-svn.el: (vc-svn-ignore) Use svn:ignore property of
immediate parent directory for wildcard specification (bug#37216).
parent f2346b57
Pipeline #3489 failed with stage
in 68 minutes and 36 seconds
......@@ -353,15 +353,18 @@ to the SVN command."
(defun vc-svn-ignore (file &optional directory remove)
"Ignore FILE under Subversion.
FILE is a file wildcard, relative to the root directory of DIRECTORY."
(let* ((ignores (vc-svn-ignore-completion-table directory))
(file (file-relative-name file directory))
FILE is a wildcard specification, either relative to
DIRECTORY or absolute."
(let* ((path (directory-file-name (expand-file-name file directory)))
(directory (file-name-directory path))
(file (file-name-nondirectory path))
(ignores (vc-svn-ignore-completion-table directory))
(ignores (if remove
(delete file ignores)
(push file ignores))))
(vc-svn-command nil 0 nil nil "propset" "svn:ignore"
(mapconcat #'identity ignores "\n")
(expand-file-name directory))))
(defun vc-svn-ignore-completion-table (directory)
"Return the list of ignored files in DIRECTORY."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment