Browse Source

Refactor prelude-visit-term-buffer

custom
Bozhidar Batsov 13 years ago
parent
commit
f4d71fea83
  1. 7
      core/prelude-core.el

7
core/prelude-core.el

@ -54,12 +54,9 @@
(defun prelude-visit-term-buffer () (defun prelude-visit-term-buffer ()
"Create or visit a terminal buffer." "Create or visit a terminal buffer."
(interactive) (interactive)
(if (not (get-buffer "*ansi-term*"))
(progn
(split-window-sensibly (selected-window))
(other-window 1)
(prelude-start-or-switch-to (lambda ()
(ansi-term (getenv "SHELL"))) (ansi-term (getenv "SHELL")))
(switch-to-buffer-other-window "*ansi-term*")))
"*ansi-term*"))
(defun prelude-google () (defun prelude-google ()
"Googles a query or region if any." "Googles a query or region if any."

Loading…
Cancel
Save