Fix theme application

Fix an inverted test.  Patch due to Andy Moreton.

* lisp/cus-face.el (custom-theme-set-faces): Correct sense of
`custom--should-apply-setting' test.

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 039c1fafa70d968dc1fdf7e127cabed2b042cd29..54f5d51358fb029a5f9d67521bf48bde8282e53c 100644 (file)
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -342,7 +342,7 @@ argument list."
        ;; is aliased to.
        (if (get face 'face-alias)
            (setq face (get face 'face-alias)))
-       (if (custom--should-apply-setting theme)
+       (if (not (custom--should-apply-setting theme))
            ;; Just update theme settings.
            (custom-push-theme 'theme-face face theme 'set spec)
          ;; Update theme settings and set the face spec.