From: John Wiegley <johnw@newartisans.com>
Date: Mon, 11 Dec 2017 05:36:41 +0000 (-0800)
Subject: Minor simplification of a function
X-Git-Tag: emacs-29.0.90~1306^2~15^2~95
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4aa9b0cd6a1b3b1479a803052c1cc02db1fbd0eb;p=emacs.git

Minor simplification of a function
---

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))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;