From 496d1fcd76778b41bccfeeac155121a4a2015274 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 1 Dec 2020 15:39:38 +0100 Subject: [PATCH] * lisp/arc-mode.el (archive-get-descr): Use default mode if needed. --- lisp/arc-mode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 69a159a84a8..3516af68fc8 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -646,7 +646,7 @@ Does not signal an error if optional argument NOERROR is non-nil." (< no (length archive-files))) (let ((item (aref archive-files no))) (if (and (archive--file-desc-p item) - (let ((mode (archive--file-desc-mode item))) + (let ((mode (or (archive--file-desc-mode item) 0))) (zerop (logand 16384 mode)))) item (if (not noerror) -- 2.39.5