[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master cf605d5: * lisp/textmodes/paragraphs.el (multiple-lines): Remove
From: |
Stefan Monnier |
Subject: |
master cf605d5: * lisp/textmodes/paragraphs.el (multiple-lines): Remove mistaken declaration |
Date: |
Tue, 13 Apr 2021 09:47:51 -0400 (EDT) |
branch: master
commit cf605d56f99a4e109dc27e548551c5cb5c171b7b
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* 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 31e91c7..59b15e8 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master cf605d5: * lisp/textmodes/paragraphs.el (multiple-lines): Remove mistaken declaration,
Stefan Monnier <=