(Info-on-current-buffer): Doc fix.

(info-insert-file-contents): Don't test (featurep 'jka-compr).

diff --git a/lisp/info.el b/lisp/info.el
index 94bf36222f088c069310010502bfd23521997fcf..24d92b2bdd7d4c5c8a35f74c7ce6ef3f5e882947 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -448,8 +448,7 @@ Do the right thing if the file has been compressed or zipped."
       (or tail
          (error "Can't find %s or any compressed version of it" filename)))
     ;; check for conflict with jka-compr
-    (if (and (featurep 'jka-compr)
-            (jka-compr-installed-p)
+    (if (and (jka-compr-installed-p)
             (jka-compr-get-compression-info fullname))
        (setq decoder nil))
     (if decoder
@@ -698,9 +697,9 @@ it says do not attempt further (recursive) error recovery."
 
 ;;;###autoload
 (defun Info-on-current-buffer (&optional nodename)
-  "Use the `Info-mode' to browse the current Info buffer.
-If a prefix arg is provided, it queries for the NODENAME which
-else defaults to \"Top\"."
+  "Use Info mode to browse the current Info buffer.
+With a prefix arg, this queries for the node name to visit first;
+otherwise, that defaults to `Top'."
   (interactive
    (list (if current-prefix-arg
             (completing-read "Node name: " (Info-build-node-completions)