From: Juri Linkov <juri@jurta.org>
Date: Tue, 17 Jan 2006 02:07:44 +0000 (+0000)
Subject: (Info-revert-find-node): Check for Info-current-file
X-Git-Tag: emacs-pretest-22.0.90~4719
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96639c897090f919cebda07796ccd11ad0094565;p=emacs.git

(Info-revert-find-node): Check for Info-current-file
before preserving new-history.
---

diff --git a/lisp/info.el b/lisp/info.el
index 8bd266cffc0..61d59741078 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -731,7 +731,8 @@ is preserved, if possible."
 	(pline        (count-lines (point-min) (line-beginning-position)))
 	(wline        (count-lines (point-min) (window-start)))
 	(old-history  Info-history)
-	(new-history  (list Info-current-file Info-current-node (point))))
+	(new-history  (and Info-current-file
+			   (list Info-current-file Info-current-node (point)))))
     (kill-buffer (current-buffer))
     (Info-find-node filename nodename)
     (setq Info-history old-history)