Add magit-log-modify-range command

1 files changed, 9 insertions, 0 deletions

diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index d4b89f2..4fed9c0 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -594,6 +594,15 @@ show tags by default."
         ((derived-mode-p 'magit-cherry-mode)
          (call-interactively #'km/magit-cherry-flip-revs))))
 
+(defun km/magit-log-modify-range ()
+  "Change range for current log buffer."
+  (interactive)
+  (unless (derived-mode-p 'magit-log-mode)
+    (user-error "Not in log buffer"))
+  (setf (caar magit-refresh-args)
+        (read-string "Range: " (caar magit-refresh-args)))
+  (magit-refresh))
+
 (defun km/magit-cherry-insert-in-upstream ()
   (insert ?\n)
   (magit-insert-section (cherries)