[nongnu] elpa/forth-mode 5076a08abc 057/153: Make C-c C-k work in all Forth modes.

[ELPA Syncer]

branch: elpa/forth-mode
commit 5076a08abc33028d650ccd46713389b267de2960
Author: Lars Brinkhoff <lars@nocrew.org>
Commit: Lars Brinkhoff <lars@nocrew.org>

    Make C-c C-k work in all Forth modes.
---
 forth-interaction-mode.el | 4 ++--
 forth-mode.el             | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/forth-interaction-mode.el b/forth-interaction-mode.el
index ac46be8e7b..61afa7332c 100644
--- a/forth-interaction-mode.el
+++ b/forth-interaction-mode.el
@@ -7,7 +7,6 @@
 (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-kill)
     (define-key map (kbd "C-c C-r") 'forth-restart)
     map)
   "Keymap for Forth interaction.")
@@ -22,9 +21,10 @@
       (funcall forth-interaction-callback text)
       text))
 
+;;;###autoload
 (defun forth-kill (&optional buffer)
   (interactive)
-  (setq buffer (or buffer (current-buffer)))
+  (setq buffer (or buffer forth-interaction-buffer))
   (when (get-buffer-process buffer)
     (set-process-query-on-exit-flag (get-buffer-process buffer) nil))
   (kill-buffer buffer)
diff --git a/forth-mode.el b/forth-mode.el
index cb4e1e8dad..f298a84269 100644
--- a/forth-mode.el
+++ b/forth-mode.el
@@ -17,6 +17,7 @@
     (define-key map (kbd "C-c C-l") 'forth-load-file)
     (define-key map (kbd "C-c C-s") 'forth-see)
     (define-key map (kbd "C-M-x") 'forth-eval-defun)
+    (define-key map (kbd "C-c C-k") 'forth-kill)
     ;; (define-key map (kbd "C-c C-c") 'eval-buffer)
     ;; (define-key map (kbd "C-x C-e") #'forth-eval-last-sexp)
     ;; (define-key map (kbd "C-c :") #'forth-eval-expression)