[elpa] externals/bind-key 4fdc36aeda 1/2: fix #934: use face-spec-set instead of custom-set-faces

[ELPA Syncer]

branch: externals/bind-key
commit 4fdc36aedad60a95e61ace0949835a981c6cd638
Author: Andrey Listopadov <andreyorst@gmail.com>
Commit: Andrey Listopadov <andreyorst@gmail.com>

    fix #934: use face-spec-set instead of custom-set-faces
---
 use-package-core.el  |  2 +-
 use-package-tests.el | 12 ++++++------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/use-package-core.el b/use-package-core.el
index 31b8048643..21b1a7ab40 100644
--- a/use-package-core.el
+++ b/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/use-package-tests.el b/use-package-tests.el
index 1ccd3ad078..7d98ca99e4 100644
--- a/use-package-tests.el
+++ b/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