[elpa] externals/activities 0ce4fefe10 08/50: map-window-state-leafs: omit unused pcase branch

[ELPA Syncer]

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

    map-window-state-leafs: omit unused pcase branch
---
 activities.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/activities.el b/activities.el
index 2a608ea318..8191f1a8ba 100644
--- a/activities.el
+++ b/activities.el
@@ -660,9 +660,8 @@ The resulting values are returned as a list."
                  (pcase state
                    (`(leaf . ,_attrs)
                     (push (funcall func state) ret))
-                   ((pred atom) state)
-                   (`(,_key . ,(pred atom)) state)
-                   ((pred list)
+                   (`(,_key . ,(pred atom))) ; skip
+                   ((pred proper-list-p)
                     (if-let ((leaf-pos (cl-position 'leaf state)))
                         (push (funcall func (cl-subseq state leaf-pos)) ret)
                       (dolist (s state) (map-leafs s func)))))))