emacs-diffs
[Top][All Lists]
Advanced

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

master b9239954b6: Tweak href/superscript fix in tex-mode


From: Lars Ingebrigtsen
Subject: master b9239954b6: Tweak href/superscript fix in tex-mode
Date: Thu, 27 Jan 2022 10:30:29 -0500 (EST)

branch: master
commit b9239954b60c1c86e64ba1047eb8b48310ad4072
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Tweak href/superscript fix in tex-mode
    
    * lisp/textmodes/tex-mode.el (tex-font-lock-keywords-1): Fix
    superscripts in href in a better way.
---
 lisp/textmodes/tex-mode.el | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index f41cc2c15e..ab94036d01 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -505,7 +505,9 @@ An alternative value is \" . \", if you use a font with a 
narrow period."
                        "documentstyle" "documentclass" "verbatiminput"
                        "includegraphics" "includegraphics*")
                      t))
-           (verbish (regexp-opt '("url" "nolinkurl" "path") t))
+           (verbish (regexp-opt '("url" "nolinkurl" "path"
+                                  "href" "ProvidesFile")
+                                t))
           ;; Miscellany.
           (slash "\\\\")
           (opt " *\\(\\[[^]]*\\] *\\)*")
@@ -578,9 +580,6 @@ An alternative value is \" . \", if you use a font with a 
narrow period."
                          ;; "caption" "footnote" "footnotemark" "footnotetext"
                          )
                        t))
-           (file-like (regexp-opt
-                       '("href" "ProvidesFile")
-                       t))
            ;;
            ;; Names of commands that should be fontified.
            (specials-1 (regexp-opt '("\\" "\\*") t)) ;; "-"
@@ -601,8 +600,6 @@ An alternative value is \" . \", if you use a font with a 
narrow period."
        ;;
        ;; Citation args.
        (list (concat slash citations opt arg) 3 'font-lock-constant-face)
-       ;; File-like args.
-       (list (concat slash file-like opt arg) 3 'font-lock-constant-face)
        ;;
         ;; Text between `` quotes ''.
         (list (concat (regexp-opt '("``" "\"<" "\"`" "<<" "«") t)



reply via email to

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