6

でファイルを削除すると、質問が表示fooされます。この質問をスキップして、常に答えるにはどうすればよいですか？dired-xKill buffer of foo, too?yes

4

2 に答える 2

9

dired-delete-entry削除前にすべてのファイル バッファが閉じられるように関数にアドバイスできます。

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

Elisp のマニュアルでは、アドバイスは「関数全体を再定義するよりもクリーン」であると説明されており、関数の定義が将来変更された場合に壊れる可能性は低くなります。

于 2012-07-18T17:31:59.067 に答える
6

dired-x.el で dired-clean-up-after-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?
  ))
于 2012-07-19T19:27:44.527 に答える