mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

* lisp/arc-mode.el (archive-rar-summarize): Better alignment of the columns.

Browse Source
This commit is contained in:
Nicolas Petton 2015-09-30 10:12:26 +02:00
parent 25979c8e35
commit d1fb5e6c49
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/arc-mode.el
View File

@ -2064,10 +2064,10 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
(setq files (nreverse files))
(goto-char (point-min))
(let* ((format (format " %%s %%s %%%ds %%5s %%s" maxsize))
(sep (format format "--------" "-----" (make-string maxsize ?-)
(sep (format format "----------" "-----" (make-string maxsize ?-)
"-----" ""))
(column (length sep)))
(insert (format format " Date " "Time " "Size " "Ratio" " Filename") "\n")
(insert (format format " Date " "Time " "Size" "Ratio" "Filename") "\n")
(insert sep (make-string maxname ?-) "\n")
(archive-summarize-files (mapcar (lambda (desc)
(let ((text