* 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:
parent
cf499a1a42
commit
5147931d62
2 changed files with 11 additions and 5 deletions
|
@ -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
|
||||
|
|
11
lisp/info.el
11
lisp/info.el
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue