diff options
Diffstat (limited to 'lisp/arc-mode.el')
| -rw-r--r-- | lisp/arc-mode.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 57a030bbf44..4683532c4a4 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -1164,8 +1164,10 @@ using `make-temp-file', and the generated name is returned." (delete-file (expand-file-name name dest))) (while (file-name-directory name) (setq name (directory-file-name (file-name-directory name))) - (delete-directory (expand-file-name name dest))) - (delete-directory dest)))) + (when (file-directory-p (expand-file-name name dest)) + (delete-directory (expand-file-name name dest)))) + (when (file-directory-p dest) + (delete-directory dest))))) (defun archive-extract-other-window () "In archive mode, find this member in another window." |