From 9c9c2d8874e433ba37a9b81934a44acc95f7cc0f Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 13 Jul 2011 15:25:29 +0200 Subject: [PATCH] * jka-compr.el (jka-compr-verbose): New variable, and use throughout. Fixes: debbugs:8971 --- lisp/ChangeLog | 3 +++ lisp/jka-compr.el | 11 +++++++++++ 2 files changed, 14 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d2bfdb90a4..9518dad5ad 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2011-07-13 Lars Magne Ingebrigtsen + * jka-compr.el (jka-compr-verbose): New variable, and use + throughout (bug#8971). + * info.el (Info-find-file): Fall back on the installation directory if we can't find the info node anywhere else. diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 37c9d40ec6..1893e982bb 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -97,6 +97,11 @@ NOTE: Not used in MS-DOS and Windows systems." :type 'string :group 'jka-compr) +(defcustom jka-compr-verbose t + "If non-nil, output messages whenever compressing or uncompressing files." + :type 'boolean + :group 'jka-compr) + (defvar jka-compr-use-shell (not (memq system-type '(ms-dos windows-nt)))) @@ -309,6 +314,7 @@ There should be no more than seven characters after the final `/'." (and compress-message + jka-compr-verbose (message "%s %s..." compress-message base-name)) (jka-compr-run-real-handler 'write-region @@ -341,6 +347,7 @@ There should be no more than seven characters after the final `/'." (and compress-message + jka-compr-verbose (message "%s %s...done" compress-message base-name)) (cond @@ -404,6 +411,7 @@ There should be no more than seven characters after the final `/'." (and uncompress-message + jka-compr-verbose (message "%s %s..." uncompress-message base-name)) (condition-case error-code @@ -479,6 +487,7 @@ There should be no more than seven characters after the final `/'." (and uncompress-message + jka-compr-verbose (message "%s %s...done" uncompress-message base-name)) (and @@ -534,6 +543,7 @@ There should be no more than seven characters after the final `/'." (and uncompress-message + jka-compr-verbose (message "%s %s..." uncompress-message base-name)) ;; Here we must read the output of uncompress program @@ -554,6 +564,7 @@ There should be no more than seven characters after the final `/'." (and uncompress-message + jka-compr-verbose (message "%s %s...done" uncompress-message base-name)) (write-region -- 2.39.2