>From address@hidden Fri Apr 15 23:09:18 2016
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: [PATCH] Use `match-string-no-properties'
X-Mercurial-Node: d3ed0c3d6bb8c7c04e0d35e4d94bf85c33cd9caa
X-Mercurial-Series-Index: 1
X-Mercurial-Series-Total: 1
Message-Id: <address@hidden>
X-Mercurial-Series-Id: <address@hidden>
User-Agent: Mercurial-patchbomb/3.7.3
Date: Fri, 15 Apr 2016 23:09:17 +0900
From: Ikumi Keita <address@hidden>
To: dummy

* texmathp.el (texmathp, texmathp-match-environment): For better
consistency with other parts of the file, change `match-string' to
`no-properties' variant.

diff --git a/texmathp.el b/texmathp.el
--- a/texmathp.el
+++ b/texmathp.el
@@ -287,7 +287,7 @@
 	  (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 @@
 	    (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)))