From 84ec2fe1e939a21c996544d04240dc5e87d8ee3e Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar@tradeo.com>
Date: Thu, 6 Sep 2012 14:09:47 +0300
Subject: [PATCH] #180 fixed - easy way to create a new scratch buffer

---
 prelude/prelude-core.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/prelude/prelude-core.el b/prelude/prelude-core.el
index 0d53499..924c27f 100644
--- a/prelude/prelude-core.el
+++ b/prelude/prelude-core.el
@@ -355,6 +355,13 @@ and so on."
            (repeat nil)))
   (intern (concat (symbol-name cmd) "-repeat")))
 
+(defun prelude-create-scratch-buffer ()
+  "Create a new scratch buffer."
+  (interactive)
+  (progn
+    (switch-to-buffer (get-buffer-create (generate-new-buffer-name "*scratch*")))
+    (emacs-lisp-mode)))
+
 (defvar prelude-tips
   '("Press <C-c o> to open a file with external program."
     "Press <C-c p f> to navigate a project's files with ido."