From: Juri Linkov <juri@jurta.org>
Date: Sat, 29 Mar 2014 17:59:36 +0000 (+0200)
Subject: * lisp/dired-aux.el (dired-compress-file): Don't use string-match-p
X-Git-Tag: emacs-24.3.90~72
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8778eb5efac3bf8936fdf22231b46ac0f88e0ab5;p=emacs.git

* lisp/dired-aux.el (dired-compress-file): Don't use string-match-p
because its match data is used afterwards.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66d5910b280..381aeda8cb4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-03-29  Juri Linkov  <juri@jurta.org>
+
+	* dired-aux.el (dired-compress-file): Don't use string-match-p
+	because its match data is used afterwards.
+
 2014-03-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/package.el (package-built-in-p): Treat a min-version of
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 1129dfd89f6..b1d5f4e53b0 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -887,7 +887,7 @@ Otherwise, the rule is a compression rule, and compression is done with gzip.")
     ;; See if any suffix rule matches this file name.
     (while suffixes
       (let (case-fold-search)
-	(if (string-match-p (car (car suffixes)) file)
+	(if (string-match (car (car suffixes)) file)
 	    (setq suffix (car suffixes) suffixes nil))
 	(setq suffixes (cdr suffixes))))
     ;; If so, compute desired new name.