(Info-find-emacs-command-nodes): Adapt to Texinfo-4.7 style indexes.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d7a3b8c175..7297a2bc3f7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/info.el b/lisp/info.el
index 17905c6d738..4fc7b5c9cf7 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3248,7 +3248,8 @@ The locations are of the format used in `Info-history', i.e.
 \(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)