diff options
| -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)) |