[nongnu] elpa/git-commit be12ac7511 3/7: magit-stage-file: With a prefix argument offer ignored files

[ELPA Syncer]

branch: elpa/git-commit
commit be12ac751153615b848a15a47ec9f4e95144fe9c
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    magit-stage-file: With a prefix argument offer ignored files
---
 lisp/magit-apply.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/lisp/magit-apply.el b/lisp/magit-apply.el
index 744dfec7a3..77cab39b9f 100644
--- a/lisp/magit-apply.el
+++ b/lisp/magit-apply.el
@@ -299,15 +299,19 @@ at point, stage the file but not its content."
 
 ;;;###autoload
 (defun magit-stage-file (files)
-  "Read one or more files and stage all changes in those files."
+  "Read one or more files and stage all changes in those files.
+With a prefix argument offer ignored files for completion."
   (interactive
-   (let* ((choices (nconc (magit-unstaged-files)
-                          (magit-untracked-files)))
+   (let* ((choices (if current-prefix-arg
+                       (magit-ignored-files)
+                     (nconc (magit-unstaged-files)
+                            (magit-untracked-files))))
           (default (or (magit-section-value-if 'file)
                        (magit-file-relative-name)))
           (default (car (member default choices))))
-     (list (magit-completing-read-multiple "Stage file,s" choices
-                                           nil t nil nil default))))
+     (list (magit-completing-read-multiple
+            (if current-prefix-arg "Stage ignored file,s: " "Stage file,s: ")
+            choices nil t nil nil default))))
   (magit-with-toplevel
     ;; For backward compatibility, and because of
     ;; the function's name, don't require a list.