emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/auctex 45f0298 07/43: * font-latex.el (font-latex-setup


From: Tassilo Horn
Subject: [elpa] externals/auctex 45f0298 07/43: * font-latex.el (font-latex-setup): Remove XEmacs compat code.
Date: Sat, 11 Apr 2020 15:05:19 -0400 (EDT)

branch: externals/auctex
commit 45f0298c57b6bc0960a01e681e9899b7173ade13
Author: Arash Esbati <address@hidden>
Commit: Arash Esbati <address@hidden>

    * font-latex.el (font-latex-setup): Remove XEmacs compat code.
---
 font-latex.el | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/font-latex.el b/font-latex.el
index 4df9526..02a86f5 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -1261,22 +1261,6 @@ triggers Font Lock to recognize the change."
 (defun font-latex-setup ()
   "Setup this buffer for LaTeX font-lock.  Usually called from a hook."
   (font-latex-set-syntactic-keywords)
-  ;; Trickery to make $$ fontification be in `font-latex-math-face' while
-  ;; strings get whatever `font-lock-string-face' has been set to.
-  (when (fboundp 'built-in-face-specifiers)
-    ;; Cool patch from Christoph Wedler...
-    (let (instance)
-      (mapc (lambda (property)
-             (setq instance
-                   (face-property-instance 'font-latex-math-face property
-                                           nil 0 t))
-             (if (numberp instance)
-                 (setq instance
-                       (face-property-instance 'default property nil 0)))
-             (or (numberp instance)
-                 (set-face-property 'font-lock-string-face property
-                                    instance (current-buffer))))
-           (built-in-face-specifiers))))
 
   ;; Activate multi-line fontification facilities if available.
   (when (boundp 'font-lock-multiline)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]