[Emacs-diffs] Changes to emacs/lisp/info.el

[Richard M. Stallman]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.309 emacs/lisp/info.el:1.310
*** emacs/lisp/info.el:1.309    Wed Jun 26 09:11:12 2002
--- emacs/lisp/info.el  Mon Jul  1 03:48:12 2002
***************
*** 1854,1864 ****
--- 1854,1868 ----
     (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]*\\)"