Mercurial > emacs

comparison lisp/info.el @ 11064:bf32108711c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-next-preorder, Info-next-preorder-1): When moving up, advance to next menu item.
author Richard M. Stallman <rms@gnu.org>
date Sat, 18 Mar 1995 22:55:23 +0000
parents e3da01bbdc14
children 7956811d4d9a
comparison
equal deleted inserted replaced
11063:f6c97f56c8b6 11064:bf32108711c6
1099 (defun Info-next-preorder () 1099 (defun Info-next-preorder ()
1100 "Go to the next subnode, popping up a level if there is none." 1100 "Go to the next subnode, popping up a level if there is none."
1101 (interactive) 1101 (interactive)
1102 (cond ((Info-no-error (Info-next-menu-item))) 1102 (cond ((Info-no-error (Info-next-menu-item)))
1103 ((Info-no-error (Info-up)) 1103 ((Info-no-error (Info-up))
1104 (forward-line 1)) 1104 (forward-line 1)
1105 (and (re-search-forward "^\\*" nil t) (beginning-of-line)))
1105 (t 1106 (t
1106 (error "No more nodes")))) 1107 (error "No more nodes"))))
1107 1108
1108 (defun Info-next-preorder-1 () 1109 (defun Info-next-preorder-1 ()
1109 "Go to the next subnode or the next node, or go up a level." 1110 "Go to the next subnode or the next node, or go up a level."
1110 (interactive) 1111 (interactive)
1111 (cond ((Info-no-error (Info-next-menu-item))) 1112 (cond ((Info-no-error (Info-next-menu-item)))
1112 ((Info-no-error (Info-next))) 1113 ((Info-no-error (Info-next)))
1113 ((Info-no-error (Info-up)) 1114 ((Info-no-error (Info-up))
1114 (forward-line 1)) 1115 (forward-line 1)
1116 (and (re-search-forward "^\\*" nil t) (beginning-of-line)))
1115 (t 1117 (t
1116 (error "No more nodes")))) 1118 (error "No more nodes"))))
1117 1119
1118 (defun Info-last-preorder () 1120 (defun Info-last-preorder ()
1119 "Go to the last node, popping up a level if there is none." 1121 "Go to the last node, popping up a level if there is none."