From eb82ec2cfa220a2fae8c1aceda8b997ff2f45d31 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 8 Oct 2010 01:26:13 +0000 Subject: [PATCH] shr.el (shr-table-widths): Don't use cl function `reduce'. --- lisp/ChangeLog | 4 ++++ lisp/shr.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0b0ab9fa1..d953b0ea0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-10-08 Katsumi Yamaoka + + * shr.el (shr-table-widths): Don't use cl function `reduce'. + 2010-10-07 Lars Magne Ingebrigtsen * shr.el (require): Require cl when compiling. diff --git a/lisp/shr.el b/lisp/shr.el index bb25a6c80..ffc27e92c 100644 --- a/lisp/shr.el +++ b/lisp/shr.el @@ -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) -- 2.34.1