[Emacs-diffs] master d07dd64 3/3: * lisp/dom.el (dom-texts): Simplify (Bug#36441).

[Noam Postavsky]

branch: master
commit d07dd64fd0476e0346d2de65b965193703ae6e7a
Author: Xu Chunyang <address@hidden>
Commit: Noam Postavsky <address@hidden>

    * lisp/dom.el (dom-texts): Simplify (Bug#36441).
---
 lisp/dom.el | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

diff --git a/lisp/dom.el b/lisp/dom.el
index e4da63d..d8c4433 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)