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

diff --git a/lisp/faces.el b/lisp/faces.el
index 56fce6f..e6e56f5 100644 (file)
--- 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)