Commit ad49d9d6 authored by Miles Bader's avatar Miles Bader
Browse files

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.
parent b4c925d8
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.
......
......@@ -650,17 +650,22 @@ An alternative value is \" . \", if you use a font with a narrow period."
"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 the value of `tex-open-quote' (normally ``) or `tex-close-quote'
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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment