emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]