diff options
| -rw-r--r-- | lisp/dired.el | 11 |
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)) |