Commit 9c9c2d88 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

* jka-compr.el (jka-compr-verbose): New variable, and use throughout.

Fixes: debbugs:8971
parent 1c4dd947
2011-07-13 Lars Magne Ingebrigtsen <larsi@gnus.org> 2011-07-13 Lars Magne Ingebrigtsen <larsi@gnus.org>
* jka-compr.el (jka-compr-verbose): New variable, and use
throughout (bug#8971).
* info.el (Info-find-file): Fall back on the installation * info.el (Info-find-file): Fall back on the installation
directory if we can't find the info node anywhere else. directory if we can't find the info node anywhere else.
......
...@@ -97,6 +97,11 @@ NOTE: Not used in MS-DOS and Windows systems." ...@@ -97,6 +97,11 @@ NOTE: Not used in MS-DOS and Windows systems."
:type 'string :type 'string
:group 'jka-compr) :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 (defvar jka-compr-use-shell
(not (memq system-type '(ms-dos windows-nt)))) (not (memq system-type '(ms-dos windows-nt))))
...@@ -309,6 +314,7 @@ There should be no more than seven characters after the final `/'." ...@@ -309,6 +314,7 @@ There should be no more than seven characters after the final `/'."
(and (and
compress-message compress-message
jka-compr-verbose
(message "%s %s..." compress-message base-name)) (message "%s %s..." compress-message base-name))
(jka-compr-run-real-handler 'write-region (jka-compr-run-real-handler 'write-region
...@@ -341,6 +347,7 @@ There should be no more than seven characters after the final `/'." ...@@ -341,6 +347,7 @@ There should be no more than seven characters after the final `/'."
(and (and
compress-message compress-message
jka-compr-verbose
(message "%s %s...done" compress-message base-name)) (message "%s %s...done" compress-message base-name))
(cond (cond
...@@ -404,6 +411,7 @@ There should be no more than seven characters after the final `/'." ...@@ -404,6 +411,7 @@ There should be no more than seven characters after the final `/'."
(and (and
uncompress-message uncompress-message
jka-compr-verbose
(message "%s %s..." uncompress-message base-name)) (message "%s %s..." uncompress-message base-name))
(condition-case error-code (condition-case error-code
...@@ -479,6 +487,7 @@ There should be no more than seven characters after the final `/'." ...@@ -479,6 +487,7 @@ There should be no more than seven characters after the final `/'."
(and (and
uncompress-message uncompress-message
jka-compr-verbose
(message "%s %s...done" uncompress-message base-name)) (message "%s %s...done" uncompress-message base-name))
(and (and
...@@ -534,6 +543,7 @@ There should be no more than seven characters after the final `/'." ...@@ -534,6 +543,7 @@ There should be no more than seven characters after the final `/'."
(and (and
uncompress-message uncompress-message
jka-compr-verbose
(message "%s %s..." uncompress-message base-name)) (message "%s %s..." uncompress-message base-name))
;; Here we must read the output of uncompress program ;; Here we must read the output of uncompress program
...@@ -554,6 +564,7 @@ There should be no more than seven characters after the final `/'." ...@@ -554,6 +564,7 @@ There should be no more than seven characters after the final `/'."
(and (and
uncompress-message uncompress-message
jka-compr-verbose
(message "%s %s...done" uncompress-message base-name)) (message "%s %s...done" uncompress-message base-name))
(write-region (write-region
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment