procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix tex-mode handling of _ chars in href{} commands

Browse source 
* lisp/textmodes/tex-mode.el (tex--current-command): New function
(bug#23102).
(tex-font-lock-suscript): Don't subscript _ chars in href.
This commit is contained in:
Lars Ingebrigtsen 2022-01-24 12:39:02 +01:00
parent 77b72f77b3
commit 487a0be7f7
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/textmodes/tex-mode.el
View file

@ -630,6 +630,14 @@ An alternative value is \" . \", if you use a font with a narrow period."
3 '(tex-font-lock-append-prop 'bold) 'append)))))
"Gaudy expressions to highlight in TeX modes.")
(defun tex--current-command ()
"Return the previous \\\\command."
(save-excursion
(and (re-search-backward "\\\\\\([a-zA-Z@]+\\)\\*?\\({\\)?" nil t)
;; Ignore commands that don't have contents.
(and (match-string 2)
(match-string 1)))))
(defun tex-font-lock-suscript (pos)
(unless (or (memq (get-text-property pos 'face)
'(font-lock-constant-face font-lock-builtin-face
@ -639,7 +647,9 @@ An alternative value is \" . \", if you use a font with a narrow period."
(pos pos))
(while (eq (char-before pos) ?\\)
(setq pos (1- pos) odd (not odd)))
odd))
odd)
;; Allow bare _ characters in some commands.
(member (tex--current-command) '("href" "ProvidesFile")))
(if (eq (char-after pos) ?_)
`(face subscript display (raise ,(car tex-font-script-display)))
`(face superscript display (raise ,(cadr tex-font-script-display))))))