procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Fixes: debbugs:8971
This commit is contained in:
Lars Magne Ingebrigtsen 2011-07-13 15:25:29 +02:00
parent 1c4dd947d6
commit 9c9c2d8874
2 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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.

11
lisp/jka-compr.el
View file

@ -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