# HG changeset patch
# User Boris Goldowsky <boris@gnu.org>
# Date 782676687 0
# Node ID 14e1032a7ae7199f81dc701770eea19c4a6a8a3b
# Parent  4246725d9759240e39e44f6208c60bdd174eff5a
 (make-face): Add new face to Face menu on creation. -- Bng

diff -r 4246725d9759 -r 14e1032a7ae7 lisp/faces.el
--- a/lisp/faces.el	Thu Oct 20 16:37:04 1994 +0000
+++ b/lisp/faces.el	Thu Oct 20 18:11:27 1994 +0000
@@ -273,6 +273,9 @@
 	;; when making a face after frames already exist
 	(if (eq window-system 'x)
 	    (make-face-x-resource-internal face))
+	;; add to menu
+	(if (fboundp 'facemenu-add-new-face)
+	    (facemenu-add-new-face name))
 	face))
   name)