stgit.el: Bugfix moving symlinks to/from index

Signed-off-by: Gustav Hållberg <gustav@virtutech.com>

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 65fe68a37a02b54b3243ef1e5208a1032fd02c35..c4ed9583660a9ee232889b43f01e983738592afc 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -878,7 +878,8 @@ (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" "-q"))))
+  (let ((op (if (or (file-exists-p file) (file-symlink-p file))
+                '("add") '("rm" "-q"))))

     (stgit-capture-output "*git output*"
       (apply 'stgit-run-git (append op '("--") (list file))))))
 
     (stgit-capture-output "*git output*"
       (apply 'stgit-run-git (append op '("--") (list file))))))