[nongnu] elpa/page-break-lines 2dd4af3b4b 1/2: Re-enable page-break-lines-max-width

[ELPA Syncer]

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