summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-magit.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index cba378d..0fae81e 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -655,6 +655,8 @@ If prefix argument SQUASH is non-nil, mark for squashing instead
of fixing up."
(interactive (nconc (km/region-or-buffer-line-bounds)
(list current-prefix-arg)))
+ (unless (markerp end)
+ (setq end (copy-marker end)))
(save-excursion
(goto-char beg)
(let ((prefix (if squash "squash" "fixup"))