diff lisp/faces.el @ 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 b36d5e88cccc
children ca4418b4e8ec
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)