procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prevent auto-revert when deleting entry (bug#71264)

Browse source 
* lisp/dired.el (require): Require "autorevert" for
`auto-revert-mode' usage.
(dired-internal-do-deletions): Temporarily prevent auto-revert.
This commit is contained in:
Manuel Giraud 2024-06-17 11:06:28 +02:00 • committed by Eli Zaretskii
parent a4fe4ca93c
commit 11fb3510f4
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/dired.el
View file

@ -36,6 +36,7 @@
(eval-when-compile (require 'subr-x)) (eval-when-compile (require 'subr-x))
(eval-when-compile (require 'cl-lib)) (eval-when-compile (require 'cl-lib))
(eval-when-compile (require 'autorevert))
;; When bootstrapping dired-loaddefs has not been generated. ;; When bootstrapping dired-loaddefs has not been generated.
(require 'dired-loaddefs nil t) (require 'dired-loaddefs nil t)
(require 'dnd) (require 'dnd)
@ -4015,7 +4016,11 @@ non-empty directories is allowed."
(dired-move-to-filename) (dired-move-to-filename)
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(condition-case err (condition-case err
(let ((fn (car (car l)))) (let ((fn (car (car l)))
;; Temporarily prevent auto-revert while
;; deleting entry in the dired buffer
;; (bug#71264).
(auto-revert-mode nil))
(dired-delete-file fn dired-recursive-deletes trash) (dired-delete-file fn dired-recursive-deletes trash)
;; if we get here, removing worked ;; if we get here, removing worked
(setq succ (1+ succ)) (setq succ (1+ succ))