(custom-face-state-set): non-nil `face-modified'

means face was set outside of Custom.

lisp/cus-edit.el

@@ -2982,28 +2982,34 @@ widget.  If FILTER is nil, ACTION is always valid.")
   "Set the state of WIDGET."
   (let* ((symbol (widget-value widget))
 	 (comment (get symbol 'face-comment))
-	 tmp temp)
+	 tmp temp
-    (widget-put widget :custom-state
+	 (state
-		(cond ((progn
+	  (cond ((progn
-			 (setq tmp (get symbol 'customized-face))
+		   (setq tmp (get symbol 'customized-face))
-			 (setq temp (get symbol 'customized-face-comment))
+		   (setq temp (get symbol 'customized-face-comment))
-			 (or tmp temp))
+		   (or tmp temp))
-		       (if (equal temp comment)
+		 (if (equal temp comment)
-			   'set
+		     'set
-			 'changed))
+		   'changed))
-		      ((progn
+		((progn
-			 (setq tmp (get symbol 'saved-face))
+		   (setq tmp (get symbol 'saved-face))
-			 (setq temp (get symbol 'saved-face-comment))
+		   (setq temp (get symbol 'saved-face-comment))
-			 (or tmp temp))
+		   (or tmp temp))
-		       (if (equal temp comment)
+		 (if (equal temp comment)
-			   'saved
+		     'saved
-			 'changed))
+		   'changed))
-		      ((get symbol 'face-defface-spec)
+		((get symbol 'face-defface-spec)
-		       (if (equal comment nil)
+		 (if (equal comment nil)
-			   'standard
+		     'standard
-			 'changed))
+		   'changed))
-		      (t
+		(t
-		       'rogue)))))
+		 'rogue))))
+    ;; If the user called set-face-attribute to change the default
+    ;; for new frames, this face is "set outside of Customize".
+    (if (and (not (eq state 'rogue))
+	     (get symbol 'face-modified))
+	(setq state 'changed))
+    (widget-put widget :custom-state state)))
 
 (defun custom-face-action (widget &optional event)
   "Show the menu for `custom-face' WIDGET.