[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/xelb a68977a969: Update subnodes after cl-delete-if
From: |
ELPA Syncer |
Subject: |
[elpa] externals/xelb a68977a969: Update subnodes after cl-delete-if |
Date: |
Sun, 14 Jan 2024 04:51:05 -0500 (EST) |
branch: externals/xelb
commit a68977a9697401a8326745493a1e4be3f0473022
Author: Steven Allen <steven@stebalien.com>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Update subnodes after cl-delete-if
* el_client.el (xelb-node-subnodes): Update subnodes after calling
cl-delete-if.
---
el_client.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/el_client.el b/el_client.el
index 184f57ddee..12203b5fcc 100644
--- a/el_client.el
+++ b/el_client.el
@@ -120,8 +120,9 @@ an `xelb-auto-padding' attribute."
(let ((subnodes (cddr node)))
(when mark-auto-padding
;; Remove all <comment>'s and <doc>'s
- (cl-delete-if (lambda (i) (or (eq 'comment (car i)) (eq 'doc (car i))))
- subnodes)
+ (setq subnodes
+ (cl-delete-if (lambda (i) (or (eq 'comment (car i)) (eq 'doc (car
i))))
+ subnodes))
(dotimes (i (1- (length subnodes)))
(when (and (eq 'list (xelb-node-name (elt subnodes i)))
(pcase (xelb-node-name (elt subnodes (1+ i)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/xelb a68977a969: Update subnodes after cl-delete-if,
ELPA Syncer <=