# HG changeset patch # User Juanma Barranquero # Date 1052666835 0 # Node ID a7b2bce87058b984473e614059d03fa60eff6a38 # Parent 620ed035578e4793ee0701cceffd51a98fc14253 (info-lookup-make-completions): Allow colons in index entries by looking for ": " to terminate, as per latest info.el. diff -r 620ed035578e -r a7b2bce87058 lisp/info-look.el --- a/lisp/info-look.el Sun May 11 15:06:41 2003 +0000 +++ b/lisp/info-look.el Sun May 11 15:27:15 2003 +0000 @@ -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 ;; (did not show signs of life (Nov 2001) -stef) @@ -468,7 +468,7 @@ (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.