From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 17 Jul 1998 03:21:14 +0000 (+0000)
Subject: (archive-extract): If the extractor signals an
X-Git-Tag: emacs-20.3~311
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8dc33e1146326862a2ba5afdc091389a0ad623b1;p=emacs.git

(archive-extract): If the extractor signals an
error, trap it, so that the buffer created for a member is killed.
---

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index e786a33944c..27425e47323 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -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)