[nongnu] elpa/forth-mode fbd2c51cea 070/153: Initialize pseudo terminal window size

[ELPA Syncer]

branch: elpa/forth-mode
commit fbd2c51cea940cc1da251b4b09fae53243cf426b
Author: Helmut Eller <eller.helmut@gmail.com>
Commit: Lars Brinkhoff <lars@nocrew.org>

    Initialize pseudo terminal window size
    
    * (run-forth): Initialize the window size of the newly created
    process.  SwiftForth reads the size and crashes if it is zero.  So
    initialize to something non-zero even if it's not the correct size of
    the *forth* window.  There's probably still a race condition as we
    only set the window size after the subprocess has been started.
---
 forth-interaction-mode.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/forth-interaction-mode.el b/forth-interaction-mode.el
index 784ce45959..41b4186852 100644
--- a/forth-interaction-mode.el
+++ b/forth-interaction-mode.el
@@ -51,6 +51,8 @@
     (unless (comint-check-proc buffer)
       (run-hooks 'run-forth-hooks)
       (make-comint-in-buffer "forth" buffer forth-executable)
+      (set-process-window-size (get-buffer-process buffer)
+                              (window-width) (window-height))
       (set-process-sentinel (get-buffer-process buffer)
                            'forth-interaction-sentinel)
       (forth-interaction-mode)