From 746c9f1493536e60be1965ef669620908a553227 Mon Sep 17 00:00:00 2001
From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 18 Dec 2006 05:16:48 +0000
Subject: [PATCH] (Info-build-node-completions): Signal error if tag-table
 marker is not found.

---
 lisp/info.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/info.el b/lisp/info.el
index 2318f3240dd..b2a67265dca 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1551,6 +1551,8 @@ PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)."
 	    (node-regexp "Node: *\\([^,\n]*\\) *[,\n\t]"))
 	(save-excursion
 	  (save-restriction
+	    (or Info-tag-table-marker
+		(error "No Info tags found"))
 	    (if (marker-buffer Info-tag-table-marker)
 		(let ((marker Info-tag-table-marker))
 		  (set-buffer (marker-buffer marker))
-- 
2.39.2