Use cl-reduce, not reduce.

fe4606f9 · Lars Ingebrigtsen · cdaf3302 · fe4606f9
Commit fe4606f9 authored Dec 25, 2015 by Lars Ingebrigtsen
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/net/shr.el lisp/net/shr.el +2 -2

No files found.
--- 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)