Mercurial > emacs
comparison lisp/gnus/shr.el @ 110812:3d3d15223058
shr.el (shr-table-widths): Don't use cl function `reduce'.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Fri, 08 Oct 2010 01:51:08 +0000 |
| parents | 07053df95af6 |
| children | 7aa4fdb60d57 |
comparison
equal
deleted
inserted
replaced
| 110811:4d1b1a2c88c6 | 110812:3d3d15223058 |
|---|---|
| 546 (aset widths i (max (aref widths i) | 546 (aset widths i (max (aref widths i) |
| 547 (car column))) | 547 (car column))) |
| 548 (aset natural-widths i (max (aref natural-widths i) | 548 (aset natural-widths i (max (aref natural-widths i) |
| 549 (cadr column))) | 549 (cadr column))) |
| 550 (setq i (1+ i))))) | 550 (setq i (1+ i))))) |
| 551 (let ((extra (- (reduce '+ suggested-widths) | 551 (let ((extra (- (apply '+ (append suggested-widths nil)) |
| 552 (reduce '+ widths))) | 552 (apply '+ (append widths nil)))) |
| 553 (expanded-columns 0)) | 553 (expanded-columns 0)) |
| 554 (when (> extra 0) | 554 (when (> extra 0) |
| 555 (dotimes (i length) | 555 (dotimes (i length) |
| 556 ;; If the natural width is wider than the rendered width, we | 556 ;; If the natural width is wider than the rendered width, we |
| 557 ;; want to allow the column to expand. | 557 ;; want to allow the column to expand. |