diff options
| -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) |