1268 |
(font-latex-check-cache 'font-latex-match-command-cache keywords limit)) |
(font-latex-check-cache 'font-latex-match-command-cache keywords limit)) |
1269 |
(catch 'match |
(catch 'match |
1270 |
(while (re-search-forward keywords limit t) |
(while (re-search-forward keywords limit t) |
1271 |
(catch 'irrelevant |
(unless (or (font-latex-faces-present-p '(font-lock-comment-face |
|
(when (or (font-latex-faces-present-p '(font-lock-comment-face |
|
1272 |
font-latex-verbatim-face) |
font-latex-verbatim-face) |
1273 |
(match-beginning 0)) |
(match-beginning 0)) |
1274 |
(font-latex-commented-outp)) |
(font-latex-commented-outp)) |
|
(throw 'irrelevant nil)) |
|
1275 |
(let ((kbeg (match-beginning 0)) |
(let ((kbeg (match-beginning 0)) |
1276 |
kend sbeg send cbeg cend |
kend sbeg send cbeg cend |
1277 |
cache-reset opt-arg |
cache-reset opt-arg |
1338 |
(font-latex-check-cache 'font-latex-match-in-braces-cache 'in-braces limit)) |
(font-latex-check-cache 'font-latex-match-in-braces-cache 'in-braces limit)) |
1339 |
(catch 'match |
(catch 'match |
1340 |
(while (re-search-forward keywords limit t) |
(while (re-search-forward keywords limit t) |
1341 |
(catch 'irrelevant |
(unless (or (font-latex-faces-present-p '(font-lock-comment-face |
|
(when (or (font-latex-faces-present-p '(font-lock-comment-face |
|
1342 |
font-latex-verbatim-face) |
font-latex-verbatim-face) |
1343 |
(match-beginning 0)) |
(match-beginning 0)) |
1344 |
(font-latex-commented-outp)) |
(font-latex-commented-outp)) |
|
(throw 'irrelevant nil)) |
|
1345 |
(let ((kbeg (match-beginning 0)) (kend (match-end 1)) |
(let ((kbeg (match-beginning 0)) (kend (match-end 1)) |
1346 |
(beg (match-end 0)) |
(beg (match-end 0)) |
1347 |
end cbeg cend |
end cbeg cend |
1389 |
\\ [ F = ma \\] but not \\\\ [len]" |
\\ [ F = ma \\] but not \\\\ [len]" |
1390 |
(catch 'match |
(catch 'match |
1391 |
(while (re-search-forward "\\(\\\\(\\)\\|\\(\\\\\\[\\)" limit t) |
(while (re-search-forward "\\(\\\\(\\)\\|\\(\\\\\\[\\)" limit t) |
1392 |
(catch 'irrelevant |
(goto-char (match-beginning 0)) |
1393 |
(goto-char (match-beginning 0)) |
(if (eq (preceding-char) ?\\) ; \\[ is not a math environment |
|
(when (eq (preceding-char) ?\\) ; \\[ is not a math environment |
|
1394 |
(goto-char (match-end 0)) |
(goto-char (match-end 0)) |
|
(throw 'irrelevant nil)) |
|
1395 |
(let ((beg (point))) |
(let ((beg (point))) |
1396 |
(search-forward (cond ((match-beginning 1) "\\)") |
(search-forward (cond ((match-beginning 1) "\\)") |
1397 |
(t "\\]")) |
(t "\\]")) |