dired-x：如何設置「...的殺死緩衝區？」是的沒有確認？

Question

如果您刪除dired-x中的文件foo，系統會提示您提問Kill buffer of foo, too?。我怎樣才能跳過這個問題，並總是用yes回答？

Answer 1

只需在dired-x.el中重新定義刪除後的dired-clean-up-delete即可。

;; redefine the definition in dired-x.el, so that we are not prompted 
;; to remove buffers that were associated with deleted 
;; files/directories 

(eval-after-load "dired-x" '(defun dired-clean-up-after-deletion (fn) 
    "My. Clean up after a deleted file or directory FN. 
Remove expanded subdir of deleted dir, if any." 
    (save-excursion (and (cdr dired-subdir-alist) 
         (dired-goto-subdir fn) 
         (dired-kill-subdir))) 

    ;; Offer to kill buffer of deleted file FN. 
    (if dired-clean-up-buffers-too 
     (progn 
     (let ((buf (get-file-buffer fn))) 
      (and buf 
       (save-excursion ; you never know where kill-buffer leaves you 
       (kill-buffer buf)))) 
     (let ((buf-list (dired-buffers-for-dir (expand-file-name fn))) 
       (buf nil)) 
      (and buf-list 
       (while buf-list 
       (save-excursion (kill-buffer (car buf-list))) 
       (setq buf-list (cdr buf-list))))))) 
    ;; Anything else? 
)) 

Answer 2

，使任何文件緩衝區刪除前關閉您可以告知dired-delete-entry功能：

(defadvice dired-delete-entry (before force-clean-up-buffers (file) activate) 
    (kill-buffer (get-file-buffer file))) 

的elisp的手冊描述爲「比重新定義全功能清潔工」提供諮詢，這是不太可能打破，如果功能的定義在未來發生變化。