diff options
| author | Eli Zaretskii | 2022-09-04 08:40:52 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2022-09-04 08:40:52 +0300 |
| commit | 1d9e4900a336b6fa2047404ff25ec31cf8ec613f (patch) | |
| tree | 3b01df4b41a6b314b7294f13eb0eb5f1ece05fa7 | |
| parent | 0ffde8a81fd11b5cf42b5a7ac2f9417d6688744b (diff) | |
| download | emacs-1d9e4900a336b6fa2047404ff25ec31cf8ec613f.tar.gz emacs-1d9e4900a336b6fa2047404ff25ec31cf8ec613f.zip | |
Fix update of Dired display when it was called on a cons cell
* lisp/dired.el (dired-internal-do-deletions): Make sure that FN's
directory entry is updated on display. (Bug#57565)
| -rw-r--r-- | lisp/dired.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index fa06c8fd441..facfb35ab45 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -3746,7 +3746,10 @@ non-empty directories is allowed." | |||
| 3746 | (progress-reporter-update progress-reporter succ) | 3746 | (progress-reporter-update progress-reporter succ) |
| 3747 | (dired-fun-in-all-buffers | 3747 | (dired-fun-in-all-buffers |
| 3748 | (file-name-directory fn) (file-name-nondirectory fn) | 3748 | (file-name-directory fn) (file-name-nondirectory fn) |
| 3749 | #'dired-delete-entry fn)) | 3749 | #'dired-delete-entry fn) |
| 3750 | ;; For when FN's directory name is different | ||
| 3751 | ;; from the current buffer's dired-directory. | ||
| 3752 | (dired-delete-entry fn)) | ||
| 3750 | (quit (throw '--delete-cancel (message "OK, canceled"))) | 3753 | (quit (throw '--delete-cancel (message "OK, canceled"))) |
| 3751 | (error ;; catch errors from failed deletions | 3754 | (error ;; catch errors from failed deletions |
| 3752 | (dired-log "%s: %s\n" (car err) (error-message-string err)) | 3755 | (dired-log "%s: %s\n" (car err) (error-message-string err)) |