Mercurial > emacs
comparison lisp/info.el @ 49390:1ab93adb0017
(Info-index): change pattern so that index entries
with colons can be read properly; also, require at
least one space after the colons, which makeinfo
puts in. From: Aubrey Jaffer <agj@alum.mit.edu>,
7 Nov 2002 21:16:12 -0500, sent to bug-texinfo.
| author | Karl Berry <karl@gnu.org> |
|---|---|
| date | Wed, 22 Jan 2003 20:35:23 +0000 |
| parents | d2e3b9b256df |
| children | 59c37b87bb18 |
comparison
equal
deleted
inserted
replaced
| 49389:2867da9cc2b0 | 49390:1ab93adb0017 |
|---|---|
| 1 ;;; info.el --- info package for Emacs | 1 ;;; info.el --- info package for Emacs |
| 2 | 2 |
| 3 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001, 2002 | 3 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001, |
| 4 ;; 2002, 2003 | |
| 4 ;; Free Software Foundation, Inc. | 5 ;; Free Software Foundation, Inc. |
| 5 | 6 |
| 6 ;; Maintainer: FSF | 7 ;; Maintainer: FSF |
| 7 ;; Keywords: help | 8 ;; Keywords: help |
| 8 | 9 |
| 1933 (kill-buffer Info-complete-menu-buffer))))) | 1934 (kill-buffer Info-complete-menu-buffer))))) |
| 1934 (if (equal Info-current-file "dir") | 1935 (if (equal Info-current-file "dir") |
| 1935 (error "The Info directory node has no index; use m to select a manual")) | 1936 (error "The Info directory node has no index; use m to select a manual")) |
| 1936 (let ((orignode Info-current-node) | 1937 (let ((orignode Info-current-node) |
| 1937 (rnode nil) | 1938 (rnode nil) |
| 1938 (pattern (format "\n\\* +\\([^\n:]*%s[^\n:]*\\):[ \t]*\\([^.\n]*\\)\\.[ \t]*\\([0-9]*\\)" | 1939 (pattern (format "\n\\* +\\([^\n]*%s[^\n]*\\):[ \t]+\\([^.\n]*\\)\\.[ \t]*\\([0-9]*\\)" |
| 1939 (regexp-quote topic))) | 1940 (regexp-quote topic))) |
| 1940 node | 1941 node |
| 1941 (case-fold-search t)) | 1942 (case-fold-search t)) |
| 1942 (Info-goto-index) | 1943 (Info-goto-index) |
| 1943 (or (equal topic "") | 1944 (or (equal topic "") |