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

Use a single let binding when expanding consecutive :custom forms

Browse source 
Copyright-paperwork-exempt: yes
This commit is contained in:
Johann Klähn 2021-02-03 22:55:17 +01:00
parent e4daf0cd42
commit e3938e7b26
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1397,17 +1397,18 @@ no keyword implies `:all'."
(defun use-package-handler/:custom (name _keyword args rest state) (defun use-package-handler/:custom (name _keyword args rest state)
"Generate use-package custom keyword code." "Generate use-package custom keyword code."
(use-package-concat (use-package-concat
(mapcar `((let ((custom--inhibit-theme-enable nil))
(custom-theme-set-variables
'use-package
,@(mapcar
#'(lambda (def) #'(lambda (def)
(let ((variable (nth 0 def)) (let ((variable (nth 0 def))
(value (nth 1 def)) (value (nth 1 def))
(comment (nth 2 def))) (comment (nth 2 def)))
(unless (and comment (stringp comment)) (unless (and comment (stringp comment))
(setq comment (format "Customized with use-package %s" name))) (setq comment (format "Customized with use-package %s" name)))
`(let ((custom--inhibit-theme-enable nil)) `'(,variable ,value nil () ,comment)))
(custom-theme-set-variables 'use-package args))))
'(,variable ,value nil () ,comment)))))
args)
(use-package-process-keywords name rest state))) (use-package-process-keywords name rest state)))
;;;; :custom-face ;;;; :custom-face