stgit.el: Run "git rm" with "-q" to reduce spam

[stgit] / contrib / stgit.el

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 97a6d1394d62b022117e82edb040606d8f3b7442..65fe68a37a02b54b3243ef1e5208a1032fd02c35 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -878,9 +878,9 @@ (defun stgit-show ()
 
 (defun stgit-move-change-to-index (file)
   "Copies the workspace state of FILE to index, using git add or git rm"
 
 (defun stgit-move-change-to-index (file)
   "Copies the workspace state of FILE to index, using git add or git rm"

-  (let ((op (if (file-exists-p file) "add" "rm")))
+  (let ((op (if (file-exists-p file) '("add") '("rm" "-q"))))

     (stgit-capture-output "*git output*"
     (stgit-capture-output "*git output*"

-      (stgit-run-git op "--" file))))
+      (apply 'stgit-run-git (append op '("--") (list file))))))

 
 (defun stgit-remove-change-from-index (file)
   "Unstages the change in FILE from the index"
 
 (defun stgit-remove-change-from-index (file)
   "Unstages the change in FILE from the index"