# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1166419008 0
# Node ID 8782777c2f1a656d16907af25c5b9233fdbd27fe
# Parent  0b1ce0b9c2a4312f478864673dd6cdb60785f280
(Info-build-node-completions): Signal error if tag-table marker is not
found.

diff -r 0b1ce0b9c2a4 -r 8782777c2f1a lisp/info.el
--- a/lisp/info.el	Mon Dec 18 05:16:39 2006 +0000
+++ b/lisp/info.el	Mon Dec 18 05:16:48 2006 +0000
@@ -1551,6 +1551,8 @@
 	    (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))