Mercurial > emacs
changeset 23019:60f63c8a3837
(Info-try-follow-nearest-node): Get the node name
directly out of the menu item pointed at.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 14 Aug 1998 08:46:22 +0000 |
| parents | 114211878bf9 |
| children | d4ab4affb26d |
| files | lisp/info.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Fri Aug 14 08:40:13 1998 +0000 +++ b/lisp/info.el Fri Aug 14 08:46:22 1998 +0000 @@ -1682,8 +1682,11 @@ (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]*\\)"))