Commit fe4606f9 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Use cl-reduce, not reduce.

parent cdaf3302
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment