gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Branch browsing.

Browse source
This commit is contained in:
Marius Vollmer 2008-08-11 05:16:43 +03:00
parent eb62d6d59f
commit 5742fa3476
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
magit.el
View file

@ -225,6 +225,7 @@
(define-key magit-mode-map (kbd "c") 'magit-log-edit) (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 "C") 'magit-add-log)
(define-key magit-mode-map (kbd "l") 'magit-browse-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)) (define-key magit-mode-map (kbd "p") 'magit-display-process))
(defvar magit-mode-hook nil) (defvar magit-mode-hook nil)
@ -743,8 +744,8 @@ pushed.
'magit-info (list 'commit commit)))) 'magit-info (list 'commit commit))))
(forward-line))) (forward-line)))
(defun magit-browse-log () (defun magit-browse-log (head)
(interactive) (interactive (list (magit-get-current-branch)))
(let* ((topdir (magit-get-top-dir default-directory))) (let* ((topdir (magit-get-top-dir default-directory)))
(switch-to-buffer "*magit-log*") (switch-to-buffer "*magit-log*")
(setq default-directory topdir) (setq default-directory topdir)
@ -756,6 +757,10 @@ pushed.
"git" "log" "--max-count=100" "git" "log" "--max-count=100"
"--pretty=oneline"))))) "--pretty=oneline")))))
(defun magit-browse-branch-log ()
(interactive)
(magit-browse-log (magit-read-other-branch "Browse history of branch: ")))
;;; Miscellaneous ;;; Miscellaneous
(defun magit-ignore-thing-at-point () (defun magit-ignore-thing-at-point ()