From 32e24f3075a80d6497ad2f94899aedbdbc08e18e Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sun, 5 Feb 2012 03:19:38 +0900
Subject: [PATCH] change way to display frame initial buffer

---
 emacs.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/emacs.el b/emacs.el
index d59fc9f..bed8add 100644
--- a/emacs.el
+++ b/emacs.el
@@ -738,9 +738,10 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; frame buffer
 
-(add-hook 'before-make-frame-hook
-          (lambda ()
-            (switch-to-buffer "*Messages*")))
+(add-hook 'after-make-frame-functions
+          (lambda (frame)
+            (set-window-buffer (frame-selected-window frame)
+                               "*Messages*")))
 
 (defvar my-frame-buffer-plist nil)