branch: externals/auctex commit aac8694cfd75108915727a3e0d578c539f4a2781 Author: Arash Esbati <ar...@gnu.org> Commit: Arash Esbati <ar...@gnu.org>
Use compat function `TeX-replace-regexp-in-string' in core files * tex.el (TeX-source-correlate-sync-source): * latex.el (LaTeX-split-bibs): Use compat function `TeX-replace-regexp-in-string'. --- latex.el | 4 ++-- tex.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/latex.el b/latex.el index 443396f..5a699f8 100644 --- a/latex.el +++ b/latex.el @@ -1627,9 +1627,9 @@ This is necessary since index entries may contain commands and stuff.") Split the string at commas and remove Biber file extensions." (let ((bibs (TeX-split-string " *, *" (TeX-match-buffer match)))) (dolist (bib bibs) - (LaTeX-add-bibliographies (replace-regexp-in-string + (LaTeX-add-bibliographies (TeX-replace-regexp-in-string (concat "\\(?:\\." - (mapconcat 'regexp-quote + (mapconcat #'regexp-quote TeX-Biber-file-extensions "\\|\\.") "\\)") diff --git a/tex.el b/tex.el index d5a8513..f11a404 100644 --- a/tex.el +++ b/tex.el @@ -1926,7 +1926,7 @@ If the Emacs frame isn't raised, customize (url-unhex-string (aref (url-generic-parse-url file) 6))) ;; For Emacs 21 compatibility, which doesn't have the ;; url package. - (file-error (replace-regexp-in-string "^file://" "" file)))) + (file-error (TeX-replace-regexp-in-string "^file://" "" file)))) (flc (or (apply #'TeX-source-correlate-handle-TeX-region file linecol) (apply #'list file linecol))) (file (car flc))