Pārlūkot izejas kodu

Add my-force-query-kill-current-buffer

master
10sr pirms 5 gadiem
vecāks
revīzija
8ce816fbb1
Parakstījis: 10sr GPG atslēgas ID: 7BEC428194130EB2
1 mainītis faili ar 7 papildinājumiem un 0 dzēšanām
  1. +7
    -0
      emacs.el

+ 7
- 0
emacs.el Parādīt failu

@@ -1810,6 +1810,13 @@ found, otherwise returns nil."
(interactive)
(if (y-or-n-p (concat "kill current buffer? :"))
(kill-buffer (current-buffer))))
(defun my-force-query-kill-current-buffer ()
"Interactively kill current buffer."
(interactive)
(when (y-or-n-p (concat "kill current buffer? :"))
(let ((kill-buffer-hook nil)
(kill-buffer-query-functions nil))
(kill-buffer (current-buffer)))))
;;(global-set-key "\C-xk" 'my-query-kill-current-buffer)
(substitute-key-definition 'kill-buffer
'my-query-kill-current-buffer


Notiek ielāde…
Atcelt
Saglabāt