Emacs: speedup calling of ansi-term

This commit is contained in:
Tom Willemsen 2013-03-29 15:46:50 +01:00
parent 56822a900c
commit 752c0436b1

View file

@ -373,7 +373,7 @@ When dealing with braces, add another line and indent that too."
(let ((buffer (get-buffer "*ansi-term*"))) (let ((buffer (get-buffer "*ansi-term*")))
(if (and buffer (not arg)) (if (and buffer (not arg))
(switch-to-buffer buffer) (switch-to-buffer buffer)
(call-interactively 'ansi-term)))) (ansi-term (getenv "SHELL")))))
(defun oni:raise-scratch (&optional mode) (defun oni:raise-scratch (&optional mode)
"Show the *scratch* buffer. "Show the *scratch* buffer.