From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 12 Dec 2005 05:15:53 +0000 (+0000)
Subject: (Info-on-current-buffer): Doc fix.
X-Git-Tag: emacs-pretest-22.0.90~5326
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70746649f8cb997fce9dcd921164574dd8dc68c5;p=emacs.git

(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 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)