Mercurial > emacs
changeset 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 | 4d1b1a2c88c6 |
| children | 794e89c10dc1 |
| files | lisp/gnus/ChangeLog lisp/gnus/shr.el |
| diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Oct 07 20:05:12 2010 -0400 +++ b/lisp/gnus/ChangeLog Fri Oct 08 01:51:08 2010 +0000 @@ -1,3 +1,7 @@ +2010-10-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * shr.el (shr-table-widths): Don't use cl function `reduce'. + 2010-10-07 Lars Magne Ingebrigtsen <larsi@gnus.org> * shr.el (require): Require cl when compiling.
--- a/lisp/gnus/shr.el Thu Oct 07 20:05:12 2010 -0400 +++ b/lisp/gnus/shr.el Fri Oct 08 01:51:08 2010 +0000 @@ -548,8 +548,8 @@ (aset natural-widths i (max (aref natural-widths i) (cadr column))) (setq i (1+ i))))) - (let ((extra (- (reduce '+ suggested-widths) - (reduce '+ widths))) + (let ((extra (- (apply '+ (append suggested-widths nil)) + (apply '+ (append widths nil)))) (expanded-columns 0)) (when (> extra 0) (dotimes (i length)