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

2019-06-30 12:30:22 +08:00 · 2019-06-30 12:30:22 +08:00 · d07dd64fd0
commit d07dd64fd0
parent 8d43315cfa
1 changed files with 9 additions and 11 deletions
--- 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)