Mercurial > emacs
changeset 84875:5aa8734f1e97
(jka-compr-get-compression-info): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 25 Sep 2007 11:09:58 +0000 |
| parents | e971b563a3eb |
| children | 0755bdd211b9 |
| files | lisp/jka-cmpr-hook.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/jka-cmpr-hook.el Tue Sep 25 11:09:30 2007 +0000 +++ b/lisp/jka-cmpr-hook.el Tue Sep 25 11:09:58 2007 +0000 @@ -97,7 +97,7 @@ based on the filename itself and `jka-compr-compression-info-list'." (catch 'compression-info (let ((case-fold-search nil)) - (mapcar + (mapc (function (lambda (x) (and (string-match (jka-compr-info-regexp x) filename) (throw 'compression-info x))))