diff options
| author | Juanma Barranquero | 2007-09-25 11:09:58 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-09-25 11:09:58 +0000 |
| commit | 6d2d1b7d227bb4eca4b00a8431b704bc554e76b4 (patch) | |
| tree | f5686334b6ba97d3b0e6ab43335e59b8eb0bd621 | |
| parent | 991fbc331faac5d98537dc526cace0f928913000 (diff) | |
| download | emacs-6d2d1b7d227bb4eca4b00a8431b704bc554e76b4.tar.gz emacs-6d2d1b7d227bb4eca4b00a8431b704bc554e76b4.zip | |
(jka-compr-get-compression-info): Use `mapc' rather than `mapcar'.
| -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 | |||
| 97 | based on the filename itself and `jka-compr-compression-info-list'." | 97 | based on the filename itself and `jka-compr-compression-info-list'." |
| 98 | (catch 'compression-info | 98 | (catch 'compression-info |
| 99 | (let ((case-fold-search nil)) | 99 | (let ((case-fold-search nil)) |
| 100 | (mapcar | 100 | (mapc |
| 101 | (function (lambda (x) | 101 | (function (lambda (x) |
| 102 | (and (string-match (jka-compr-info-regexp x) filename) | 102 | (and (string-match (jka-compr-info-regexp x) filename) |
| 103 | (throw 'compression-info x)))) | 103 | (throw 'compression-info x)))) |