Mercurial > emacs

diff lisp/info.el @ 23019:60f63c8a3837

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 19b3899582b4
children 10ad03c5d326
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]*\\)"))