diff options
| author | Xu Chunyang | 2019-06-30 12:30:22 +0800 |
|---|---|---|
| committer | Noam Postavsky | 2019-07-06 14:34:47 -0400 |
| commit | d07dd64fd0476e0346d2de65b965193703ae6e7a (patch) | |
| tree | d0705ee90ba4bd1e6254234e6c9056d137677e56 | |
| parent | 8d43315cfa3db295736826272472ec1e394ecb60 (diff) | |
| download | emacs-d07dd64fd0476e0346d2de65b965193703ae6e7a.tar.gz emacs-d07dd64fd0476e0346d2de65b965193703ae6e7a.zip | |
* lisp/dom.el (dom-texts): Simplify (Bug#36441).
| -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'." | |||
| 81 | (if (eq (dom-tag node) 'script) | 81 | (if (eq (dom-tag node) 'script) |
| 82 | "" | 82 | "" |
| 83 | (mapconcat | 83 | (mapconcat |
| 84 | 'identity | 84 | (lambda (elem) |
| 85 | (mapcar | 85 | (cond |
| 86 | (lambda (elem) | 86 | ((stringp elem) |
| 87 | (cond | 87 | elem) |
| 88 | ((stringp elem) | 88 | ((eq (dom-tag elem) 'script) |
| 89 | elem) | 89 | "") |
| 90 | ((eq (dom-tag elem) 'script) | 90 | (t |
| 91 | "") | 91 | (dom-texts elem separator)))) |
| 92 | (t | 92 | (dom-children node) |
| 93 | (dom-texts elem separator)))) | ||
| 94 | (dom-children node)) | ||
| 95 | (or separator " ")))) | 93 | (or separator " ")))) |
| 96 | 94 | ||
| 97 | (defun dom-child-by-tag (dom tag) | 95 | (defun dom-child-by-tag (dom tag) |