mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 15:00:45 -08:00
Code Issues Projects Releases Wiki Activity

Make custom-face evaluate elisp. ()

Browse source 
Make custom-face evaluate elisp.
GitHub-reference: https://github.com/jwiegley/use-package/issues/773
This commit is contained in:
John Wiegley 2019-05-29 13:40:03 -07:00 • committed by GitHub
commit 97f0287e19
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 ()