diff options
| author | Xu Chunyang <mail@xuchunyang.me> | 2019-06-30 12:30:22 +0800 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2019-07-06 14:34:47 -0400 |
| commit | d07dd64fd0476e0346d2de65b965193703ae6e7a (patch) | |
| tree | d0705ee90ba4bd1e6254234e6c9056d137677e56 /lisp/dom.el | |
| parent | 8d43315cfa3db295736826272472ec1e394ecb60 (diff) | |
| download | emacs-d07dd64fd0476e0346d2de65b965193703ae6e7a.tar.gz emacs-d07dd64fd0476e0346d2de65b965193703ae6e7a.tar.bz2 emacs-d07dd64fd0476e0346d2de65b965193703ae6e7a.zip | |
* lisp/dom.el (dom-texts): Simplify (Bug#36441).
Diffstat (limited to 'lisp/dom.el')
| -rw-r--r-- | lisp/dom.el | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/lisp/dom.el b/lisp/dom.el index e4da63d8476..d8c44339985 100644 --- a/lisp/dom.el +++ b/lisp/dom.el @@ -81,17 +81,15 @@ A typical attribute is `href'." (if (eq (dom-tag node) 'script) "" (mapconcat - 'identity - (mapcar - (lambda (elem) - (cond - ((stringp elem) - elem) - ((eq (dom-tag elem) 'script) - "") - (t - (dom-texts elem separator)))) - (dom-children node)) + (lambda (elem) + (cond + ((stringp elem) + elem) + ((eq (dom-tag elem) 'script) + "") + (t + (dom-texts elem separator)))) + (dom-children node) (or separator " ")))) (defun dom-child-by-tag (dom tag) |