1432 |
;; Search for matches. |
;; Search for matches. |
1433 |
(when (re-search-forward font-latex-quote-regexp-beg limit t) |
(when (re-search-forward font-latex-quote-regexp-beg limit t) |
1434 |
(let ((beg (match-beginning 0))) |
(let ((beg (match-beginning 0))) |
1435 |
(search-forward (cdr (assoc (match-string 0) font-latex-quote-list)) |
(search-forward (cdr (assoc (if (fboundp 'string-make-multibyte) |
1436 |
limit 'move) |
(string-make-multibyte (match-string 0)) |
1437 |
|
(match-string 0)) |
1438 |
|
font-latex-quote-list)) limit 'move) |
1439 |
(store-match-data (list beg (point))) |
(store-match-data (list beg (point))) |
1440 |
t))) |
t))) |
1441 |
|
|