From 4aa9b0cd6a1b3b1479a803052c1cc02db1fbd0eb Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sun, 10 Dec 2017 21:36:41 -0800 Subject: [PATCH] Minor simplification of a function --- lisp/use-package/use-package-core.el | 8 +++----- 1 file 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)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; -- 2.39.2