diff options
author | Richard M. Stallman <[email protected]> | 2002-07-01 07:48:12 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2002-07-01 07:48:12 +0000 |
commit | aebd1760c029fdbeb0ceeb0f48a939226908cc63 (patch) | |
tree | 47d56d43d4e6d9bf33733a1d63d8067c026185cd | |
parent | 4855897e98686e83242570f3076a3f2b4da77b0c (diff) |
(Info-index): Get immediate error if used in `dir'.
-rw-r--r-- | lisp/info.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/info.el b/lisp/info.el index a12602afb3..6be518b014 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]*\\)" |