diff options
| -rw-r--r-- | lisp/arc-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 7d2cab3edee..cf071e2a1f5 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el | |||
| @@ -2064,10 +2064,10 @@ This doesn't recover lost files, it just undoes changes in the buffer itself." | |||
| 2064 | (setq files (nreverse files)) | 2064 | (setq files (nreverse files)) |
| 2065 | (goto-char (point-min)) | 2065 | (goto-char (point-min)) |
| 2066 | (let* ((format (format " %%s %%s %%%ds %%5s %%s" maxsize)) | 2066 | (let* ((format (format " %%s %%s %%%ds %%5s %%s" maxsize)) |
| 2067 | (sep (format format "--------" "-----" (make-string maxsize ?-) | 2067 | (sep (format format "----------" "-----" (make-string maxsize ?-) |
| 2068 | "-----" "")) | 2068 | "-----" "")) |
| 2069 | (column (length sep))) | 2069 | (column (length sep))) |
| 2070 | (insert (format format " Date " "Time " "Size " "Ratio" " Filename") "\n") | 2070 | (insert (format format " Date " "Time " "Size" "Ratio" "Filename") "\n") |
| 2071 | (insert sep (make-string maxname ?-) "\n") | 2071 | (insert sep (make-string maxname ?-) "\n") |
| 2072 | (archive-summarize-files (mapcar (lambda (desc) | 2072 | (archive-summarize-files (mapcar (lambda (desc) |
| 2073 | (let ((text | 2073 | (let ((text |