From 6d2d1b7d227bb4eca4b00a8431b704bc554e76b4 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 25 Sep 2007 11:09:58 +0000 Subject: [PATCH] (jka-compr-get-compression-info): Use `mapc' rather than `mapcar'. --- lisp/jka-cmpr-hook.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))) -- 2.39.5