From: Boris Goldowsky <boris@gnu.org>
Date: Thu, 20 Oct 1994 18:11:27 +0000 (+0000)
Subject: (make-face): Add new face to Face menu on creation. -- Bng
X-Git-Tag: emacs-19.34~6233
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33af44e8448e9c6f0de668ed5251c483d3cf9ca0;p=emacs.git

(make-face): Add new face to Face menu on creation. -- Bng
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 56fce6ffc70..e6e56f55647 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -273,6 +273,9 @@ If the face already exists, it is unmodified."
 	;; 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)