Mercurial > emacs
changeset 63228:1cde198ddda6
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-392
Remove "-face" suffix from tex-mode faces
2005-06-10 Miles Bader <miles@gnu.org>
* lisp/textmodes/tex-mode.el (tex-math, tex-verbatim): Remove "-face"
suffix from face names.
(tex-math-face, tex-verbatim-face):
New backward-compatibility aliases for renamed faces.
(tex-math-face, tex-verbatim-face): Use renamed tex-mode faces.
(tex-insert-quote): Use `tex-verbatim-face' variable instead of
literal face name.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 10 Jun 2005 10:45:56 +0000 |
| parents | 6f4701bb40a7 |
| children | 72fae6758182 |
| files | lisp/ChangeLog lisp/textmodes/tex-mode.el |
| diffstat | 2 files changed, 18 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jun 10 10:45:37 2005 +0000 +++ b/lisp/ChangeLog Fri Jun 10 10:45:56 2005 +0000 @@ -1,5 +1,13 @@ 2005-06-10 Miles Bader <miles@gnu.org> + * textmodes/tex-mode.el (tex-math, tex-verbatim): Remove "-face" + suffix from face names. + (tex-math-face, tex-verbatim-face): + New backward-compatibility aliases for renamed faces. + (tex-math-face, tex-verbatim-face): Use renamed tex-mode faces. + (tex-insert-quote): Use `tex-verbatim-face' variable instead of + literal face name. + * textmodes/table.el (table-cell): Remove "-face" suffix from face name. (table-cell-face): New backward-compatibility alias for renamed face.
--- a/lisp/textmodes/tex-mode.el Fri Jun 10 10:45:37 2005 +0000 +++ b/lisp/textmodes/tex-mode.el Fri Jun 10 10:45:56 2005 +0000 @@ -650,17 +650,22 @@ "Face used for subscripts." :group 'tex) -(defface tex-math-face +(defface tex-math '((t :inherit font-lock-string-face)) "Face used to highlight TeX math expressions." :group 'tex) -(defvar tex-math-face 'tex-math-face) -(defface tex-verbatim-face +;; backward-compatibility alias +(put 'tex-math-face 'face-alias 'tex-math) +(defvar tex-math-face 'tex-math) + +(defface tex-verbatim ;; '((t :inherit font-lock-string-face)) '((t :family "courier")) "Face used to highlight TeX verbatim environments." :group 'tex) -(defvar tex-verbatim-face 'tex-verbatim-face) +;; backward-compatibility alias +(put 'tex-verbatim-face 'face-alias 'tex-verbatim) +(defvar tex-verbatim-face 'tex-verbatim) ;; Use string syntax but math face for $...$. (defun tex-font-lock-syntactic-face-function (state) @@ -1101,7 +1106,7 @@ inserts \" characters." (interactive "*P") (if (or arg (memq (char-syntax (preceding-char)) '(?/ ?\\)) - (eq (get-text-property (point) 'face) 'tex-verbatim-face) + (eq (get-text-property (point) 'face) tex-verbatim-face) (save-excursion (backward-char (length tex-open-quote)) (when (or (looking-at (regexp-quote tex-open-quote))