Minor simplification of a function

1 files changed, 3 insertions, 5 deletions

diff --git a/lisp/use-package/use-package-core.el b/lisp/use-package/use-package-core.el
index df65e04b9a0..b3dc3f95c08 100644
--- a/lisp/use-package/use-package-core.el
+++ b/lisp/use-package/use-package-core.el
@@ -474,11 +474,9 @@ This is in contrast to merely setting it to 0."
     (cons (cdr ys) (cdr zs))))
 
 (defun use-package-split-list-at-keys (key lst)
-  (when lst
-    (let* ((xs (use-package-split-list (apply-partially #'eq key) lst))
-           (args (car xs))
-           (tail (cdr xs)))
-      (cons args (use-package-split-list-at-keys key (cdr tail))))))
+  (and lst
+       (let ((xs (use-package-split-list (apply-partially #'eq key) lst)))
+         (cons (car xs) (use-package-split-list-at-keys key (cddr xs))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;