branch: externals/auctex
commit 272c9d624512cf4047f1752324096fec0ef9e0e7
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@gnu.org>
Improve exclusion of reserved characters from command matches
* font-latex.el (font-latex-match-simple-command): Skip matches
starting with reserved characters.
---
font-latex.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/font-latex.el b/font-latex.el
index 5fe53bf..ea3e829 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -1784,15 +1784,16 @@ marks boundaries for searching for group ends."
(defun font-latex-match-simple-command (limit)
"Search for command like \\foo before LIMIT."
- ;; \s_ matches chars with symbol syntax, \sw chars with word syntax. We must
- ;; exclude matches where the first character after the \ is a , (thin space:
- ;; foo\,bar) or a - (hyphenation: foo\-bar).
+ ;; \s_ matches chars with symbol syntax, \sw chars with word syntax, \s.
chars
+ ;; with punctuation syntax. We must exclude matches where the first
character
+ ;; after the \ is a , (thin space: foo\,bar), a - (hyphenation: foo\-bar), a
/
+ ;; (italic correction \/) or other reserved chars like &, # or _ (\& \# \_)
(let* ((search (lambda ()
(TeX-re-search-forward-unescaped
- "\\\\\\(\\s_\\|\\sw\\)\\(?:\\s_\\|\\sw\\)*" limit t)))
+ "\\\\\\(\\s_\\|\\sw\\|\\s.\\)\\(?:\\s_\\|\\sw\\)*" limit
t)))
(pos (funcall search)))
(while (and pos
- (member (match-string 1) '("-" ",")))
+ (member (match-string 1) '("-" "," "/" "&" "#" "_")))
(setq pos (funcall search)))
pos))
