From: Gustav Hållberg <gustav@virtutech.com>
Date: Sat, 1 Aug 2009 21:07:43 +0000 (+0200)
Subject: stgit.el: Bugfix moving symlinks to/from index
X-Git-Tag: v0.15-rc2~11^2~53
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/stgit/commitdiff_plain/306b37a63112bf26cac29474116490376537f04f?ds=sidebyside

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 65fe68a..c4ed958 100644
--- 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"
-  (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))))))