[Emacs-diffs] Changes to emacs/lisp/info.el

[Juanma Barranquero]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.336 emacs/lisp/info.el:1.337
*** emacs/lisp/info.el:1.336    Tue Jan 28 07:08:36 2003
--- emacs/lisp/info.el  Mon Feb 10 06:41:09 2003
***************
*** 2113,2124 ****
         (Info-next-preorder)))
  
  (defun Info-follow-nearest-node ()
!   "\\<Info-mode-map>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."
    (interactive)
    (or (Info-try-follow-nearest-node)
!       (Info-next-preorder)))
  
  ;; Common subroutine.
  (defun Info-try-follow-nearest-node ()
--- 2113,2134 ----
         (Info-next-preorder)))
  
  (defun Info-follow-nearest-node ()
!   "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)
!       (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 ()