用kill-this-buffer简化代码

最近有两个有关删除buffer的讨论^[1][2]，我用这个技巧已经很长时间了，但我的写法有点繁琐：

(global-set-key (kbd "H-k") '(lambda () (interactive) (kill-buffer nil)))

虽说也是一行，比人家的是差很多，主要是不知道有kill-this-buffer这个函数，现在好了，可以这样写：

(global-set-key (kbd "H-k") 'kill-this-buffer)

这里的H是hyper，我把键盘上的APP键当做hyper，代码是：

(setq w32-apps-modifier 'hyper)

---

1. http://pragmaticemacs.com/emacs/dont-kill-buffer-kill-this-buffer-instead/ ↩

2. http://irreal.org/blog/?p=5585 ↩