From cf02df792e9e39cc3683c6f069f988ed6b4cc73a Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Sat, 27 Oct 2012 14:33:08 +0900 Subject: [PATCH] my-query-kll-{this -> current}-buffer --- emacs.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/emacs.el b/emacs.el index f7ef37f..989d5fc 100644 --- a/emacs.el +++ b/emacs.el @@ -571,13 +571,13 @@ otherwise the path where the library installed." (defun my-delete-window-killing-buffer () nil) -(defun my-query-kill-this-buffer () +(defun my-query-kill-current-buffer () "" (interactive) - (if (y-or-n-p (concat "kill this buffer? :")) + (if (y-or-n-p (concat "kill current buffer? :")) (kill-buffer (current-buffer)))) -(substitute-key-definition 'kill-buffer 'my-query-kill-this-buffer global-map) -;;(global-set-key "\C-xk" 'my-query-kill-this-buffer) +(substitute-key-definition 'kill-buffer 'my-query-kill-current-buffer global-map) +;;(global-set-key "\C-xk" 'my-query-kill-current-buffer) (defun my-kill-buffers () ""