(info-lookup-make-completions): Allow colons in index entries by looking for ":

" to terminate, as per latest info.el.
This commit is contained in:
Juanma Barranquero
2003-05-11 15:30:12 +00:00
parent 9465a86c76
commit bdb0f2d551
2 changed files with 7 additions and 2 deletions

View File

@@ -1,3 +1,8 @@
2003-05-11 Kevin Ryde <user42@zip.com.au>
* info-look.el (info-lookup-make-completions): Allow colons in index
entries by looking for ": " to terminate, as per latest info.el.
2003-05-10 Stefan Monnier <monnier@cs.yale.edu>
* newcomment.el (comment-indent): Try to align to adjacent comments.

View File

@@ -1,7 +1,7 @@
;;; info-look.el --- major-mode-sensitive Info index lookup facility
;; An older version of this was known as libc.el.
;; Copyright (C) 1995,96,97,98,99,2001 Free Software Foundation, Inc.
;; Copyright (C) 1995,96,97,98,99,2001,2003 Free Software Foundation, Inc.
;; Author: Ralph Schleicher <rs@nunatak.allgaeu.org>
;; (did not show signs of life (Nov 2001) -stef)
@@ -468,7 +468,7 @@ If optional argument QUERY is non-nil, query for the help mode."
(progn
(goto-char (point-min))
(and (search-forward "\n* Menu:" nil t)
(while (re-search-forward "\n\\* \\([^:\t\n]*\\):" nil t)
(while (re-search-forward "\n\\* \\(.*\\): " nil t)
(setq entry (match-string 1)
item (funcall trans entry))
;; `trans' can return nil if the regexp doesn't match.