* lisp/info.el (Info-last-preorder): Visit last menu item only when

`Info-scroll-prefer-subnodes' is non-nil (third test-case of bug#9528).
This commit is contained in:
Juri Linkov 2011-09-20 19:28:07 +03:00
parent cf499a1a42
commit 5147931d62
2 changed files with 11 additions and 5 deletions

View file

@ -1,3 +1,8 @@
2011-09-20 Juri Linkov <juri@jurta.org>
* info.el (Info-last-preorder): Visit last menu item only when
`Info-scroll-prefer-subnodes' is non-nil (third test-case of bug#9528).
2011-09-20 Julien Danjou <julien@danjou.info>
* password-cache.el (password-cache-remove): Remove entries even if the

View file

@ -2760,11 +2760,12 @@ N is the digit argument used to invoke this command."
(defun Info-last-preorder ()
"Go to the last node, popping up a level if there is none."
(interactive)
(cond ((Info-no-error
(Info-last-menu-item)
;; If we go down a menu item, go to the end of the node
;; so we can scroll back through it.
(goto-char (point-max)))
(cond ((and Info-scroll-prefer-subnodes
(Info-no-error
(Info-last-menu-item)
;; If we go down a menu item, go to the end of the node
;; so we can scroll back through it.
(goto-char (point-max))))
;; Keep going down, as long as there are nested menu nodes.
(let (Info-history) ; Don't add intermediate nodes to the history.
(while (Info-no-error