From: Stefan Monnier Date: Tue, 13 Apr 2021 13:47:46 +0000 (-0400) Subject: * lisp/textmodes/paragraphs.el (multiple-lines): Remove mistaken declaration X-Git-Tag: emacs-28.0.90~2867 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf605d56f99a4e109dc27e548551c5cb5c171b7b;p=emacs.git * lisp/textmodes/paragraphs.el (multiple-lines): Remove mistaken declaration (forward-paragraph): Remove unused var `multiple-lines`. --- 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