mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(Info-insert-breadcrumbs): Be careful to preserve history.

Browse Source
This commit is contained in:
Stefan Monnier 2008-06-14 01:59:21 +00:00
parent 960ec30cde
commit 159dfddecb
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2008-06-14 Stefan Monnier <monnier@iro.umontreal.ca>
* info.el (Info-insert-breadcrumbs): Be careful to preserve history.
2008-06-13 Stefan Monnier <monnier@iro.umontreal.ca>
* term/linux.el (terminal-init-linux): Load t-mouse.

10
lisp/info.el
View File

@ -681,9 +681,8 @@ it says do not attempt further (recursive) error recovery."
;; Record the node we are leaving, if we were in one.
(and (not no-going-back)
Info-current-file
(setq Info-history
(cons (list Info-current-file Info-current-node (point))
Info-history)))
(push (list Info-current-file Info-current-node (point))
Info-history))
(Info-find-node-2 filename nodename no-going-back))
;;;###autoload
@ -3726,8 +3725,9 @@ the variable `Info-file-list-for-emacs'."
(let ((up (Info-extract-pointer "up")))
(push up crumbs)
(setq depth (1- depth))
(Info-goto-node up)))
(Info-goto-node onode)
(Info-find-node Info-current-file up 'no-going-back)))
(if crumbs ;Do bother going back if we haven't moved.
(Info-find-node Info-current-file onode 'no-going-back))
;; Add bottom node.
(when Info-use-header-line
;; Let it disappear if crumbs is nil.