Decrease window width by 1 in `pancake-width-adjust'

Take the continuation glyph column into account.

1 files changed, 2 insertions, 1 deletions

diff --git a/pancake.el b/pancake.el
index 691c01a..52021cf 100644
--- a/pancake.el
+++ b/pancake.el
@@ -375,7 +375,8 @@ use. Current window width is used if none is provided."
   ;; Not using `pancake-process-send' here, since it itself would call
   ;; this function.
   (process-send-string pancake-process
-                       (format "set width %d\n" (or width (window-width)))))
+                       (format "set width %d\n"
+                               (or width (1- (window-width))))))
 
 (defun pancake-process-send (line)
   "Send LINE to the pancake process."