[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/tex-mode.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/tex-mode.el |
Date: |
Fri, 10 Jun 2005 06:46:02 -0400 |
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))