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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/activities 67cb87f413 33/50: mapcar-window-state-leafs:


From: ELPA Syncer
Subject: [elpa] externals/activities 67cb87f413 33/50: mapcar-window-state-leafs: improve varnames and docstring
Date: Wed, 25 Dec 2024 03:57:20 -0500 (EST)

branch: externals/activities
commit 67cb87f413077172470cf508e5e47e995500b5ee
Author: J.D. Smith <jdtsmith@gmail.com>
Commit: JD Smith <93749+jdtsmith@users.noreply.github.com>

    mapcar-window-state-leafs: improve varnames and docstring
---
 activities.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/activities.el b/activities.el
index 35d2b6d6e8..148d76a7f4 100644
--- a/activities.el
+++ b/activities.el
@@ -524,20 +524,20 @@ To be called from `kill-emacs-hook'."
 ;;;; Functions
 
 (defun activities--mapcar-window-state-leafs (state func)
-  "Return a list of leaf nodes value from window-state STATE.
+  "Return a list of leaf node values from window-state STATE.
 The returned list contains the values obtained by calling FUNC on
 each of the leaf nodes in STATE."
-  (let (ret)
+  (let (values)
     (cl-labels ((map-leafs (state func)
                  (pcase state
                    (`(leaf . ,_attrs)
-                    (push (funcall func state) ret))
+                    (push (funcall func state) values))
                    ((pred proper-list-p)
                     (if-let ((leaf-pos (cl-position 'leaf state)))
-                        (push (funcall func (cl-subseq state leaf-pos)) ret)
+                        (push (funcall func (cl-subseq state leaf-pos)) values)
                       (dolist (s state) (map-leafs s func)))))))
       (map-leafs state func))
-    (nreverse ret)))
+    (nreverse values)))
 
 (defun activities--buffers-and-files (state)
   "Return a list of buffers and files from STATE.



reply via email to

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