Index: info-look.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/info-look.el,v
retrieving revision 1.32
diff -u -c -F^( -r1.32 info-look.el
cvs server: conflicting specifications of output style
*** info-look.el	5 Apr 2003 12:58:02 -0000	1.32
--- info-look.el	9 May 2003 23:28:38 -0000
***************
*** 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.
  
  ;; Author: Ralph Schleicher <address@hidden>
  ;;         (did not show signs of life (Nov 2001)  -stef)
--- 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, 2003  Free Software Foundation, Inc.
  
  ;; Author: Ralph Schleicher <address@hidden>
  ;;         (did not show signs of life (Nov 2001)  -stef)
*************** (defun info-lookup-make-completions (top
*** 468,474 ****
  	      (progn
  		(goto-char (point-min))
  		(and (search-forward "\n* Menu:" nil t)
! 		     (while (re-search-forward "\n\\* \\([^:\t\n]*\\):" nil t)
  		       (setq entry (match-string 1)
  			     item (funcall trans entry))
  		       ;; `trans' can return nil if the regexp doesn't match.
--- 468,474 ----
  	      (progn
  		(goto-char (point-min))
  		(and (search-forward "\n* Menu:" 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.