git.el: Take into account the core.excludesfile config option.
Also don't require .git/info/exclude to exist in order to list unknown files. Signed-off-by: Alexandre Julliard <julliard@winehq.org> Acked-by: Karl Hasselström <kha@treskal.com> Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
parent
61988f1127
commit
274e13e0e9
@ -589,6 +589,16 @@ Return the list of files that haven't been handled."
|
||||
(when node (push (ewoc-data node) unmerged-files))))
|
||||
(git-set-files-state unmerged-files 'unmerged))))
|
||||
|
||||
(defun git-get-exclude-files ()
|
||||
"Get the list of exclude files to pass to git-ls-files."
|
||||
(let (files
|
||||
(config (git-config "core.excludesfile")))
|
||||
(when (file-readable-p ".git/info/exclude")
|
||||
(push ".git/info/exclude" files))
|
||||
(when (and config (file-readable-p config))
|
||||
(push config files))
|
||||
files))
|
||||
|
||||
(defun git-update-status-files (files &optional default-state)
|
||||
"Update the status of FILES from the index."
|
||||
(unless git-status (error "Not in git-status buffer."))
|
||||
@ -598,11 +608,11 @@ Return the list of files that haven't been handled."
|
||||
(git-run-ls-files status files 'added "-c")
|
||||
(git-run-diff-index status files))))
|
||||
(git-run-ls-unmerged status files)
|
||||
(when (and (or (not files) remaining-files)
|
||||
(file-readable-p ".git/info/exclude"))
|
||||
(setq remaining-files (git-run-ls-files status remaining-files
|
||||
'unknown "-o" "--exclude-from=.git/info/exclude"
|
||||
(concat "--exclude-per-directory=" git-per-dir-ignore-file))))
|
||||
(when (or (not files) remaining-files)
|
||||
(let ((exclude-files (git-get-exclude-files)))
|
||||
(setq remaining-files (apply #'git-run-ls-files status remaining-files 'unknown "-o"
|
||||
(concat "--exclude-per-directory=" git-per-dir-ignore-file)
|
||||
(mapcar (lambda (f) (concat "--exclude-from=" f)) exclude-files)))))
|
||||
; mark remaining files with the default state (or remove them if nil)
|
||||
(when remaining-files
|
||||
(if default-state
|
||||
|
Loading…
Reference in New Issue
Block a user