From 412754b52b4911db39898cd5ca1ea43f9614c535 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 24 Nov 2015 22:06:09 -0500 Subject: zsh-toggle-ansi-term-home: Add other-window prefix arg --- lisp/init-external.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lisp') diff --git a/lisp/init-external.el b/lisp/init-external.el index b42956e..1e4f98e 100644 --- a/lisp/init-external.el +++ b/lisp/init-external.el @@ -64,11 +64,13 @@ DIRECTORY." (lambda (b &rest _) (get-buffer b)))) (ansi-term "zsh" name))))))) -(defun km/zsh-toggle-ansi-term-home () - (interactive) +(defun km/zsh-toggle-ansi-term-home (&optional other-window) + (interactive "P") (if (string= "*zsh*" (buffer-name)) (bury-buffer) - (km/zsh-ansi-term "~/" "zsh"))) + (let ((display-buffer-overriding-action + (and other-window '(nil (inhibit-same-window . t))))) + (km/zsh-ansi-term "~/" "zsh")))) (defun km/zsh-ansi-term-other-window (&optional directory) (interactive (km/zsh-ansi-term--args)) -- cgit v1.2.3