# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1098642988 0
# Node ID d8b07169ce2676587ba8bf2c414b378f0ef9e630
# Parent  4c62dfe8a8681b13f65265d4be64587c9eef07e8
(Info-find-emacs-command-nodes): Adapt to Texinfo-4.7 style indexes.

diff -r 4c62dfe8a868 -r d8b07169ce26 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 24 13:26:10 2004 +0000
+++ b/lisp/ChangeLog	Sun Oct 24 18:36:28 2004 +0000
@@ -1,3 +1,8 @@
+2004-10-24  Luc Teirlinck  <teirllm@auburn.edu>
+
+	* info.el (Info-find-emacs-command-nodes): Adapt to Texinfo-4.7
+	style indexes.
+
 2004-10-24  Kai Grossjohann  <kai.grossjohann@gmx.net>
 
 	* simple.el (process-file): Accept nil for INFILE.  Reported by
diff -r 4c62dfe8a868 -r d8b07169ce26 lisp/info.el
--- a/lisp/info.el	Sun Oct 24 13:26:10 2004 +0000
+++ b/lisp/info.el	Sun Oct 24 18:36:28 2004 +0000
@@ -3248,7 +3248,8 @@
 \(FILENAME NODENAME BUFFERPOS\)."
   (let ((where '())
 	(cmd-desc (concat "^\\* +" (regexp-quote (symbol-name command))
-			  "\\( <[0-9]+>\\)?:\\s *\\(.*\\)\\.$"))
+			  "\\( <[0-9]+>\\)?:\\s *\\(.*\\)\\."
+			  "\\([ \t]*(line[ \t]*[0-9]*)\\)?$"))
 	(info-file "emacs"))		;default
     ;; Determine which info file this command is documented in.
     (if (get command 'info-file)