[Emacs-diffs] Changes to emacs/lisp/textmodes/tex-mode.el

[Miles Bader]

Index: emacs/lisp/textmodes/tex-mode.el
diff -c emacs/lisp/textmodes/tex-mode.el:1.166 
emacs/lisp/textmodes/tex-mode.el:1.167
*** emacs/lisp/textmodes/tex-mode.el:1.166      Mon Jun  6 21:15:03 2005
--- emacs/lisp/textmodes/tex-mode.el    Fri Jun 10 10:45:56 2005
***************
*** 650,666 ****
    "Face used for subscripts."
    :group 'tex)
  
! (defface tex-math-face
    '((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
    ;; '((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)
  
  ;; Use string syntax but math face for $...$.
  (defun tex-font-lock-syntactic-face-function (state)
--- 650,671 ----
    "Face used for subscripts."
    :group 'tex)
  
! (defface tex-math
    '((t :inherit font-lock-string-face))
    "Face used to highlight TeX math expressions."
    :group 'tex)
! ;; 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)
! ;; 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,1107 ****
  inserts \" characters."
    (interactive "*P")
    (if (or arg (memq (char-syntax (preceding-char)) '(?/ ?\\))
!         (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))
--- 1106,1112 ----
  inserts \" characters."
    (interactive "*P")
    (if (or arg (memq (char-syntax (preceding-char)) '(?/ ?\\))
!         (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))