summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordefanor <defanor@uberspace.net>2017-12-15 17:03:18 +0300
committerdefanor <defanor@uberspace.net>2017-12-15 17:03:18 +0300
commita6c75aeb7ab8a7a9879aa5b1e17ffec4c18d446a (patch)
treebfa7d7c222e2fcd93dbf9879c4bbb42290185d1d
parente504a89e1cc05c0b9a3fc27cf3252cc3fa7b918f (diff)
downloadpancake-a6c75aeb7ab8a7a9879aa5b1e17ffec4c18d446a.zip
pancake-a6c75aeb7ab8a7a9879aa5b1e17ffec4c18d446a.tar.gz
pancake-a6c75aeb7ab8a7a9879aa5b1e17ffec4c18d446a.tar.bz2
Decrease window width by 1 in `pancake-width-adjust'
Take the continuation glyph column into account.
-rw-r--r--pancake.el3
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."