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

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

1 files changed, 4 insertions, 5 deletions

diff --git a/lisp/info.el b/lisp/info.el
index 94bf36222f0..24d92b2bdd7 100644
--- 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)