Commit 33dd8e95 authored by Juri Linkov's avatar Juri Linkov
Browse files

* lisp/arc-mode.el (archive-extract-by-file): Check if directory exists

before deletion to not show irrelevant errors if it doesn't exist.
parent 7a409b30
2013-12-17 Juri Linkov <juri@jurta.org>
* arc-mode.el (archive-extract-by-file): Check if directory exists
before deletion to not show irrelevant errors if it doesn't exist.
2013-12-17 Juri Linkov <juri@jurta.org>
* menu-bar.el (menu-bar-tools-menu): Add `browse-web'.
......
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment