diff options
author | John Wiegley <johnw@newartisans.com> | 2022-10-27 13:21:13 -0400 |
---|---|---|
committer | GitHub <noreply@github.com> | 2022-10-27 13:21:13 -0400 |
commit | 407b1bf4f01e562ff1000286a77bb10cf2d0069d (patch) | |
tree | e8a4ef16b6615c0909385a5d32a60a07bc74a448 | |
parent | 0be7f5dd53994f971aa282ffa35d52bdb9b22a45 (diff) | |
parent | 6b344a919754d53070280e691924011ad9086c76 (diff) | |
download | emacs-407b1bf4f01e562ff1000286a77bb10cf2d0069d.tar.gz |
Merge pull request from andreyorst/face-spec-set
GitHub-reference: https://github.com/jwiegley/use-package/issues/1004
-rw-r--r-- | lisp/use-package/use-package-core.el | 2 | ||||
-rw-r--r-- | test/lisp/use-package/use-package-tests.el | 12 |
2 files changed, 7 insertions, 7 deletions
diff --git a/lisp/use-package/use-package-core.el b/lisp/use-package/use-package-core.el index 6832c447c7d..f27d158fc05 100644 --- a/lisp/use-package/use-package-core.el +++ b/lisp/use-package/use-package-core.el @@ -1518,7 +1518,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 (backquote ,def))) args) + (mapcar #'(lambda (def) `(apply #'face-spec-set (backquote ,def))) args) (use-package-process-keywords name rest state))) ;;;; :init diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index 1ccd3ad0786..7d98ca99e4a 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el @@ -1156,7 +1156,7 @@ (match-expansion (use-package foo :custom-face (foo ((t (:background "#e4edfc"))))) `(progn - (custom-set-faces (backquote (foo ((t (:background "#e4edfc")))))) + (apply #'face-spec-set (backquote (foo ((t (:background "#e4edfc")))))) (require 'foo nil nil)))) (ert-deftest use-package-test/:custom-face-2 () @@ -1166,11 +1166,11 @@ (example-1-face ((t (:foreground "LightPink")))) (example-2-face ((t (:foreground "LightGreen"))))) `(progn - (custom-set-faces - (backquote (example-1-face ((t (:foreground "LightPink")))))) - (custom-set-faces - (backquote (example-2-face ((t (:foreground "LightGreen")))))) - (require 'example nil nil)))) + (apply #'face-spec-set + (backquote (example-1-face ((t (:foreground "LightPink")))))) + (apply #'face-spec-set + (backquote (example-2-face ((t (:foreground "LightGreen")))))) + (require 'example nil nil)))) (ert-deftest use-package-test/:init-1 () (match-expansion |