Mercurial > hg > xemacs-beta

comparison lisp/info.el @ 830:20baef34a0b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-05-07 16:13:59 by stephent] fix tab escape <87adrcueez.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Tue, 07 May 2002 16:14:04 +0000
parents e38acbeb1cae
children c08a6fa181d1
comparison
equal deleted inserted replaced
829:42a86787d173 830:20baef34a0b0
2275 2275
2276 2276
2277 (defun Info-find-index-alternatives (topic) 2277 (defun Info-find-index-alternatives (topic)
2278 (let ((pattern (format "\n\\* \\([^\n:]*%s[^\n:]*\\):[ \t]*%s" 2278 (let ((pattern (format "\n\\* \\([^\n:]*%s[^\n:]*\\):[ \t]*%s"
2279 (regexp-quote topic) 2279 (regexp-quote topic)
2280 "\\(.*\\)\\.[ t]*\\([0-9]*\\)$")) 2280 "\\(.*\\)\\.[ \t]*\\([0-9]*\\)$"))
2281 node) 2281 node)
2282 (message "Searching index for `%s'..." topic) 2282 (message "Searching index for `%s'..." topic)
2283 (Info-goto-node "Top") 2283 (Info-goto-node "Top")
2284 (let ((case-fold-search t)) 2284 (let ((case-fold-search t))
2285 (or (search-forward "\n* menu:" nil t) 2285 (or (search-forward "\n* menu:" nil t)