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

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