emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/auctex 9d12a06 66/95: Use `TeX-replace-regexp-in-string


From: Tassilo Horn
Subject: [elpa] externals/auctex 9d12a06 66/95: Use `TeX-replace-regexp-in-string' in style files
Date: Sun, 16 Apr 2017 01:26:56 -0400 (EDT)

branch: externals/auctex
commit 9d12a0687f0c1e142019f591f453315ec93e02d0
Author: Arash Esbati <address@hidden>
Commit: Arash Esbati <address@hidden>

    Use `TeX-replace-regexp-in-string' in style files
    
    * style/empheq.el (LaTeX-empheq-item-equation):
    * style/tcolorbox.el (LaTeX-tcolorbox-load-used-libraries):
    * style/xcolor.el (LaTeX-xcolor-auto-cleanup): Use compat function
    `TeX-replace-regexp-in-string'.
---
 style/empheq.el    | 4 ++--
 style/tcolorbox.el | 2 +-
 style/xcolor.el    | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/style/empheq.el b/style/empheq.el
index 9b82289..5618646 100644
--- a/style/empheq.el
+++ b/style/empheq.el
@@ -227,8 +227,8 @@ number of ampersands if possible."
       (when (looking-at "[ \t\n\r%]*\\[")
        (forward-sexp))
       (re-search-forward "[ \t\n\r%]*{\\([^}]+\\)}")
-      (setq match (replace-regexp-in-string "[ \t\n\r%]" ""
-                                           (match-string-no-properties 1)))
+      (setq match (TeX-replace-regexp-in-string "[ \t\n\r%]" ""
+                                               (match-string-no-properties 1)))
       (if (string-match "=" match)
          (progn
            (setq amsenv (car (split-string match "=")))
diff --git a/style/tcolorbox.el b/style/tcolorbox.el
index cd9e6f3..77cab08 100644
--- a/style/tcolorbox.el
+++ b/style/tcolorbox.el
@@ -453,7 +453,7 @@ e.g. \"tcolorboxlib-raster.el\"."
   (when (LaTeX-tcolorbox-tcbuselibrary-list)
     (let (libs)
       (dolist (x (LaTeX-tcolorbox-tcbuselibrary-list))
-       (push (replace-regexp-in-string "[ %\n\r\t]" "" (car x)) libs))
+       (push (TeX-replace-regexp-in-string "[ %\n\r\t]" "" (car x)) libs))
       (setq libs (mapconcat #'identity libs ","))
       (dolist (x (split-string libs "," t))
        (TeX-run-style-hooks (concat "tcolorboxlib-" x)))))
diff --git a/style/xcolor.el b/style/xcolor.el
index 1001f66..771bcff 100644
--- a/style/xcolor.el
+++ b/style/xcolor.el
@@ -264,7 +264,7 @@ xcolor package.")
     (let ((head (car colset))
          (tail (cadr colset))
          (cols (split-string
-                (replace-regexp-in-string "[ %\n\r\t]" "" (nth 2 colset))
+                (TeX-replace-regexp-in-string "[ %\n\r\t]" "" (nth 2 colset))
                 "\\(,[^;]+;\\|,[^;]+$\\)" t)))
       (dolist (color cols)
        (LaTeX-add-xcolor-definecolors (concat head color tail))))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]