(Info-find-node): Don't try to backstep if no history.

(Info-insert-dir): Print sensible error message if no dir node.

diff --git a/lisp/info.el b/lisp/info.el
index 0fe52e844e057a9321380cf813c07e2b972c2151..ea39ddd19c568041fdd25185cd73d578ed2251b1 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -304,7 +304,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
          (Info-select-node)))
     ;; If we did not finish finding the specified node,
     ;; go back to the previous one.
-    (or Info-current-node no-going-back
+    (or Info-current-node no-going-back (null Info-history)
        (let ((hist (car Info-history)))
          (setq Info-history (cdr Info-history))
          (Info-find-node (nth 0 hist) (nth 1 hist) t)
@@ -373,6 +373,8 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
                                       Info-dir-file-attributes))))))
        (setq dirs (cdr dirs)))
 
+      (or buffers
+         (error "Can't find the info directory node"))
       ;; Distinguish the dir file that comes with Emacs from all the
       ;; others.  Yes, that is really what this is supposed to do.
       ;; If it doesn't work, fix it.