From d07dd64fd0476e0346d2de65b965193703ae6e7a Mon Sep 17 00:00:00 2001
From: Xu Chunyang <mail@xuchunyang.me>
Date: Sun, 30 Jun 2019 12:30:22 +0800
Subject: [PATCH] * 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 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)
-- 
2.39.2