defun interactive save-window-excursio let get-buffer-create rxvt shel

1
2
3
4
5
(defun x ()
(interactive)
(save-window-excursion
(let ((b (get-buffer-create " *rxvt*")))
(shell-command "x-terminal-emulator&" b))))