From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 25 Sep 2007 11:09:58 +0000 (+0000)
Subject: (jka-compr-get-compression-info): Use `mapc' rather than `mapcar'.
X-Git-Tag: emacs-pretest-23.0.90~10665
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6d2d1b7d227bb4eca4b00a8431b704bc554e76b4;p=emacs.git

(jka-compr-get-compression-info): Use `mapc' rather than `mapcar'.
---

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))))