From 16d1a380ab3a6a9622f06f54c311f56efe4d7a48 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 16 Sep 2022 14:08:32 +0300 Subject: [PATCH] FIXED: (sweep-beginning-of-top-term): possible infinite loop --- sweep.el | 1 + 1 file changed, 1 insertion(+) diff --git a/sweep.el b/sweep.el index b1a17fe..3b60766 100644 --- a/sweep.el +++ b/sweep.el @@ -1060,6 +1060,7 @@ Interactively, a prefix arg means to prompt for BUFFER." (nth 8 (syntax-ppss (1+ (point))))))) (while (and safe-start (not (bobp))) (goto-char safe-start) + (backward-char) (re-search-backward (rx bol graph) nil t) (setq safe-start (or (nth 8 (syntax-ppss)) (nth 8 (syntax-ppss (1+ (point))))))))) -- 2.39.2