masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 11:49:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Minor simplification of a function

Browse source
This commit is contained in:
John Wiegley 2017-12-10 21:36:41 -08:00
parent a4d2e77961
commit 4aa9b0cd6a
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/use-package/use-package-core.el
View file

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