; Fix infloop in checkdoc-next-docstring

* lisp/emacs-lisp/checkdoc.el (checkdoc-next-docstring): Use
'beginning-of-defun-raw' instead of 'beginning-of-defun', as the latter
always moves back to beginning of line and thus is not guaranteed to
advance point when 'open-paren-in-column-0-is-defun-start' is non-nil.
(Bug#72759)
This commit is contained in:
Eshel Yaron 2024-08-23 17:15:32 +02:00
parent 25f5372166
commit 44c26140b6
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618

View file

@ -986,7 +986,7 @@ buffer and save warnings in a separate buffer."
Return nil if there are no more doc strings."
(let (found)
(while (and (not (setq found (checkdoc--next-docstring)))
(beginning-of-defun -1)))
(beginning-of-defun-raw -1)))
found))
(defun checkdoc--next-docstring ()