From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 18 Dec 2006 05:16:48 +0000 (+0000)
Subject: (Info-build-node-completions): Signal error if tag-table marker is not
X-Git-Tag: emacs-pretest-22.0.92~38
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=746c9f1493536e60be1965ef669620908a553227;p=emacs.git

(Info-build-node-completions): Signal error if tag-table marker is not
found.
---

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))