From 5742fa3476a1626df9a606eff89b1f21dde6d42b Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 11 Aug 2008 05:16:43 +0300 Subject: [PATCH] Branch browsing. --- magit.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/magit.el b/magit.el index 8728cba0..4bfdbd68 100644 --- a/magit.el +++ b/magit.el @@ -225,6 +225,7 @@ (define-key magit-mode-map (kbd "c") 'magit-log-edit) (define-key magit-mode-map (kbd "C") 'magit-add-log) (define-key magit-mode-map (kbd "l") 'magit-browse-log) + (define-key magit-mode-map (kbd "L") 'magit-browse-branch-log) (define-key magit-mode-map (kbd "p") 'magit-display-process)) (defvar magit-mode-hook nil) @@ -743,8 +744,8 @@ pushed. 'magit-info (list 'commit commit)))) (forward-line))) -(defun magit-browse-log () - (interactive) +(defun magit-browse-log (head) + (interactive (list (magit-get-current-branch))) (let* ((topdir (magit-get-top-dir default-directory))) (switch-to-buffer "*magit-log*") (setq default-directory topdir) @@ -756,6 +757,10 @@ pushed. "git" "log" "--max-count=100" "--pretty=oneline"))))) +(defun magit-browse-branch-log () + (interactive) + (magit-browse-log (magit-read-other-branch "Browse history of branch: "))) + ;;; Miscellaneous (defun magit-ignore-thing-at-point ()