aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/dired.el11
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/dired.el b/lisp/dired.el
index d2071d80bf3..94865808d73 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -4089,13 +4089,12 @@ non-empty directories is allowed."
4089 (while l 4089 (while l
4090 (goto-char (marker-position (cdr (car l)))) 4090 (goto-char (marker-position (cdr (car l))))
4091 (dired-move-to-filename) 4091 (dired-move-to-filename)
4092 (let ((inhibit-read-only t)) 4092 (let ((inhibit-read-only t)
4093 ;; Temporarily prevent auto-revert while deleting
4094 ;; entry in the dired buffer (bug#71264).
4095 (dired--inhibit-auto-revert t))
4093 (condition-case err 4096 (condition-case err
4094 (let ((fn (car (car l))) 4097 (let ((fn (car (car l))))
4095 ;; Temporarily prevent auto-revert while
4096 ;; deleting entry in the dired buffer
4097 ;; (bug#71264).
4098 (auto-revert-mode nil))
4099 (dired-delete-file fn dired-recursive-deletes trash) 4098 (dired-delete-file fn dired-recursive-deletes trash)
4100 ;; if we get here, removing worked 4099 ;; if we get here, removing worked
4101 (setq succ (1+ succ)) 4100 (setq succ (1+ succ))