[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105156: * jka-compr.el (jka-compr-ve
From: |
Lars Magne Ingebrigtsen |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r105156: * jka-compr.el (jka-compr-verbose): New variable, and use throughout. |
Date: |
Wed, 13 Jul 2011 15:25:29 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 105156
fixes bug(s): http://debbugs.gnu.org/8971
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Wed 2011-07-13 15:25:29 +0200
message:
* jka-compr.el (jka-compr-verbose): New variable, and use throughout.
modified:
lisp/ChangeLog
lisp/jka-compr.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-07-13 13:10:54 +0000
+++ b/lisp/ChangeLog 2011-07-13 13:25:29 +0000
@@ -1,5 +1,8 @@
2011-07-13 Lars Magne Ingebrigtsen <address@hidden>
+ * 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.
=== modified file 'lisp/jka-compr.el'
--- a/lisp/jka-compr.el 2011-04-19 13:44:55 +0000
+++ b/lisp/jka-compr.el 2011-07-13 13:25:29 +0000
@@ -97,6 +97,11 @@
: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 @@
(and
compress-message
+ jka-compr-verbose
(message "%s %s..." compress-message base-name))
(jka-compr-run-real-handler 'write-region
@@ -341,6 +347,7 @@
(and
compress-message
+ jka-compr-verbose
(message "%s %s...done" compress-message base-name))
(cond
@@ -404,6 +411,7 @@
(and
uncompress-message
+ jka-compr-verbose
(message "%s %s..." uncompress-message base-name))
(condition-case error-code
@@ -479,6 +487,7 @@
(and
uncompress-message
+ jka-compr-verbose
(message "%s %s...done" uncompress-message base-name))
(and
@@ -534,6 +543,7 @@
(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 @@
(and
uncompress-message
+ jka-compr-verbose
(message "%s %s...done" uncompress-message base-name))
(write-region
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105156: * jka-compr.el (jka-compr-verbose): New variable, and use throughout.,
Lars Magne Ingebrigtsen <=