用kill-this-buffer简化代码

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

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

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

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

这里的Hhyper,我把键盘上的APP键当做hyper,代码是:

1
(setq w32-apps-modifier 'hyper)

参考资料


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

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