From cf605d56f99a4e109dc27e548551c5cb5c171b7b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 13 Apr 2021 09:47:46 -0400 Subject: [PATCH] * lisp/textmodes/paragraphs.el (multiple-lines): Remove mistaken declaration (forward-paragraph): Remove unused var `multiple-lines`. --- lisp/textmodes/paragraphs.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index 31e91c73031..59b15e82a81 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el @@ -202,8 +202,6 @@ This is desirable in modes where blank lines are the paragraph delimiters." (put 'paragraph-ignore-fill-prefix 'safe-local-variable #'booleanp) ;; Silence the compiler. -(defvar multiple-lines) - (defun forward-paragraph (&optional arg) "Move forward to end of paragraph. With argument ARG, do it ARG times; @@ -262,13 +260,13 @@ Returns the count of paragraphs left to move." ;; Search back for line that starts or separates paragraphs. (if (if fill-prefix-regexp ;; There is a fill prefix; it overrides parstart. - (let (multiple-lines) + (let () ;; multiple-lines (while (and (progn (beginning-of-line) (not (bobp))) (progn (move-to-left-margin) (not (looking-at parsep))) (looking-at fill-prefix-regexp)) - (unless (= (point) start) - (setq multiple-lines t)) + ;; (unless (= (point) start) + ;; (setq multiple-lines t)) (forward-line -1)) (move-to-left-margin) ;; This deleted code caused a long hanging-indent line -- 2.39.2