(defun kill-current-buffer ()
  (interactive)
  (kill-buffer (current-buffer)) )

(defun set-close-key (map)
  "Set the MAP key for killing the buffer."
  (define-key map "w" #'kill-current-buffer))

(defun set-bury-keys (map)
  "Set MAP keys for burying the buffer."
  (define-key map "\C-xk" #'bury-buffer)
  (define-key map "w"     #'bury-buffer) )

(provide 'close)