[Emacs-diffs] emacs-24 r116878: * lisp/dired-aux.el (dired-compress-file): Don't use string-match-p

[Juri Linkov]

------------------------------------------------------------
revno: 116878
revision-id: address@hidden
parent: address@hidden
committer: Juri Linkov <address@hidden>
branch nick: emacs-24
timestamp: Sat 2014-03-29 19:59:36 +0200
message:
  * lisp/dired-aux.el (dired-compress-file): Don't use string-match-p
  because its match data is used afterwards.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/dired-aux.el              diredaux.el-20091113204419-o5vbwnq5f7feedwu-484

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-28 22:47:46 +0000
+++ b/lisp/ChangeLog    2014-03-29 17:59:36 +0000
@@ -1,3 +1,8 @@
+2014-03-29  Juri Linkov  <address@hidden>
+
+       * dired-aux.el (dired-compress-file): Don't use string-match-p
+       because its match data is used afterwards.
+
 2014-03-28  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/package.el (package-built-in-p): Treat a min-version of

=== modified file 'lisp/dired-aux.el'
--- a/lisp/dired-aux.el 2014-02-10 01:34:22 +0000
+++ b/lisp/dired-aux.el 2014-03-29 17:59:36 +0000
@@ -887,7 +887,7 @@
     ;; 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.