Minor simplification of a function

diff --git a/lisp/use-package/use-package-core.el b/lisp/use-package/use-package-core.el
index df65e04b9a055f100ab87f1a2596e4a743cf9610..b3dc3f95c0826d68e31393e1c1171b57c8bf1f59 100644 (file)
--- 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))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;