Mercurial > emacs
comparison lisp/textmodes/sgml-mode.el @ 64993:fb2cad4cfb30
* mh-customize.el: Do not use face-alias compatibility for
faces that did not appear in the previous Emacs release.
* buff-menu.el:
* compare-w.el:
* emacs-lisp/testcover.el:
* play/gomoku.el:
* play/mpuz.el:
* progmodes/flymake.el:
* progmodes/gdb-ui.el:
* progmodes/idlw-help.el:
* progmodes/idlw-shell.el:
* progmodes/ld-script.el:
* progmodes/which-func.el:
* ruler-mode.el:
* strokes.el:
* textmodes/sgml-mode.el:
* textmodes/table.el: Do not use face-alias for backward
compatibility for faces that did not appear in the previous Emacs
release.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Mon, 15 Aug 2005 21:29:32 +0000 |
parents | 5b1a238fcbb4 |
children | 265f46863d5b 2d92f5c9d6ae |
comparison
equal
deleted
inserted
replaced
64992:ca80d536ea6d | 64993:fb2cad4cfb30 |
---|---|
250 | 250 |
251 (defface sgml-namespace | 251 (defface sgml-namespace |
252 '((t (:inherit font-lock-builtin-face))) | 252 '((t (:inherit font-lock-builtin-face))) |
253 "`sgml-mode' face used to highlight the namespace part of identifiers." | 253 "`sgml-mode' face used to highlight the namespace part of identifiers." |
254 :group 'sgml) | 254 :group 'sgml) |
255 ;; backward-compatibility alias | |
256 (put 'sgml-namespace-face 'face-alias 'sgml-namespace) | |
257 (defvar sgml-namespace-face 'sgml-namespace) | 255 (defvar sgml-namespace-face 'sgml-namespace) |
258 | 256 |
259 ;; internal | 257 ;; internal |
260 (defconst sgml-font-lock-keywords-1 | 258 (defconst sgml-font-lock-keywords-1 |
261 `((,(concat "<\\([!?]" sgml-name-re "\\)") 1 font-lock-keyword-face) | 259 `((,(concat "<\\([!?]" sgml-name-re "\\)") 1 font-lock-keyword-face) |