diff options
| author | Lars Ingebrigtsen | 2015-12-25 06:04:01 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2015-12-25 17:03:18 +0100 |
| commit | ec2a509cfb9fe31a5929eac9c04d9dacca81ce82 (patch) | |
| tree | a0b65bb296e67305e1acd94d0d9168dd5b2fc41b | |
| parent | 96ac31425d898d853a15763288d5e360a0f0430a (diff) | |
| download | emacs-ec2a509cfb9fe31a5929eac9c04d9dacca81ce82.tar.gz emacs-ec2a509cfb9fe31a5929eac9c04d9dacca81ce82.zip | |
Use cl-reduce, not reduce.
Backport:
(cherry picked from commit fe4606f93b91ff3d046aee0cf21ecc277af7a786)
| -rw-r--r-- | 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 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'." | |||
| 1581 | (car tbodies)) | 1581 | (car tbodies)) |
| 1582 | (t | 1582 | (t |
| 1583 | ;; Table with multiple tbodies. Convert into a single tbody. | 1583 | ;; Table with multiple tbodies. Convert into a single tbody. |
| 1584 | `(tbody nil | 1584 | `(tbody nil ,@(cl-reduce 'append |
| 1585 | ,@(reduce 'append (mapcar 'dom-non-text-children tbodies))))))) | 1585 | (mapcar 'dom-non-text-children tbodies))))))) |
| 1586 | 1586 | ||
| 1587 | (defun shr-tag-table (dom) | 1587 | (defun shr-tag-table (dom) |
| 1588 | (shr-ensure-paragraph) | 1588 | (shr-ensure-paragraph) |