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

Make custom-face evaluate elisp

Browse source 
Fix https://github.com/jwiegley/use-package/issues/696.

Copyright-paperwork-exempt: yes
This commit is contained in:
Vincent Zhang 2019-05-29 16:04:35 +08:00
parent 3e36cbfb6d
commit c297dfdd20
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1419,7 +1419,7 @@ no keyword implies `:all'."
(defun use-package-handler/:custom-face (name _keyword args rest state)
"Generate use-package custom-face keyword code."
(use-package-concat
(mapcar #'(lambda (def) `(custom-set-faces (quote ,def))) args)
(mapcar #'(lambda (def) `(custom-set-faces (backquote ,def))) args)
(use-package-process-keywords name rest state)))
;;;; :init

2
test/lisp/use-package/use-package-tests.el
View file

@ -1125,7 +1125,7 @@
(match-expansion
(use-package foo :custom-face (foo ((t (:background "#e4edfc")))))
`(progn
(custom-set-faces '(foo ((t (:background "#e4edfc")))))
(custom-set-faces (backquote (foo ((t (:background "#e4edfc"))))))
(require 'foo nil nil))))
(ert-deftest use-package-test/:init-1 ()