branch: elpa/forth-mode
commit 5076a08abc33028d650ccd46713389b267de2960
Author: Lars Brinkhoff <[email protected]>
Commit: Lars Brinkhoff <[email protected]>
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)
