Rework previous change.

* lisp/jka-compr.el (jka-compr-verbose): Move from here...
* lisp/jka-cmpr-hook.el (jka-compr-verbose): ... to here.  (Bug#9090)
Add missing :version tag.
* lisp/info.el: No need to require jka-compr when compiling.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 307e4df7ae71b40e76bc440c4a277880872e0c2d..f99f2692bad442e0d09f206a4bf55ea5d3b46183 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,9 @@
 2011-07-15  Glenn Morris  <rgm@gnu.org>
 
-       * info.el (info-insert-file-contents): Require jka-compr.  (Bug#9090)
+       * jka-compr.el (jka-compr-verbose): Move from here...
+       * jka-cmpr-hook.el (jka-compr-verbose): ... to here.  (Bug#9090)
+       Add missing :version tag.
+       * info.el: No need to require jka-compr when compiling.
 
 2011-07-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/info.el b/lisp/info.el
index 51105be6db3d56a50f632ddce15120ea18dfcd53..a4826ee8c2c2e3895e0a3bdc6fabf853e2aae7e5 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -463,7 +463,6 @@ be last in the list.")
 (defun info-insert-file-contents (filename &optional visit)
   "Insert the contents of an Info file in the current buffer.
 Do the right thing if the file has been compressed or zipped."
-  (require 'jka-compr)                 ; bug #9090
   (let* ((tail Info-suffix-list)
         (jka-compr-verbose nil)
         (lfn (if (fboundp 'msdos-long-file-names)

diff --git a/lisp/jka-cmpr-hook.el b/lisp/jka-cmpr-hook.el
index e1cf2a661ed735445a9e377e295916db43d73220..d28fde0b214fb859ee25abee02742063ef6676cf 100644 (file)
--- a/lisp/jka-cmpr-hook.el
+++ b/lisp/jka-cmpr-hook.el
@@ -39,6 +39,12 @@
   "jka-compr customization."
   :group 'compression)
 
+(defcustom jka-compr-verbose t
+  "If non-nil, output messages whenever compressing or uncompressing files."
+  :version "24.1"
+  :type 'boolean
+  :group 'jka-compr)
+
 ;; List of all the elements we actually added to file-coding-system-alist.
 (defvar jka-compr-added-to-file-coding-system-alist nil)
 

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 1893e982bbb7eae2bd9ec832d3cc2c03920bc11f..cd769885cc612a450907a3d673d7b771a1bc1162 100644 (file)
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -97,11 +97,6 @@ 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))))