diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 11:09:58 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 11:09:58 +0000 |
| commit | 6d2d1b7d227bb4eca4b00a8431b704bc554e76b4 (patch) | |
| tree | f5686334b6ba97d3b0e6ab43335e59b8eb0bd621 /lisp/jka-cmpr-hook.el | |
| parent | 991fbc331faac5d98537dc526cace0f928913000 (diff) | |
| download | emacs-6d2d1b7d227bb4eca4b00a8431b704bc554e76b4.tar.gz | |
(jka-compr-get-compression-info): Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/jka-cmpr-hook.el')
| -rw-r--r-- | lisp/jka-cmpr-hook.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/jka-cmpr-hook.el b/lisp/jka-cmpr-hook.el index 74525ec4409..8c388d0cb34 100644 --- a/lisp/jka-cmpr-hook.el +++ b/lisp/jka-cmpr-hook.el @@ -97,7 +97,7 @@ The determination as to which compression scheme, if any, to use is 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)))) |