From d0b560c61fe2a7b4bfb4f761f6f83529b53d6a59 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 10 Feb 2003 11:41:09 +0000 Subject: [PATCH] (Info-follow-nearest-node): Implement new behavior. --- lisp/info.el | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index cf3b8e2ab78..5af0787d505 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2113,12 +2113,22 @@ At end of the node's text, moves to the next node, or up if none." (Info-next-preorder))) (defun Info-follow-nearest-node () - "\\Follow a node reference near point. -Like \\[Info-menu], \\[Info-follow-reference], \\[Info-next], \\[Info-prev] or \\[Info-up] command, depending on where point is. -If no reference to follow, moves to the next node, or up if none." + "Follow a node reference near point. +If point is on a reference, follow that reference. Otherwise, +if point is in a menu item description, follow that menu item." (interactive) (or (Info-try-follow-nearest-node) - (Info-next-preorder))) + (when (save-excursion + (search-backward "\n* menu:" nil t)) + (save-excursion + (beginning-of-line) + (while (not (or (bobp) (looking-at "[^ \t]\\|[ \t]*$"))) + (beginning-of-line 0)) + (when (looking-at "\\* +\\([^\t\n]*\\):") + (Info-goto-node + (Info-extract-menu-item (match-string-no-properties 1))) + t))) + (error "Point neither on reference nor in menu item description"))) ;; Common subroutine. (defun Info-try-follow-nearest-node () -- 2.39.5