mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki 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
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)