[Emacs-diffs] /srv/bzr/emacs/trunk r101840: shr.el (shr-table-widths): Don't use cl function `reduce'.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101840
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2010-10-08 01:51:08 +0000
message:
  shr.el (shr-table-widths): Don't use cl function `reduce'.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-07 22:26:11 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-08 01:51:08 +0000
@@ -1,3 +1,7 @@
+2010-10-08  Katsumi Yamaoka  <address@hidden>
+
+       * shr.el (shr-table-widths): Don't use cl function `reduce'.
+
 2010-10-07  Lars Magne Ingebrigtsen  <address@hidden>
 
        * shr.el (require): Require cl when compiling.

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2010-10-07 22:26:11 +0000
+++ b/lisp/gnus/shr.el  2010-10-08 01:51:08 +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)