From f4d71fea837bdf93fe17efd5ec0e98f2692023ab Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar@tradeo.com>
Date: Mon, 29 Apr 2013 17:12:40 +0300
Subject: [PATCH] Refactor prelude-visit-term-buffer

---
 core/prelude-core.el | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/core/prelude-core.el b/core/prelude-core.el
index 38a0f43..761ad20 100644
--- a/core/prelude-core.el
+++ b/core/prelude-core.el
@@ -54,12 +54,9 @@
 (defun prelude-visit-term-buffer ()
   "Create or visit a terminal buffer."
   (interactive)
-  (if (not (get-buffer "*ansi-term*"))
-      (progn
-        (split-window-sensibly (selected-window))
-        (other-window 1)
-        (ansi-term (getenv "SHELL")))
-    (switch-to-buffer-other-window "*ansi-term*")))
+  (prelude-start-or-switch-to (lambda ()
+                                (ansi-term (getenv "SHELL")))
+                              "*ansi-term*"))
 
 (defun prelude-google ()
   "Googles a query or region if any."