aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lego/lego.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lego/lego.el b/lego/lego.el
index 9c35572e..a15c2581 100644
--- a/lego/lego.el
+++ b/lego/lego.el
@@ -323,6 +323,9 @@ Given is the first SPAN which needs to be undone."
(set-buffer proof-shell-buffer)
(and (proof-shell-live-buffer)
(let ((current-width
+ ;; FIXME da: I suspect this is the wrong window to
+ ;; check the width of. Probably we want the width
+ ;; of proof-pbp-buffer?
(window-width (get-buffer-window proof-shell-buffer))))
(if (equal current-width lego-shell-current-line-width) ()
; else