From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 5 Oct 2003 13:51:04 +0000 (+0000)
Subject: (Info-following-node-name): New function.
X-Git-Tag: ttn-vms-21-2-B4~8625
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=718e6bc7771b6983b6407b363f583128f96237dd;p=emacs.git

(Info-following-node-name): New function.
---

diff --git a/lisp/info.el b/lisp/info.el
index 28869c4f469..e11fdbf16ad 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1441,6 +1441,11 @@ End of submatch 0, 1, and 3 are the same, so you can safely concat."
 	  "[" (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)