diff options
Diffstat (limited to 'lisp')
| -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)))) |