[Emacs-diffs] master fe4606f 2/2: Use cl-reduce, not reduce.

[Lars Ingebrigtsen]

branch: master
commit fe4606f93b91ff3d046aee0cf21ecc277af7a786
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Use cl-reduce, not reduce.
---
 lisp/net/shr.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 0b1a4da..8a3f73e 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1588,8 +1588,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)