Re: info

[Luc Teirlinck <teirllm@dms.auburn.edu>]

Included is a change log entry and patch that implements the new
behavior for RETURN in the Emacs version of info, using the
algorithm suggested by Kai and Richard.

Change log:

2003-02-08  Luc Teirlinck  <teirllm@mail.auburn.edu>

        * info.el (Info-follow-nearest-node): Implement new behavior.

Patch:


===File ~/infodiff==========================================
cd /usr/local/share/emacs/21.3.50/lisp/
diff -c /usr/local/share/emacs/21.3.50/lisp/info.old.el /usr/local/share/emacs/21.3.50/lisp/info.el
*** /usr/local/share/emacs/21.3.50/lisp/info.old.el	Sat Feb  8 20:43:13 2003
--- /usr/local/share/emacs/21.3.50/lisp/info.el	Sat Feb  8 22:12:39 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 ()

Diff finished at Sat Feb  8 22:19:44
============================================================