branch: elpa/page-break-lines
commit 2dd4af3b4b2b7353c1861c9d4a50e5bd4ae69ab2
Author: Tim Hill <timh...@alum.mit.edu>
Commit: Tim Hill <timh...@alum.mit.edu>
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))
