From 70746649f8cb997fce9dcd921164574dd8dc68c5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 12 Dec 2005 05:15:53 +0000 Subject: [PATCH] (Info-on-current-buffer): Doc fix. (info-insert-file-contents): Don't test (featurep 'jka-compr). --- lisp/info.el | 9 ++++----- 1 file 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) -- 2.39.5