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

Use dired--inhibit-auto-revert for fixing bug#71264

Browse source 
The original fix bound auto-revert-mode to nil which had the side-effect
of disabling auto-revert forever in this buffer because
auto-revert-handler removes the buffer from auto-revert-buffer-list when
it's called but auto-revert-mode is nil.

* lisp/dired.el (dired-internal-do-deletions): Bind
dired--inhibit-auto-revert during deletion (bug#71264).
This commit is contained in:
Tassilo Horn 2025-01-26 09:44:59 +01:00
parent 35d3927859
commit 01d93d56cd
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/dired.el
View file

@ -4089,13 +4089,12 @@ non-empty directories is allowed."
(while l
(goto-char (marker-position (cdr (car l))))
(dired-move-to-filename)
(let ((inhibit-read-only t))
(let ((inhibit-read-only t)
;; Temporarily prevent auto-revert while deleting
;; entry in the dired buffer (bug#71264).
(dired--inhibit-auto-revert t))
(condition-case err
(let ((fn (car (car l)))
;; Temporarily prevent auto-revert while
;; deleting entry in the dired buffer
;; (bug#71264).
(auto-revert-mode nil))
(let ((fn (car (car l))))
(dired-delete-file fn dired-recursive-deletes trash)
;; if we get here, removing worked
(setq succ (1+ succ))