(sgml-mode-facemenu-add-face-function): New function.

(sgml-mode-common): Use that function for the hook value.

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index a05d079ed5774d51af8b8a92d276fe95623cde72..6d52f835ca57fc67546ae0d08f40890927685d98 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -333,13 +333,7 @@ varables of same name)."
                              sgml-font-lock-keywords-1)
                             nil
                             t)
-       facemenu-add-face-function
-         (lambda (face end)
-           (if (setq face (cdr (assq face sgml-face-tag-alist)))
-               (progn
-                 (setq facemenu-end-add-face (concat "</" face ">"))
-                 (concat "<" face ">"))
-             (error "Face not configured for %s mode." mode-name))))
+       facemenu-add-face-function 'sgml-mode-facemenu-add-face-function)
   (while sgml-display-text
     (put (car (car sgml-display-text)) 'before-string
         (cdr (car sgml-display-text)))
@@ -347,6 +341,15 @@ varables of same name)."
   (run-hooks 'text-mode-hook 'sgml-mode-hook))
 
 
+(defun sgml-mode-facemenu-add-face-function (face end)
+  (if (setq face (cdr (assq face sgml-face-tag-alist)))
+      (progn
+       (setq face (funcall skeleton-transformation face))
+       (setq facemenu-end-add-face (concat "</" face ">"))
+       (concat "<" face ">"))
+    (error "Face not configured for %s mode." mode-name)))
+
+
 ;;;###autoload
 (defun sgml-mode (&optional function)
   "Major mode for editing SGML documents.