branch: elpa/forth-mode
commit b455a556fe34b67881e0839419275ba59c641a28
Author: Lars Brinkhoff <[email protected]>
Commit: Lars Brinkhoff <[email protected]>
Add C-M-x, forth-eval-defun.
---
forth-mode.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/forth-mode.el b/forth-mode.el
index 0a09e5b653..cb4e1e8dad 100644
--- a/forth-mode.el
+++ b/forth-mode.el
@@ -13,10 +13,10 @@
(defvar forth-mode-map
(let ((map (make-sparse-keymap)))
- (define-key map (kbd "C-c C-r") #'forth-eval-region)
+ (define-key map (kbd "C-c C-r") 'forth-eval-region)
(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-s") 'forth-see)
+ (define-key map (kbd "C-M-x") 'forth-eval-defun)
;; (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)
@@ -146,6 +146,12 @@
(insert (forth-interaction-send "see " word))
(special-mode)))
+(defun forth-eval-defun ()
+ (interactive)
+ (save-excursion
+ (mark-defun)
+ (forth-eval-region (point) (mark))))
+
(defun forth-beginning ()
(goto-char (point-min)))
