mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Move dired-clean-up-buffers-too to dired.el

Browse source 
* lisp/dired-x.el (dired-clean-up-buffers-too)
(dired-clean-confirm-killing-deleted-buffers): Move from here...
* lisp/dired.el (dired-clean-up-buffers-too)
(dired-clean-confirm-killing-deleted-buffers): ...to
here.  (Bug#21981)
(dired-clean-up-after-deletion): Adjust documentation.
* etc/NEWS: Announce the change.
This commit is contained in:
Stefan Kangas 2022-07-03 14:32:44 +02:00
parent 6e2f9dd3dd
commit 831b5f3f14
3 changed files with 21 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/dired.el
View file

@ -3692,13 +3692,21 @@ See `dired-delete-file' in case you wish that."
(dired-remove-entry file)
(dired-clean-up-after-deletion file))
(defvar dired-clean-up-buffers-too)
(defvar dired-clean-confirm-killing-deleted-buffers)
(defcustom dired-clean-up-buffers-too t
"Non-nil means offer to kill buffers visiting files and dirs deleted in Dired."
:type 'boolean
:group 'dired)
(defcustom dired-clean-confirm-killing-deleted-buffers t
"If nil, don't ask whether to kill buffers visiting deleted files."
:type 'boolean
:group 'dired
:version "26.1")
(defun dired-clean-up-after-deletion (fn)
"Clean up after a deleted file or directory FN.
Removes any expanded subdirectory of deleted directory. If
`dired-x' is loaded and `dired-clean-up-buffers-too' is non-nil,
Removes any expanded subdirectory of deleted directory.
If `dired-clean-up-buffers-too' is non-nil,
kill any buffers visiting those files, prompting for
confirmation. To disable the confirmation, see
`dired-clean-confirm-killing-deleted-buffers'."