branch: elpa/page-break-lines
commit e33426ae7f10c60253afe4850450902919fc87fd
Merge: 1b85352b0b 2dd4af3b4b
Author: Steve Purcell <st...@sanityinc.com>
Commit: GitHub <nore...@github.com>
Merge pull request #43 from timhillgit/reenable-max-width
Re-enable page-break-lines-max-width
---
page-break-lines.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/page-break-lines.el b/page-break-lines.el
index 92c917fe1a..934c97e2a0 100644
--- a/page-break-lines.el
+++ b/page-break-lines.el
@@ -130,6 +130,9 @@ its display table will be modified as necessary."
(string-pixel-width
(make-string 100 ?a)))
(char-width
page-break-lines-char)))
(width (floor (window-max-chars-per-line)
char-relative-width))
+ (width (if page-break-lines-max-width
+ (min width page-break-lines-max-width)
+ width))
(glyph (make-glyph-code page-break-lines-char
'page-break-lines))
(new-display-entry (vconcat (make-list width glyph))))
(unless (equal new-display-entry (elt buffer-display-table
?\^L))
