From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 1 Jul 2002 07:48:12 +0000 (+0000)
Subject: (Info-index): Get immediate error if used in `dir'.
X-Git-Tag: ttn-vms-21-2-B4~14375
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aebd1760c029fdbeb0ceeb0f48a939226908cc63;p=emacs.git

(Info-index): Get immediate error if used in `dir'.
---

diff --git a/lisp/info.el b/lisp/info.el
index a12602afb3e..6be518b0147 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1854,11 +1854,15 @@ Give a blank topic name to go to the Index node itself."
    (list
     (let ((Info-complete-menu-buffer (clone-buffer))
 	  (Info-complete-next-re "\\<Index\\>"))
+      (if (equal Info-current-file "dir")
+	  (error "The Info directory node has no index; use m to select a manual"))
       (unwind-protect
 	  (with-current-buffer Info-complete-menu-buffer
 	    (Info-goto-index)
 	    (completing-read "Index topic: " 'Info-complete-menu-item))
 	(kill-buffer Info-complete-menu-buffer)))))
+  (if (equal Info-current-file "dir")
+      (error "The Info directory node has no index; use m to select a manual"))
   (let ((orignode Info-current-node)
 	(rnode nil)
 	(pattern (format "\n\\* +\\([^\n:]*%s[^\n:]*\\):[ \t]*\\([^.\n]*\\)\\.[ \t]*\\([0-9]*\\)"