aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2021-04-13 09:47:46 -0400
committerStefan Monnier2021-04-13 09:47:46 -0400
commitcf605d56f99a4e109dc27e548551c5cb5c171b7b (patch)
tree016b8b538841a88dcd223006aab4aafb1e7f000f
parent1667253fec963e2ffb2bb36db67564533cf92787 (diff)
downloademacs-cf605d56f99a4e109dc27e548551c5cb5c171b7b.tar.gz
emacs-cf605d56f99a4e109dc27e548551c5cb5c171b7b.zip
* lisp/textmodes/paragraphs.el (multiple-lines): Remove mistaken declaration
(forward-paragraph): Remove unused var `multiple-lines`.
-rw-r--r--lisp/textmodes/paragraphs.el8
1 files 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."
202(put 'paragraph-ignore-fill-prefix 'safe-local-variable #'booleanp) 202(put 'paragraph-ignore-fill-prefix 'safe-local-variable #'booleanp)
203 203
204;; Silence the compiler. 204;; Silence the compiler.
205(defvar multiple-lines)
206
207(defun forward-paragraph (&optional arg) 205(defun forward-paragraph (&optional arg)
208 "Move forward to end of paragraph. 206 "Move forward to end of paragraph.
209With argument ARG, do it ARG times; 207With argument ARG, do it ARG times;
@@ -262,13 +260,13 @@ Returns the count of paragraphs left to move."
262 ;; Search back for line that starts or separates paragraphs. 260 ;; Search back for line that starts or separates paragraphs.
263 (if (if fill-prefix-regexp 261 (if (if fill-prefix-regexp
264 ;; There is a fill prefix; it overrides parstart. 262 ;; There is a fill prefix; it overrides parstart.
265 (let (multiple-lines) 263 (let () ;; multiple-lines
266 (while (and (progn (beginning-of-line) (not (bobp))) 264 (while (and (progn (beginning-of-line) (not (bobp)))
267 (progn (move-to-left-margin) 265 (progn (move-to-left-margin)
268 (not (looking-at parsep))) 266 (not (looking-at parsep)))
269 (looking-at fill-prefix-regexp)) 267 (looking-at fill-prefix-regexp))
270 (unless (= (point) start) 268 ;; (unless (= (point) start)
271 (setq multiple-lines t)) 269 ;; (setq multiple-lines t))
272 (forward-line -1)) 270 (forward-line -1))
273 (move-to-left-margin) 271 (move-to-left-margin)
274 ;; This deleted code caused a long hanging-indent line 272 ;; This deleted code caused a long hanging-indent line