From 2e0798409747661ab6898ae8444816aacacd70d2 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@manamana.(none)>
Date: Mon, 11 Aug 2008 05:18:55 +0300
Subject: [PATCH 1/3] Actually pass the head to git-log.

---
 magit.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/magit.el b/magit.el
index 4bfdbd68..dae21652 100644
--- a/magit.el
+++ b/magit.el
@@ -755,7 +755,7 @@ pushed.
 	(erase-buffer)
 	(magit-insert-section 'history "History" 'magit-wash-log
 			      "git" "log" "--max-count=100"
-			      "--pretty=oneline")))))
+			      "--pretty=oneline" head)))))
 
 (defun magit-browse-branch-log ()
   (interactive)

From 133e40b90b8badd6ba6b7317bdfe437250c44178 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@manamana.(none)>
Date: Mon, 11 Aug 2008 05:41:28 +0300
Subject: [PATCH 2/3] Make *magit-commit* buffer read-only.

---
 magit.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/magit.el b/magit.el
index dae21652..dee333f0 100644
--- a/magit.el
+++ b/magit.el
@@ -724,9 +724,11 @@ pushed.
     (display-buffer buf)
     (save-excursion
       (set-buffer buf)
-      (erase-buffer)
-      (magit-insert-section 'commit nil nil
-			    "git" "log" "--max-count=1" "-p" commit))))
+      (setq buffer-read-only t)
+      (let ((inhibit-read-only t))
+	(erase-buffer)
+	(magit-insert-section 'commit nil 'magit-wash-diff
+			      "git" "log" "--max-count=1" "-p" commit)))))
 
 (defun magit-quit ()
   (interactive)

From a5b4bcd354d289bafde8687c06436ddcd0fe98a9 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@manamana.(none)>
Date: Mon, 11 Aug 2008 05:42:07 +0300
Subject: [PATCH 3/3] Renamed *git-process* buffer to *magit-process*.

---
 magit.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/magit.el b/magit.el
index dee333f0..21ef3209 100644
--- a/magit.el
+++ b/magit.el
@@ -161,7 +161,7 @@
   (or (not magit-process)
       (error "Git is already running."))
   (let ((dir default-directory)
-	(buf (get-buffer-create "*git-process*")))
+	(buf (get-buffer-create "*magit-process*")))
     (save-excursion
       (set-buffer buf)
       (setq default-directory dir)
@@ -198,7 +198,7 @@
 
 (defun magit-display-process ()
   (interactive)
-  (display-buffer "*git-process*"))
+  (display-buffer "*magit-process*"))
 
 ;;; Mode