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

1 files changed, 5 insertions, 0 deletions

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)