emacs: close buffer and window

(global-set-key (kbd "C-<f4>") 'wh-kill-this-buffer)

(defun wh-kill-this-buffer ()
  "Kill this buffer and close window"
  (interactive)
  (kill-this-buffer)
  (if (not (one-window-p)) (delete-window))
  )