diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/info.el | 1 |
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 @@ | |||
| 1 | 2011-07-13 Lars Magne Ingebrigtsen <larsi@gnus.org> | 1 | 2011-07-13 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 2 | ||
| 3 | * info.el (info-insert-file-contents): Inhibit jka-compr messages, | ||
| 4 | which can be pretty annoying (bug#8971). | ||
| 5 | |||
| 3 | * jka-compr.el (jka-compr-verbose): New variable, and use | 6 | * jka-compr.el (jka-compr-verbose): New variable, and use |
| 4 | throughout (bug#8971). | 7 | throughout (bug#8971). |
| 5 | 8 | ||
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.") | |||
| 464 | "Insert the contents of an Info file in the current buffer. | 464 | "Insert the contents of an Info file in the current buffer. |
| 465 | Do the right thing if the file has been compressed or zipped." | 465 | Do the right thing if the file has been compressed or zipped." |
| 466 | (let* ((tail Info-suffix-list) | 466 | (let* ((tail Info-suffix-list) |
| 467 | (jka-compr-verbose nil) | ||
| 467 | (lfn (if (fboundp 'msdos-long-file-names) | 468 | (lfn (if (fboundp 'msdos-long-file-names) |
| 468 | (msdos-long-file-names) | 469 | (msdos-long-file-names) |
| 469 | t)) | 470 | t)) |