diff lisp/info.el @ 6716:9ce2d1a2c155

(Info-find-node): Don't try to backstep if no history. (Info-insert-dir): Print sensible error message if no dir node.

--- a/lisp/info.el	Thu Apr 07 02:46:12 1994 +0000
+++ b/lisp/info.el	Thu Apr 07 03:11:50 1994 +0000
@@ -304,7 +304,7 @@
 	  (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 @@
 				       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.