diff options
| author | Lars Ingebrigtsen | 2015-12-25 06:04:01 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2015-12-25 06:04:01 +0100 |
| commit | fe4606f93b91ff3d046aee0cf21ecc277af7a786 (patch) | |
| tree | 609bea351f29295c54b7db0e37c39973e7e72b4d | |
| parent | cdaf33029d6620073833876d76056045ecfbc7c4 (diff) | |
| download | emacs-fe4606f93b91ff3d046aee0cf21ecc277af7a786.tar.gz emacs-fe4606f93b91ff3d046aee0cf21ecc277af7a786.zip | |
Use cl-reduce, not reduce.
| -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 0b1a4dac6a4..8a3f73e0f83 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'." | |||
| 1588 | (car tbodies)) | 1588 | (car tbodies)) |
| 1589 | (t | 1589 | (t |
| 1590 | ;; Table with multiple tbodies. Convert into a single tbody. | 1590 | ;; Table with multiple tbodies. Convert into a single tbody. |
| 1591 | `(tbody nil | 1591 | `(tbody nil ,@(cl-reduce 'append |
| 1592 | ,@(reduce 'append (mapcar 'dom-non-text-children tbodies))))))) | 1592 | (mapcar 'dom-non-text-children tbodies))))))) |
| 1593 | 1593 | ||
| 1594 | (defun shr-tag-table (dom) | 1594 | (defun shr-tag-table (dom) |
| 1595 | (shr-ensure-paragraph) | 1595 | (shr-ensure-paragraph) |