Commit 8778eb5e authored by Juri Linkov's avatar Juri Linkov

* lisp/dired-aux.el (dired-compress-file): Don't use string-match-p

because its match data is used afterwards.
parent 929c0500
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> 2014-03-28 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/package.el (package-built-in-p): Treat a min-version of * emacs-lisp/package.el (package-built-in-p): Treat a min-version of
......
...@@ -887,7 +887,7 @@ Otherwise, the rule is a compression rule, and compression is done with gzip.") ...@@ -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. ;; See if any suffix rule matches this file name.
(while suffixes (while suffixes
(let (case-fold-search) (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 suffix (car suffixes) suffixes nil))
(setq suffixes (cdr suffixes)))) (setq suffixes (cdr suffixes))))
;; If so, compute desired new name. ;; If so, compute desired new name.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment