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)