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.
This commit is contained in:
Lars Ingebrigtsen 2021-11-01 04:02:16 +01:00
parent 7a46461950
commit eeb09ff41b

View file

@ -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