# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 808851267 0
# Node ID 8b902b24d74980aa9600d27c426ca137d8518155
# Parent  e41d6c7b04ca523d22cf33b7e846c7c2fa5a9fae
(Info-find-emacs-command-nodes): Fix previous change.

diff -r e41d6c7b04ca -r 8b902b24d749 lisp/info.el
--- a/lisp/info.el	Sat Aug 19 06:35:38 1995 +0000
+++ b/lisp/info.el	Sat Aug 19 16:54:27 1995 +0000
@@ -1621,7 +1621,9 @@
 
 (defun Info-find-emacs-command-nodes (command)
   "Return a list of locations documenting COMMAND.
-The variable `Info-file-alist' tells what Info manual to search.
+The `info-file' property of COMMAND says which Info manual to search.
+If COMMAND has no property, the variable `Info-file-list-for-emacs'
+defines heuristics for which Info manual to try.
 The locations are of the format used in Info-history, i.e.
 \(FILENAME NODENAME BUFFERPOS\)."
   (let ((where '())
@@ -1640,7 +1642,7 @@
 			   (car elt)
 			 elt))
 		 (file (if (consp elt) (cdr elt) elt))
-		 (regexp (concat "^" (regexp-quote name)
+		 (regexp (concat "\\`" (regexp-quote name)
 				 "\\(\\'\\|-\\)")))
 	    (if (string-match regexp (symbol-name command))
 		(setq info-file file file-list nil))
@@ -1668,7 +1670,8 @@
 (defun Info-goto-emacs-command-node (command)
   "Go to the Info node in the Emacs manual for command COMMAND.
 The command is found by looking up in Emacs manual's Command Index
-or in another manual found via `Info-file-list-for-emacs'."
+or in another manual found via COMMAND's `info-file' property or
+the variable `Info-file-list-for-emacs'."
   (interactive "CFind documentation for command: ")
   (or (commandp command)
       (signal 'wrong-type-argument (list 'commandp command)))
@@ -1699,7 +1702,8 @@
   "Go to the Info node in the Emacs manual the command bound to KEY, a string.
 Interactively, if the binding is execute-extended-command, a command is read.
 The command is found by looking up in Emacs manual's Command Index
-or in another manual found via `Info-file-list-for-emacs'."
+or in another manual found via COMMAND's `info-file' property or
+the variable `Info-file-list-for-emacs'."
   (interactive "kFind documentation for key:")
   (let ((command (key-binding key)))
     (cond ((null command)