changeset 9622:14e1032a7ae7

(make-face): Add new face to Face menu on creation. -- Bng
author Boris Goldowsky <boris@gnu.org>
date Thu, 20 Oct 1994 18:11:27 +0000
parents 4246725d9759
children fe1c170fa35a
files lisp/faces.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)