diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-07-13 15:25:29 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-07-13 15:25:29 +0200 |
| commit | 9c9c2d8874e433ba37a9b81934a44acc95f7cc0f (patch) | |
| tree | 8783f69818fb2250fbc5196b7ff3da2910595a9d | |
| parent | 1c4dd947d6d684b2d3c3dc298f2ee09e8fc0308b (diff) | |
| download | emacs-9c9c2d8874e433ba37a9b81934a44acc95f7cc0f.tar.gz | |
* jka-compr.el (jka-compr-verbose): New variable, and use throughout.
Fixes: debbugs:8971
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/jka-compr.el | 11 |
2 files changed, 14 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d2bfdb90a40..9518dad5ad6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 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 directory if we can't find the info node anywhere else. diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 37c9d40ec65..1893e982bbb 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 |