Fix infloop in help-make-xrefs in certain keymaps

* lisp/help-mode.el (help-make-xrefs): Adjust xref symbol finding
after changes to how keymaps are output.

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 0f80c2657332314a2401fec29c10b07b193091b1..67453453d3b3256f38888b8a6c7d2cf9049a5b69 100644 (file)
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -661,8 +661,9 @@ that."
                           (help-xref-button 3 'help-function symbol))
                         (forward-line)
                         ;; Skip empty line.
-                        (while (or (eolp)
-                                   (looking-at-p " *(this binding"))
+                        (while (and (not (eobp))
+                                    (or (eolp)
+                                        (looking-at-p " *(this binding")))
                           (forward-line)))))))
             (set-syntax-table stab))
           ;; Delete extraneous newlines at the end of the docstring