diff options
| author | Noam Postavsky | 2017-10-12 23:12:00 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2017-11-05 11:38:38 -0500 |
| commit | efd0371c23c5dd04d73980b42d7cf64bbceccb9a (patch) | |
| tree | 862f4f084b9b9a10e960cdc50fcf0fafc69861fd | |
| parent | 5d744e032fee9ce60446a3cc0cf7c2e681ace465 (diff) | |
| download | emacs-efd0371c23c5dd04d73980b42d7cf64bbceccb9a.tar.gz emacs-efd0371c23c5dd04d73980b42d7cf64bbceccb9a.zip | |
Improve dired deletion error handling (Bug#28797)
* lisp/dired.el (dired-internal-do-deletions): Use
`error-message-string' to produce a human readable error message.
| -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) |