[Top][All Lists]

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

[elpa] elpa 44e654b 22/51: Use `match-string-no-properties'

From: Tassilo Horn
Subject: [elpa] elpa 44e654b 22/51: Use `match-string-no-properties'
Date: Sun, 22 May 2016 07:22:49 +0000 (UTC)

branch: elpa
commit 44e654be1b80a6462c93fc32efb910d14992cf33
Author: Ikumi Keita <address@hidden>
Commit: Mosè Giordano <address@hidden>

    Use `match-string-no-properties'
    * texmathp.el (texmathp, texmathp-match-environment): For better
    consistency with other parts of the file, change `match-string' to
    `no-properties' variant.
    Signed-off-by: Mosè Giordano <address@hidden>
 texmathp.el |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/texmathp.el b/texmathp.el
index e83f548..75eb2c0 100644
--- a/texmathp.el
+++ b/texmathp.el
@@ -287,7 +287,7 @@ See the variable `texmathp-tex-commands' about which 
commands are checked."
          (goto-char (cdr match))
          (while (re-search-forward texmathp-toggle-regexp pos t)
            (if (setq math-on (not math-on))
-               (setq sw-match (cons (match-string 2) (match-beginning 2)))
+               (setq sw-match (cons (match-string-no-properties 2) 
(match-beginning 2)))
              (setq sw-match nil)))
          (and math-on sw-match (setq match sw-match))))
@@ -336,7 +336,7 @@ Limit searched to BOUND.  The return value is like 
(\"equation\" . (point))."
            (when (eq orig-comment-flag current-comment-flag)
              (setq env (buffer-substring-no-properties
                         (match-beginning 2) (match-end 2)))
-             (cond ((string= (match-string 1) "end")
+             (cond ((string= (match-string-no-properties 1) "end")
                     (setq end-list (cons env end-list)))
                    ((equal env (car end-list))
                     (setq end-list (cdr end-list)))

reply via email to

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