From 8778eb5efac3bf8936fdf22231b46ac0f88e0ab5 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 29 Mar 2014 19:59:36 +0200 Subject: [PATCH] * lisp/dired-aux.el (dired-compress-file): Don't use string-match-p because its match data is used afterwards. --- lisp/ChangeLog | 5 +++++ lisp/dired-aux.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * dired-aux.el (dired-compress-file): Don't use string-match-p + because its match data is used afterwards. + 2014-03-28 Stefan Monnier * 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. -- 2.39.5