Commit 863b61d6 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

shr.el (shr-table-widths): Don't use cl function `reduce'.

parent 61328d7c
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.
......
......@@ -548,8 +548,8 @@ Return a string with image data."
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment