From: Xu Chunyang <mail@xuchunyang.me>
Date: Sun, 30 Jun 2019 04:30:22 +0000 (+0800)
Subject: * lisp/dom.el (dom-texts): Simplify (Bug#36441).
X-Git-Tag: emacs-27.0.90~2078
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d07dd64fd0476e0346d2de65b965193703ae6e7a;p=emacs.git

* lisp/dom.el (dom-texts): Simplify (Bug#36441).
---

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)