(Info-revert-find-node): Check for Info-current-file

before preserving new-history.

diff --git a/lisp/info.el b/lisp/info.el
index 8bd266cffc0ebeeed2eccde5f5a708a35278547e..61d5974107828b92fd461125d031745a8c16e870 100644 (file)
--- 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)