fix

lem-project · Dec 3, 2024 · d71a593 · d71a593
1 parent acb44b5
commit d71a593
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/frame.lisp b/src/frame.lisp
@@ -180,7 +180,9 @@ redraw-display関数でキャッシュを捨てて画面全体を再描画しま
   (- (display-width)
      (topleft-window-x frame)
      (if (frame-rightside-window frame)
-         (window-width (frame-rightside-window frame))
+         (+ (window-width (frame-rightside-window frame))
+            1 ; border
+            )
          0)))
 
 (defun max-window-height (frame)