(info-insert-file-contents): Inhibit jka-compr messages, which can be pretty annoying

Fixes: debbugs:8971

2 files changed, 4 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9518dad5ad6..96c382c78fc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-07-13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+        * info.el (info-insert-file-contents): Inhibit jka-compr messages,
+        which can be pretty annoying (bug#8971).
+
         * jka-compr.el (jka-compr-verbose): New variable, and use
         throughout (bug#8971).
 
diff --git a/lisp/info.el b/lisp/info.el
index 9e67542cda5..cbdc8cc7ab3 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -464,6 +464,7 @@ be last in the list.")
   "Insert the contents of an Info file in the current buffer.
 Do the right thing if the file has been compressed or zipped."
   (let* ((tail Info-suffix-list)
+         (jka-compr-verbose nil)
          (lfn (if (fboundp 'msdos-long-file-names)
                   (msdos-long-file-names)
                 t))