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

[Michael Albinus]

branch: master
commit 496d1fcd76778b41bccfeeac155121a4a2015274
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    * 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 69a159a..3516af6 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)