From 4dd91a89369b45957f0154cd2055c279eb2217c2 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 23 Aug 2024 17:15:32 +0200 Subject: [PATCH] ; 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) --- lisp/emacs-lisp/checkdoc.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 () -- 2.39.5