[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Fix fill-flowed for large or nil values of fill-flowed-display-colum
From: |
Matthias Schmitt |
Subject: |
Re: Fix fill-flowed for large or nil values of fill-flowed-display-column |
Date: |
Thu, 27 Jan 2022 13:36:53 +0000 |
The previous patch broke `fill-flow` for quoted text a
`beginning-of-line` call fixes that.
--- #<buffer flow-fill.el.gz>
+++ #<buffer flow-fill.buffer>
@@ -140,11 +140,11 @@
;; next line.
(delete-region (point) (match-end 1))
(ignore-errors
- (let ((fill-prefix (concat prefix " "))
- adaptive-fill-mode)
- (fill-region (line-beginning-position)
- (line-end-position)
- 'left 'nosqueeze))))))
+ (let ((fill-prefix (concat prefix " "))
+ adaptive-fill-mode)
+ (fill-region (line-beginning-position)
+ (line-end-position)
+ 'left 'nosqueeze))))))
(t
;; Delete the newline.
(when (eq (following-char) ?\s)
@@ -157,11 +157,13 @@
(delete-char -1))
(delete-char 1)
(ignore-errors
- (let ((fill-prefix ""))
- (fill-region (line-beginning-position)
- (line-end-position)
- 'left 'nosqueeze))))))
- (forward-line 1)))))
+ (let ((fill-prefix ""))
+ (fill-region (line-beginning-position)
+ (line-end-position)
+ 'left 'nosqueeze))))))
+ (unless (eq (char-before (line-end-position)) ?\s)
+ (forward-line 1))
+ (beginning-of-line)))))
(make-obsolete-variable 'fill-flowed-encode-tests nil "27.1")
(defvar fill-flowed-encode-tests)