diff options
author | Stefan Monnier <[email protected]> | 2008-06-14 01:59:21 +0000 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2008-06-14 01:59:21 +0000 |
commit | 159dfddecbe141df80ba45f1d44eb6199ed1385a (patch) | |
tree | db7803f4c4ef73cc1af2dc5dfea90bee01325a55 /lisp/info.el | |
parent | 960ec30cde454c8271af16b4d6f7ee5e78a9c4f6 (diff) |
(Info-insert-breadcrumbs): Be careful to preserve history.
Diffstat (limited to 'lisp/info.el')
-rw-r--r-- | lisp/info.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/info.el b/lisp/info.el index ae62e9dd3f..b274c8258a 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -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. |