Mercurial > emacs

comparison lisp/info.el @ 46104:ee6975afddef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-index): Get immediate error if used in `dir'.
author Richard M. Stallman <rms@gnu.org>
date Mon, 01 Jul 2002 07:48:12 +0000
parents 65fc39bc254a
children 0632bf21a2c9
comparison
equal deleted inserted replaced
46103:4bea2ef4c58a 46104:ee6975afddef
1852 Give a blank topic name to go to the Index node itself." 1852 Give a blank topic name to go to the Index node itself."
1853 (interactive 1853 (interactive
1854 (list 1854 (list
1855 (let ((Info-complete-menu-buffer (clone-buffer)) 1855 (let ((Info-complete-menu-buffer (clone-buffer))
1856 (Info-complete-next-re "\\<Index\\>")) 1856 (Info-complete-next-re "\\<Index\\>"))
1857 (if (equal Info-current-file "dir")
1858 (error "The Info directory node has no index; use m to select a manual"))
1857 (unwind-protect 1859 (unwind-protect
1858 (with-current-buffer Info-complete-menu-buffer 1860 (with-current-buffer Info-complete-menu-buffer
1859 (Info-goto-index) 1861 (Info-goto-index)
1860 (completing-read "Index topic: " 'Info-complete-menu-item)) 1862 (completing-read "Index topic: " 'Info-complete-menu-item))
1861 (kill-buffer Info-complete-menu-buffer))))) 1863 (kill-buffer Info-complete-menu-buffer)))))
1864 (if (equal Info-current-file "dir")
1865 (error "The Info directory node has no index; use m to select a manual"))
1862 (let ((orignode Info-current-node) 1866 (let ((orignode Info-current-node)
1863 (rnode nil) 1867 (rnode nil)
1864 (pattern (format "\n\\* +\\([^\n:]*%s[^\n:]*\\):[ \t]*\\([^.\n]*\\)\\.[ \t]*\\([0-9]*\\)" 1868 (pattern (format "\n\\* +\\([^\n:]*%s[^\n:]*\\):[ \t]*\\([^.\n]*\\)\\.[ \t]*\\([0-9]*\\)"
1865 (regexp-quote topic))) 1869 (regexp-quote topic)))
1866 node 1870 node