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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 84cc6c6ee224b8f7ffaeeb2bcc1edc0d3d3f618e..0b13139e0ae4e775bf4913eb743f419bd82d8917 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index a715900b60448172a4c92048836af43f85e9119d..7d04464346a596dcf4f95204a8918af6bb4ad394 100644 (file)
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -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))