From 8dc33e1146326862a2ba5afdc091389a0ad623b1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 17 Jul 1998 03:21:14 +0000 Subject: [PATCH] (archive-extract): If the extractor signals an error, trap it, so that the buffer created for a member is killed. --- lisp/arc-mode.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) 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) -- 2.39.2