diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-08 01:51:08 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-08 01:51:08 +0000 |
| commit | 863b61d662deede3e01d1b0cba8c110064a7407b (patch) | |
| tree | f1c2c0d93ae29b01c05499519e0bd30b0a5cb2b2 /lisp/gnus/shr.el | |
| parent | 61328d7c4c315ddb46483b48b66847b79c4364f7 (diff) | |
| download | emacs-863b61d662deede3e01d1b0cba8c110064a7407b.tar.gz emacs-863b61d662deede3e01d1b0cba8c110064a7407b.tar.bz2 emacs-863b61d662deede3e01d1b0cba8c110064a7407b.zip | |
shr.el (shr-table-widths): Don't use cl function `reduce'.
Diffstat (limited to 'lisp/gnus/shr.el')
| -rw-r--r-- | lisp/gnus/shr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index bb25a6c802d..ffc27e92ccd 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/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) |