Frage dired-x: Wie setze ich "Kill buffer of ..., too?" auf ja ohne Bestätigung?


Wenn Sie eine Datei löschen foo im dired-x, wirst du gefragt Kill buffer of foo, too?. Wie kann ich diese Frage überspringen und immer mit beantworten? yes?


5
2017-07-18 17:02


Ursprung


Antworten:


Definieren Sie das Dired-Clean-Up-nach-Deletion-Verfahren in dired-x.el einfach neu.

;; 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?
  ))

5
2017-07-19 19:27



Sie können das beraten dired-delete-entry Funktion, damit alle Dateipuffer vor dem Löschen geschlossen werden:

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

Das Elisp-Handbuch beschreibt die Empfehlung als "sauberer als die Neudefinition der gesamten Funktion" und es ist weniger wahrscheinlich, dass es bricht, wenn sich die Definition der Funktion in der Zukunft ändert.


9
2017-07-18 17:31