From: Richard M. Stallman Date: Fri, 14 Aug 1998 08:46:22 +0000 (+0000) Subject: (Info-try-follow-nearest-node): Get the node name X-Git-Tag: emacs-20.3~60 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=631ba13e27c64139b2dfc633dea0a79067826e43;p=emacs.git (Info-try-follow-nearest-node): Get the node name directly out of the menu item pointed at. --- 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]*\\)"))