From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 1 Dec 2020 14:39:38 +0000 (+0100)
Subject: * lisp/arc-mode.el (archive-get-descr): Use default mode if needed.
X-Git-Tag: emacs-28.0.90~4979
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=496d1fcd76778b41bccfeeac155121a4a2015274;p=emacs.git

* lisp/arc-mode.el (archive-get-descr): Use default mode if needed.
---

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)