; 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:
parent
25f5372166
commit
44c26140b6
1 changed files with 1 additions and 1 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Reference in a new issue