# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1065361864 0
# Node ID 371ac8b3328e54de16b3a71db2fcf9f43dddad13
# Parent  6c7cae7ce71a48ae0169e10bfb90f97eba0ae86d
(Info-following-node-name): New function.

diff -r 6c7cae7ce71a -r 371ac8b3328e lisp/info.el
--- a/lisp/info.el	Sun Oct 05 13:50:18 2003 +0000
+++ b/lisp/info.el	Sun Oct 05 13:51:04 2003 +0000
@@ -1441,6 +1441,11 @@
 	  "[" (or allowedchars "^,\t\n") " ]" ;The last char can't be a space.
 	  "\\|\\)\\)"))			      ;Allow empty node names.
 
+;;; For compatibility; other files have used this name.
+(defun Info-following-node-name ()
+  (and (looking-at (Info-following-node-name-re))
+       (match-string 1)))
+
 (defun Info-next ()
   "Go to the next node of this node."
   (interactive)