(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 e786a33944cdf941dcecc27292e92d7d1085d030..27425e4732384afcdbc752d949e51d37a68622f9 100644 (file)
--- 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)