diff options
| -rw-r--r-- | lisp/dired.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index cf08143de70..f1a74639a94 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -3144,7 +3144,7 @@ non-empty directories is allowed." | |||
| 3144 | #'dired-delete-entry fn)) | 3144 | #'dired-delete-entry fn)) |
| 3145 | (quit (throw '--delete-cancel (message "OK, canceled"))) | 3145 | (quit (throw '--delete-cancel (message "OK, canceled"))) |
| 3146 | (error ;; catch errors from failed deletions | 3146 | (error ;; catch errors from failed deletions |
| 3147 | (dired-log "%s\n" err) | 3147 | (dired-log "%s: %s\n" (car err) (error-message-string err)) |
| 3148 | (setq failures (cons (car (car l)) failures))))) | 3148 | (setq failures (cons (car (car l)) failures))))) |
| 3149 | (setq l (cdr l))) | 3149 | (setq l (cdr l))) |
| 3150 | (if (not failures) | 3150 | (if (not failures) |