From 58777d16f215c47cf3f1cb3e9d1d1f8f960d0dcb Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Tue, 29 Jan 2013 23:56:37 +0200 Subject: [PATCH 1/2] Open ansi-term buffer in another window --- core/prelude-core.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/prelude-core.el b/core/prelude-core.el index ede35f1..8f0d6cd 100644 --- a/core/prelude-core.el +++ b/core/prelude-core.el @@ -53,7 +53,7 @@ file of a buffer in an external program." (interactive) (if (not (get-buffer "*ansi-term*")) (ansi-term (getenv "SHELL")) - (switch-to-buffer "*ansi-term*"))) + (switch-to-buffer-other-window "*ansi-term*"))) (defun prelude-google () "Googles a query or region if any." From b84dfee681f3ed8ccf098324347852f81cf45882 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Tue, 29 Jan 2013 23:58:15 +0200 Subject: [PATCH 2/2] Introduce prelude-visit-ielm command and bind it to C-c C-z (a-la-slime) --- modules/prelude-emacs-lisp.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/modules/prelude-emacs-lisp.el b/modules/prelude-emacs-lisp.el index ca4c568..f8beb55 100644 --- a/modules/prelude-emacs-lisp.el +++ b/modules/prelude-emacs-lisp.el @@ -43,6 +43,14 @@ (if (file-exists-p (concat buffer-file-name "c")) (delete-file (concat buffer-file-name "c")))))) +(defun prelude-visit-ielm () + (interactive) + (if (not (get-buffer "*ielm*")) + (ielm) + (switch-to-buffer-other-window "*ielm*"))) + +(define-key emacs-lisp-mode-map (kbd "C-c C-z") 'prelude-visit-ielm) + (defun prelude-emacs-lisp-mode-defaults () (run-hooks 'prelude-lisp-coding-hook) (turn-on-eldoc-mode)