GNU emacs и выделение цветом в psgml (fwd)

[Victor Sudakov <vas@gateway.dtu.tsu.ru>]

Коллеги. Помогите советом, pls.

Приношу извинения, если это письмо пройдет тут дважды. Просто первый раз
послал его и не увидел в списке :(

Никак не могу заставить psgml в GNU emacs выделять синтаксис цветом. Добавил
наряду с прочим по образцу Бориса Тоботраса в свой ~/.emacs следующее:

==== cut here ====

(setq sgml-set-face t)

;;
;; Faces.
;;
(make-face 'sgml-comment-face)
(make-face 'sgml-doctype-face)
(make-face 'sgml-end-tag-face)
(make-face 'sgml-entity-face)
(make-face 'sgml-ignored-face)
(make-face 'sgml-ms-end-face)
(make-face 'sgml-ms-start-face)
(make-face 'sgml-pi-face)
(make-face 'sgml-sgml-face)
(make-face 'sgml-short-ref-face)
(make-face 'sgml-start-tag-face)

(set-face-foreground 'sgml-comment-face "dark green")
(set-face-foreground 'sgml-doctype-face "maroon")
(set-face-foreground 'sgml-end-tag-face "blue2")
(set-face-foreground 'sgml-entity-face "red2")
(set-face-foreground 'sgml-ignored-face "maroon")
(set-face-background 'sgml-ignored-face "gray90")
(set-face-foreground 'sgml-ms-end-face "maroon")
(set-face-foreground 'sgml-ms-start-face "maroon")
(set-face-foreground 'sgml-pi-face "maroon")
(set-face-foreground 'sgml-sgml-face "maroon")
(set-face-foreground 'sgml-short-ref-face "goldenrod")
(set-face-foreground 'sgml-start-tag-face "blue2")

(setq-default sgml-markup-faces
              '((comment . sgml-comment-face)
                (doctype . sgml-doctype-face)
                (end-tag . sgml-end-tag-face)
                (entity . sgml-entity-face)
                (ignored . sgml-ignored-face)
                (ms-end . sgml-ms-end-face)
                (ms-start . sgml-ms-start-face)
                (pi . sgml-pi-face)
                (sgml . sgml-sgml-face)
                (short-ref . sgml-short-ref-face)
                (start-tag . sgml-start-tag-face)))

==== cut here ====

Так вот эти faces даже не появляются в списке faces после загрузки emacs.
Если делать make-face руками, то появляются. Если посмотреть значение
переменной sgml-markup-faces, то оно там дефолтовое (только bold и italic).

Где я не догоняю?

Заранее большое спасибо за совет.

-- 
Victor Sudakov
VAS4-RIPE, http://www.dtu.tsu.ru/~vas
PGP Public Key: finger vas@gateway.dtu.tsu.ru

Amasai, strong

----- End of forwarded message from Victor Sudakov -----

-- 
Victor Sudakov
VAS4-RIPE, http://www.dtu.tsu.ru/~vas
PGP Public Key: finger vas@gateway.dtu.tsu.ru


----- End of forwarded message from vas -----

-- 
Victor Sudakov
VAS4-RIPE, http://www.dtu.tsu.ru/~vas
PGP Public Key: finger vas@gateway.dtu.tsu.ru