changeset 22768:54e0d44e203a

(archive-extract): If the extractor signals an error, trap it, so that the buffer created for a member is killed.
author Richard M. Stallman <rms@gnu.org>
date Fri, 17 Jul 1998 03:21:14 +0000
parents 5fb5debece56
children a1229f470db3
files lisp/arc-mode.el
diffstat 1 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/arc-mode.el	Thu Jul 16 00:14:44 1998 +0000
+++ b/lisp/arc-mode.el	Fri Jul 17 03:21:14 1998 +0000
@@ -876,9 +876,14 @@
           (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)