diff options
| author | Eshel Yaron <me@eshelyaron.com> | 2024-08-23 17:15:32 +0200 |
|---|---|---|
| committer | Eshel Yaron <me@eshelyaron.com> | 2024-08-23 17:18:32 +0200 |
| commit | 44c26140b6e86f67f99d4ed9cc30e95f46708641 (patch) | |
| tree | 7970c94f5be31e40434853764f09cbeffbe428c7 /lisp/emacs-lisp | |
| parent | 25f537216682eecedf3905c4e005f02be007ed9c (diff) | |
| download | emacs-44c26140b6e86f67f99d4ed9cc30e95f46708641.tar.gz emacs-44c26140b6e86f67f99d4ed9cc30e95f46708641.tar.bz2 emacs-44c26140b6e86f67f99d4ed9cc30e95f46708641.zip | |
; 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)
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index fd25b0f981f..21d40c56e74 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -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 () |