;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/close.el

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

(defun set-close-key (map)
  (define-key map "w" #'kill-current-buffer))

(defun set-bury-keys (map)
  (define-key map "\C-xk" #'bury-buffer)
  (define-key map "w"     #'bury-buffer) )

(provide 'close)