From daa347bde94e434a4d0198d05d16c775eca5eb60 Mon Sep 17 00:00:00 2001 From: Phil Jackson Date: Mon, 1 Nov 2010 13:49:23 +0000 Subject: [PATCH] New ranged long log command. --- magit-key-mode.el | 2 ++ magit.el | 10 +++++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/magit-key-mode.el b/magit-key-mode.el index 607b5452..2a54c844 100644 --- a/magit-key-mode.el +++ b/magit-key-mode.el @@ -22,6 +22,8 @@ (actions ("l" "Short" magit-log) ("L" "Long" magit-log-long) + ("r l" "Ranged short" magit-log-ranged) + ("r L" "Ranged long" magit-log-long-ranged) ("h" "Reflog" magit-reflog) ("H" "Reflog on head" magit-reflog-head)) (switches diff --git a/magit.el b/magit.el index 392eebde..25803e20 100644 --- a/magit.el +++ b/magit.el @@ -3810,9 +3810,13 @@ With a non numeric prefix ARG, show all entries" (interactive "P") (apply 'magit-display-log arg magit-custom-options)) -(magit-define-command log-long (&optional arg) - (interactive "P") - (let* ((range (if arg +(magit-define-command magit-log-long-ranged () + (interactive) + (magit-log-long t)) + +(magit-define-command log-long (&optional ranged) + (interactive) + (let* ((range (if ranged (magit-read-rev-range "Long log" "HEAD") "HEAD")) (topdir (magit-get-top-dir default-directory))