From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 23 Aug 2024 15:15:32 +0000 (+0200)
Subject: ; Fix infloop in checkdoc-next-docstring
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4dd91a89369b45957f0154cd2055c279eb2217c2;p=emacs.git

; 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)
---

diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 949ca6b74ad..65226d8ee44 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -981,7 +981,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 ()