Re: Opening an info page by command name, take 2

[Stephen Berman <Stephen.Berman@gmx.net>]

On Tue, 11 Dec 2007 21:49:59 +0100 (CET) <rdiezmail-emacs@yahoo.de> wrote:

> Hi all:
>
> I recently posted in this list about opening an Info page in emacs by
> command name, and I did get some replies, thanks a lot.
>
> Unfortunately, I'm still missing one piece of the equation: how do I
> know the Info page name beforehand?
>
> Say I want to get help about grep and also about gzip. With man I would
> just type "man grep" and "man gzip". From the command line I can type
> "info grep" and "info gzip" and get similar pages. With emacs, if I
> only now the words "grep" and "gzip", I cannot open those pages.
>
> For example, these are two suggestions I got on my last post:
>
>   emacs -Q --eval '(info "(bash3ref)Arrays")'
>
>   emacsclientw -e "(info \"(elisp) Lists\")"
>
> The question is, where did "(bash3ref)Arrays" and "(elisp) Lists" come
> from? You would have to browse the Info pages beforehand, wouldn't you?
> But that defeats the purpose. I would want to call some (info "bash")
> routine and get the same page as with "info bash" from the command
> line, but the info routine in emacs does not find the same page, it
> doesn't find anything under "bash" or "grep" or "gzip" alone.

Here's something that may help you.

(defun srb-info ()
  "Enter Info at the Info file the user chooses, tabbing for completion.
If you type parentheses around the Info file name and then type a
node name, e.g. `(emacs)Buffers', then Info enters the file at
that node (completion for nodes below the file level is not
provided)."
  (interactive)
  (require 'info)
  (let (files idx info-files info-file)
    (dolist (d Info-default-directory-list files)
      (when (file-readable-p d)
	(setq files (cons (directory-files d) files))))
    (setq files (append (car files) (cadr files)))
    (dolist (f files)
      (setq idx (string-match "\\." f))
      (setq info-files (cons (substring f 0 idx) info-files)))
    (dolist (f info-files)
      (when (string-match "-[1-9][0-9]?$" f)
	(setq info-files (delete f info-files))))
    (setq info-file (completing-read "Info file name: " info-files))
    (unless (string-match "^\([^ ]+\)" info-file)
      (setq info-file (concat "(" info-file ")")))
    (Info-goto-node info-file)))

Steve Berman