From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 25 Dec 2015 05:04:01 +0000 (+0100)
Subject: Use cl-reduce, not reduce.
X-Git-Tag: emacs-25.0.90~392
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec2a509cfb9fe31a5929eac9c04d9dacca81ce82;p=emacs.git

Use cl-reduce, not reduce.

Backport:

(cherry picked from commit fe4606f93b91ff3d046aee0cf21ecc277af7a786)
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 18eadcb0f91..8b51fc83f44 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1581,8 +1581,8 @@ The preference is a float determined from `shr-prefer-media-type'."
       (car tbodies))
      (t
       ;; Table with multiple tbodies.  Convert into a single tbody.
-      `(tbody nil
-              ,@(reduce 'append (mapcar 'dom-non-text-children tbodies)))))))
+      `(tbody nil ,@(cl-reduce 'append
+                               (mapcar 'dom-non-text-children tbodies)))))))
 
 (defun shr-tag-table (dom)
   (shr-ensure-paragraph)