procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/textmodes/paragraphs.el (multiple-lines): Remove mistaken declaration

Browse source 
(forward-paragraph): Remove unused var `multiple-lines`.
This commit is contained in:
Stefan Monnier 2021-04-13 09:47:46 -04:00
parent 1667253fec
commit cf605d56f9
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/textmodes/paragraphs.el
View file

@ -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) (put 'paragraph-ignore-fill-prefix 'safe-local-variable #'booleanp)
;; Silence the compiler. ;; Silence the compiler.
(defvar multiple-lines)
(defun forward-paragraph (&optional arg) (defun forward-paragraph (&optional arg)
"Move forward to end of paragraph. "Move forward to end of paragraph.
With argument ARG, do it ARG times; 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. ;; Search back for line that starts or separates paragraphs.
(if (if fill-prefix-regexp (if (if fill-prefix-regexp
;; There is a fill prefix; it overrides parstart. ;; There is a fill prefix; it overrides parstart.
(let (multiple-lines) (let () ;; multiple-lines
(while (and (progn (beginning-of-line) (not (bobp))) (while (and (progn (beginning-of-line) (not (bobp)))
(progn (move-to-left-margin) (progn (move-to-left-margin)
(not (looking-at parsep))) (not (looking-at parsep)))
(looking-at fill-prefix-regexp)) (looking-at fill-prefix-regexp))
(unless (= (point) start) ;; (unless (= (point) start)
(setq multiple-lines t)) ;; (setq multiple-lines t))
(forward-line -1)) (forward-line -1))
(move-to-left-margin) (move-to-left-margin)
;; This deleted code caused a long hanging-indent line ;; This deleted code caused a long hanging-indent line