stgit.el: Bugfix of stgit-move-patches to top of stack

[stgit] / contrib / stgit.el

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 6cb0f1e6bd7159b808a2335e5916197b738b2b0e..0b8cb25204d71c9af4d48560fa299dda30b0b64c 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -1489,7 +1489,7 @@ (defun stgit-move-patches-target ()
 This is either the patch at point, or one of :top and :bottom, if
 the point is after or before the applied patches."
 
 This is either the patch at point, or one of :top and :bottom, if
 the point is after or before the applied patches."
 

-  (let ((patchsym (stgit-patch-name-at-point)))
+  (let ((patchsym (stgit-patch-name-at-point nil t)))

     (cond (patchsym patchsym)
          ((save-excursion (re-search-backward "^>" nil t)) :top)
          (t :bottom))))
     (cond (patchsym patchsym)
          ((save-excursion (re-search-backward "^>" nil t)) :top)
          (t :bottom))))