From: Juanma Barranquero Date: Sun, 11 May 2003 15:30:12 +0000 (+0000) Subject: (info-lookup-make-completions): Allow colons in index entries by looking for ": X-Git-Tag: ttn-vms-21-2-B4~10201 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bdb0f2d5510b9941d844c12d3f64bcd76087ec9c;p=emacs.git (info-lookup-make-completions): Allow colons in index entries by looking for ": " to terminate, as per latest info.el. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 82a10a819fe..4cc00d924dc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-05-11 Kevin Ryde + + * 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 * newcomment.el (comment-indent): Try to align to adjacent comments. diff --git a/lisp/info-look.el b/lisp/info-look.el index b4a8d3be6a8..e81d33e65f2 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el @@ -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 @@ 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.