branch: elpa/forth-mode
commit 47f33ea62ab220a2550b8ce2814d0ed4f964f407
Author: Lars Brinkhoff <[email protected]>
Commit: Lars Brinkhoff <[email protected]>
Move interaction functions to forth-interactive-mode.
---
forth-block-mode.el | 1 -
forth-interaction-mode.el | 21 +++++++++++++++++++++
forth-mode.el | 20 ++------------------
3 files changed, 23 insertions(+), 19 deletions(-)
diff --git a/forth-block-mode.el b/forth-block-mode.el
index 5d577fdcfb..1e5cfd45fc 100644
--- a/forth-block-mode.el
+++ b/forth-block-mode.el
@@ -1,4 +1,3 @@
-(require 'cl)
(require 'forth-mode)
(defvar forth-block-with-newlines)
diff --git a/forth-interaction-mode.el b/forth-interaction-mode.el
index 76809207ed..88ed5a3aa7 100644
--- a/forth-interaction-mode.el
+++ b/forth-interaction-mode.el
@@ -105,4 +105,25 @@
(interactive "r")
(message "%s" (forth-interaction-send (buffer-substring start end))))
+;;;###autoload
+(defun forth-eval-defun ()
+ (interactive)
+ (save-excursion
+ (mark-defun)
+ (forth-eval-region (point) (mark))))
+
+;;;###autoload
+(defun forth-load-file (file)
+ (interactive (list (buffer-file-name (current-buffer))))
+ (forth-interaction-send "include " file))
+
+;;;###autoload
+(defun forth-see-word (word)
+ (interactive (list (forth-word-at-point)))
+ (let ((buffer (get-buffer-create "*see*")))
+ (pop-to-buffer buffer)
+ (erase-buffer)
+ (insert (forth-interaction-send "see " word))
+ (special-mode)))
+
(provide 'forth-interaction-mode)
diff --git a/forth-mode.el b/forth-mode.el
index 56d5ffb132..5bc1430d81 100644
--- a/forth-mode.el
+++ b/forth-mode.el
@@ -11,6 +11,8 @@
;;; Code:
+(require 'cl)
+
(defvar forth-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-c C-r") 'forth-eval-region)
@@ -149,24 +151,6 @@
(search-forward-regexp
"\\(^\\|\\s-\\)\\(\\S-*:\\|code\\|defer\\|2?variable\\|create\\|2?value\\|2?constant\\)\\s-+\\([[:graph:]]+\\)"
limit t))
-(defun forth-load-file (file)
- (interactive (list (buffer-file-name (current-buffer))))
- (forth-interaction-send "include " file))
-
-(defun forth-see-word (word)
- (interactive (list (forth-word-at-point)))
- (let ((buffer (get-buffer-create "*see*")))
- (pop-to-buffer buffer)
- (erase-buffer)
- (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)))
