diff options
| author | Stefan Monnier | 2021-04-13 09:47:46 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2021-04-13 09:47:46 -0400 |
| commit | cf605d56f99a4e109dc27e548551c5cb5c171b7b (patch) | |
| tree | 016b8b538841a88dcd223006aab4aafb1e7f000f | |
| parent | 1667253fec963e2ffb2bb36db67564533cf92787 (diff) | |
| download | emacs-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.el | 8 |
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. |
| 209 | With argument ARG, do it ARG times; | 207 | With 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 |