[nongnu] elpa/forth-mode b455a556fe 056/153: Add C-M-x, forth-eval-defun.

[ELPA Syncer]

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

    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)))