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

1 files changed, 3 insertions, 0 deletions

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)