[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-24 r116878: * lisp/dired-aux.el (dired-compress-file
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] emacs-24 r116878: * lisp/dired-aux.el (dired-compress-file): Don't use string-match-p |
Date: |
Sat, 29 Mar 2014 17:59:50 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-24 r116878: * lisp/dired-aux.el (dired-compress-file): Don't use string-match-p,
Juri Linkov <=