(info-lookup-make-completions): Allow colons in index entries by looking for ":
" to terminate, as per latest info.el.
This commit is contained in:
@@ -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.
|
||||
|
||||
@@ -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.
|
||||
|
||||
Reference in New Issue
Block a user