mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

Set correct svn:ignore property for relative filenames

Browse Source 
* lisp/vc/vc-svn.el: (vc-svn-ignore) Use svn:ignore property of
immediate parent directory for wildcard specification (bug#37216).
This commit is contained in:
Wolfgang Scherer 2019-10-07 06:58:59 +02:00 committed by Lars Ingebrigtsen
parent f2346b5788
commit 604a985a1a
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/vc/vc-svn.el
View File

@ -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))))
directory)))
(defun vc-svn-ignore-completion-table (directory)
"Return the list of ignored files in DIRECTORY."