[nongnu] elpa/page-break-lines 908581b869 23/80: Shorten rule width slightly when word-wrap is on (see #5)

[ELPA Syncer]

branch: elpa/page-break-lines
commit 908581b8697492c94e9539484fc172801e1b0ec7
Author: Steve Purcell <steve@sanityinc.com>
Commit: Steve Purcell <steve@sanityinc.com>

    Shorten rule width slightly when word-wrap is on (see #5)
---
 page-break-lines.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/page-break-lines.el b/page-break-lines.el
index ac8c555696..9e4457ccfc 100644
--- a/page-break-lines.el
+++ b/page-break-lines.el
@@ -95,7 +95,8 @@ its display table will be modified as necessary."
           (aset buffer-display-table ?\^L
                 (vconcat (mapcar (lambda (c)
                                    (make-glyph-code c 'page-break-lines))
-                                 (make-list (window-width window)
+                                 (make-list (- (window-width window)
+                                               (if word-wrap 1 0))
                                             page-break-lines-char)))))
       (when buffer-display-table
         (aset buffer-display-table ?\^L nil)))))