emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]