Merge pull request #43 from timhillgit/reenable-max-width

Re-enable page-break-lines-max-width
purcell · Mar 11, 2024 · e33426a · e33426a
2 parents 1b85352 + 2dd4af3
commit e33426a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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))