>>>>> "RK" == Richard Y Kim <[EMAIL PROTECTED]> writes:
RK> I hope Info Browser is `perfect' for you now.
RK> If not, try `M-x info RET' followed by `M-x speedbar RET'.
RK> But -speedbar-fetch-file-nodes
Oops. I sent out the email before it was finished.
It is not easy to type with a two-year-old sleeping in your
arms...
What I meant to say is that there is another bug in info.el.
In function Info-speedbar-fetch-file-nodes, three
regexp's that reads the menu entries do not account for
the fact that you could have TAB's between : and the node
name, e.g.,
* info: (info).
^
|
TAB HERE ------
Here is the patch to fix the problem.
I sent this patch (or something similar) to Eric M. Ludlam
<[EMAIL PROTECTED]> a few days ago. But I mention it here
as well since the topic was brought up. In case you don't
know, Eric is the author of speedbar.
diff -c info.el-ryk2 info.el-ryk3
*** info.el-ryk2 Thu Jun 15 20:07:36 2000
--- info.el-ryk3 Thu Jun 15 20:31:57 2000
***************
*** 2409,2419 ****
(re-search-forward "\n\\* \\([^:\t\n]*\\):" nil t)
(while (re-search-forward "\n\\* \\([^:\t\n]*\\):" nil t)
(let ((name (match-string 1)))
! (if (looking-at " *\\(([^)]+)[^.\n]+\\)\\.")
(setq name (cons name (match-string 1)))
! (if (looking-at " *\\(([^)]+)\\)\\.")
(setq name (cons name (concat (match-string 1) "Top")))
! (if (looking-at " \\([^.]+\\).")
(setq name
(cons name (concat "(" thisfile ")" (match-string 1))))
(setq name (cons name (concat "(" thisfile ")" name))))))
--- 2409,2419 ----
(re-search-forward "\n\\* \\([^:\t\n]*\\):" nil t)
(while (re-search-forward "\n\\* \\([^:\t\n]*\\):" nil t)
(let ((name (match-string 1)))
! (if (looking-at "[ \t]*\\(([^)]+)[^.\n]+\\)\\.")
(setq name (cons name (match-string 1)))
! (if (looking-at "[ \t]*\\(([^)]+)\\)\\.")
(setq name (cons name (concat (match-string 1) "Top")))
! (if (looking-at "[ \t]*\\([^.]+\\).")
(setq name
(cons name (concat "(" thisfile ")" (match-string 1))))
(setq name (cons name (concat "(" thisfile ")" name))))))
bash-2.03$
