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

Merge branch 'fancy-log-output'.

Browse source
This commit is contained in:
Phil Jackson 2010-03-16 13:34:44 +00:00
parent bf42bf872a
commit 0074a3185c
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
magit.el
View file

@ -2915,8 +2915,11 @@ Prefix arg means justify as well."
(when (magit-section-p stash)
(setq stash (magit-section-info stash)))
(let ((dir default-directory)
(buf (get-buffer-create "*magit-stash*")))
(cond ((equal magit-currently-shown-stash stash)
(buf (get-buffer-create "*magit-stash*"))
(stash-id (magit-git-string "rev-list" "-1" stash)))
(cond ((and (equal magit-currently-shown-stash stash-id)
(with-current-buffer buf
(> (length (buffer-string)) 1)))
(let ((win (get-buffer-window buf)))
(cond ((not win)
(display-buffer buf))
@ -2924,7 +2927,7 @@ Prefix arg means justify as well."
(with-selected-window win
(funcall scroll))))))
(t
(setq magit-currently-shown-stash stash)
(setq magit-currently-shown-stash stash-id)
(display-buffer buf)
(with-current-buffer buf
(set-buffer buf)
@ -3304,7 +3307,7 @@ Prefix arg means justify as well."
(pop-to-buffer "*magit-commit*"))
((stash)
(magit-show-stash info)
(pop-to-buffer "*magit-diff*"))
(pop-to-buffer "*magit-stash*"))
((topic)
(magit-checkout info))))