branch: elpa/magit
commit 2063435bace1fa69dbafe666a07994755f8ed01e
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>

    magit-*-files: Somewhat increase signature consistency
    
    Even after this, the consistency between the signatures of these
    functions is still low.  But it is a step in the right direction,
    without looking us in too much, making it even harder to achieve
    full consistency in the future.
---
 lisp/magit-git.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index ecce961a5ae..6ff7229d6b9 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -1045,16 +1045,16 @@ tracked file."
 (defun magit-list-files (&rest args)
   (apply #'magit-git-items "ls-files" "-z" "--full-name" args))
 
-(defun magit-tracked-files ()
-  (magit-list-files "--cached"))
+(defun magit-tracked-files (&rest args)
+  (magit-list-files "--cached" args))
 
-(defun magit-untracked-files (&optional all files)
-  (magit-list-files "--other"
+(defun magit-untracked-files (&optional all files &rest args)
+  (magit-list-files "--other" args
                     (and (not all) "--exclude-standard")
                     "--" files))
 
 (defun magit-ignored-files (&rest args)
-  (magit-list-files "--others" "--ignored" "--exclude-standard"))
+  (magit-list-files "--others" "--ignored" "--exclude-standard" args))
 
 (defun magit-modified-files (&optional nomodules files)
   (magit-git-items "diff-index" "-z" "--name-only"
@@ -1087,15 +1087,15 @@ tracked file."
 (defun magit-stashed-files (stash)
   (magit-git-items "stash" "show" "-z" "--name-only" stash))
 
-(defun magit-skip-worktree-files ()
+(defun magit-skip-worktree-files (&rest args)
   (--keep (and (= (aref it 0) ?S)
                (substring it 2))
-          (magit-list-files "-t")))
+          (magit-list-files "-t" args)))
 
-(defun magit-assume-unchanged-files ()
+(defun magit-assume-unchanged-files (&rest args)
   (--keep (and (memq (aref it 0) '(?h ?s ?m ?r ?c ?k))
                (substring it 2))
-          (magit-list-files "-v")))
+          (magit-list-files "-v" args)))
 
 (defun magit-revision-files (rev)
   (magit-with-toplevel

Reply via email to