[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#36441: 26.2.90; Simplify dom-texts
From: |
Xu Chunyang |
Subject: |
bug#36441: 26.2.90; Simplify dom-texts |
Date: |
Sun, 30 Jun 2019 12:30:22 +0800 |
User-agent: |
M-x report-emacs-bug |
In the dom-texts function
(mapconcat 'identity (mapcar ...) ...)
can be simplified
(mapconcat ...)
diff -u --label /Users/xcy/src/emacs-mac/lisp/dom.el --label \#\<buffer\
dom.el\> /Users/xcy/src/emacs-mac/lisp/dom.el
/var/folders/7f/s191h4q97p90374yw15ssrs00000gn/T/buffer-content-jql2ad
--- /Users/xcy/src/emacs-mac/lisp/dom.el
+++ #<buffer dom.el>
@@ -79,13 +79,11 @@
(defun dom-texts (node &optional separator)
"Return all textual data under NODE concatenated with SEPARATOR in-between."
(mapconcat
- 'identity
- (mapcar
- (lambda (elem)
- (if (stringp elem)
- elem
- (dom-texts elem separator)))
- (dom-children node))
+ (lambda (elem)
+ (if (stringp elem)
+ elem
+ (dom-texts elem separator)))
+ (dom-children node)
(or separator " ")))
(defun dom-child-by-tag (dom tag)
Diff finished. Sun Jun 30 12:23:43 2019
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- bug#36441: 26.2.90; Simplify dom-texts,
Xu Chunyang <=