[nongnu] elpa/forth-mode 5aa3a700b0 016/153: Improve killing an interactive Forth session.

[ELPA Syncer]

branch: elpa/forth-mode
commit 5aa3a700b0580ea42d9c087bf826f1cfd48b12cc
Author: Lars Brinkhoff <lars.brinkhoff@delphi.com>
Commit: Lars Brinkhoff <lars.brinkhoff@delphi.com>

    Improve killing an interactive Forth session.
---
 forth-interaction-mode.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/forth-interaction-mode.el b/forth-interaction-mode.el
index 731ccb1bcc..5fb40194d7 100644
--- a/forth-interaction-mode.el
+++ b/forth-interaction-mode.el
@@ -6,7 +6,7 @@
 (defvar forth-interaction-mode-map
   (let ((map (copy-keymap forth-mode-map)))
     (set-keymap-parent map comint-mode-map)
-    (define-key map (kbd "C-c C-k") 'forth-interaction-kill)
+    (define-key map (kbd "C-c C-k") 'forth-kill)
     map)
   "Keymap for Forth interaction.")
 
@@ -22,14 +22,16 @@
        (setq forth-interaction-callback nil))
       text))
 
-(defun forth-interaction-kill (&optional buffer)
+(defun forth-kill (&optional buffer)
   (interactive)
-  (kill-buffer (or buffer (current-buffer)))
+  (setq buffer (or buffer (current-buffer)))
+  (set-process-query-on-exit-flag (get-buffer-process buffer) nil)
+  (kill-buffer buffer)
   (setq forth-interaction-buffer nil))
 
 (defun forth-interaction-sentinel (proc arg)
   (message "Forth: %s" arg)
-  (forth-interaction-kill (process-buffer proc)))
+  (forth-kill (process-buffer proc)))
 
 (defvar forth-executable "gforth")