comparison 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.

6715:3864d274a56c

		      (throw 'foo t))))
	      (error "No such node: %s" nodename)))
	  (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
	(let ((hist (car Info-history)))
	  (setq Info-history (cdr Info-history))
	  (Info-find-node (nth 0 hist) (nth 1 hist) t)
	  (goto-char (nth 2 hist)))))
  (goto-char (point-min)))

				 (cons (cons (buffer-file-name buffer)
					     (file-attributes (buffer-file-name buffer)))
				       Info-dir-file-attributes))))))
	(setq dirs (cdr dirs)))

      ;; 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.
      (setq buffer (car buffers)
	    others (cdr buffers))

6716:9ce2d1a2c155

		      (throw 'foo t))))
	      (error "No such node: %s" nodename)))
	  (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 (null Info-history)
	(let ((hist (car Info-history)))
	  (setq Info-history (cdr Info-history))
	  (Info-find-node (nth 0 hist) (nth 1 hist) t)
	  (goto-char (nth 2 hist)))))
  (goto-char (point-min)))

				 (cons (cons (buffer-file-name buffer)
					     (file-attributes (buffer-file-name buffer)))
				       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.
      (setq buffer (car buffers)
	    others (cdr buffers))