(Info-index-next): Use where-is-internal to report actual binding of

Info-index-next, rather than hard-coded `,'.

diff --git a/lisp/info.el b/lisp/info.el
index 2737999b0900ce97edb954369b687018fccf6f78..2669b709316f43b4747dd35ce5dc058261551e51 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2866,8 +2866,11 @@ Give an empty topic name to go to the Index node itself."
           (car (car Info-index-alternatives))
           (nth 2 (car Info-index-alternatives))
           (if (cdr Info-index-alternatives)
-              (format "(%s total; use `,' for next)"
-                      (length Info-index-alternatives))
+              (format "(%s total; use `%s' for next)"
+                      (length Info-index-alternatives)
+                      (key-description (where-is-internal
+                                        'Info-index-next overriding-local-map
+                                        t)))
             "(Only match)")))
 
 (defun Info-find-index-name (name)