From aebd1760c029fdbeb0ceeb0f48a939226908cc63 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 1 Jul 2002 07:48:12 +0000 Subject: [PATCH] (Info-index): Get immediate error if used in `dir'. --- lisp/info.el | 4 ++++ 1 file changed, 4 insertions(+) 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 "\\")) + (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]*\\)" -- 2.39.2