mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-22 10:26:20 +00:00
Code Issues Releases Activity

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

Browse Source 
before deletion to not show irrelevant errors if it doesn't exist.
This commit is contained in:
Juri Linkov 2013-12-17 23:39:15 +02:00
parent 7a409b3005
commit 33dd8e9544
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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'.

6
lisp/arc-mode.el
View File

@ -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."