# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1213408761 0
# Node ID fcc6d97140b3d6b6c61ec165fde363d21a6cc3b7
# Parent  a69758a613b9b35b793e9d9d016ca981b2e915d6
(Info-insert-breadcrumbs): Be careful to preserve history.

diff -r a69758a613b9 -r fcc6d97140b3 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 13 21:59:41 2008 +0000
+++ b/lisp/ChangeLog	Sat Jun 14 01:59:21 2008 +0000
@@ -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.
diff -r a69758a613b9 -r fcc6d97140b3 lisp/info.el
--- a/lisp/info.el	Fri Jun 13 21:59:41 2008 +0000
+++ b/lisp/info.el	Sat Jun 14 01:59:21 2008 +0000
@@ -681,9 +681,8 @@
   ;; 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 @@
           (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.