diff options
| author | Michael Albinus | 2020-12-01 15:39:38 +0100 |
|---|---|---|
| committer | Michael Albinus | 2020-12-01 15:39:38 +0100 |
| commit | 496d1fcd76778b41bccfeeac155121a4a2015274 (patch) | |
| tree | 17a9ebdee71b8d8be575871715335a14acfcfb3b | |
| parent | 7916c9038cb13dd68b58b6083d3b41e31d2a399d (diff) | |
| download | emacs-496d1fcd76778b41bccfeeac155121a4a2015274.tar.gz emacs-496d1fcd76778b41bccfeeac155121a4a2015274.zip | |
* lisp/arc-mode.el (archive-get-descr): Use default mode if needed.
| -rw-r--r-- | lisp/arc-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 646 | (< no (length archive-files))) | 646 | (< no (length archive-files))) |
| 647 | (let ((item (aref archive-files no))) | 647 | (let ((item (aref archive-files no))) |
| 648 | (if (and (archive--file-desc-p item) | 648 | (if (and (archive--file-desc-p item) |
| 649 | (let ((mode (archive--file-desc-mode item))) | 649 | (let ((mode (or (archive--file-desc-mode item) 0))) |
| 650 | (zerop (logand 16384 mode)))) | 650 | (zerop (logand 16384 mode)))) |
| 651 | item | 651 | item |
| 652 | (if (not noerror) | 652 | (if (not noerror) |