mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(archive-extract): If the extractor signals an

Browse Source 
error, trap it, so that the buffer created for a member is killed.
This commit is contained in:
Richard M. Stallman 1998-07-17 03:21:14 +00:00
parent b528110c6c
commit 8dc33e1146
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/arc-mode.el
View File

@ -876,9 +876,14 @@ using `make-temp-name', and the generated name is returned."
(setq archive-subfile-mode descr)
(if (and
(null
(if (fboundp extractor)
(funcall extractor archive ename)
(archive-*-extract archive ename (symbol-value extractor))))
(condition-case err
(if (fboundp extractor)
(funcall extractor archive ename)
(archive-*-extract archive ename
(symbol-value extractor)))
(error
(ding (message "%s" (error-message-string err)))
nil)))
just-created)
(progn
(set-buffer-modified-p nil)