From 631ba13e27c64139b2dfc633dea0a79067826e43 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 14 Aug 1998 08:46:22 +0000 Subject: [PATCH] (Info-try-follow-nearest-node): Get the node name directly out of the menu item pointed at. --- lisp/info.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 002bc29ff0a..928625093c3 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -1682,8 +1682,11 @@ If no reference to follow, moves to the next node, or up if none." (Info-follow-reference node)) ((setq node (Info-get-token (point) "\\* +" "\\* +\\([^:]*\\)::")) (Info-goto-node node)) - ((setq node (Info-get-token (point) "\\* +" "\\* +\\([^:]*\\):")) - (Info-menu node)) + ((Info-get-token (point) "\\* +" "\\* +\\([^:]*\\):") + (beginning-of-line) + (forward-char 2) + (setq node (Info-extract-menu-node-name)) + (Info-goto-node node)) ((setq node (Info-get-token (point) "Up: " "Up: \\([^,\n\t]*\\)")) (Info-goto-node node)) ((setq node (Info-get-token (point) "Next: " "Next: \\([^,\n\t]*\\)")) -- 2.39.5