diff options
| -rw-r--r-- | lisp/km-magit.el | 2 |
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")) |