branch: elpa/forth-mode
commit 813620cae9c65218972b28ee8247bfad4b74e02d
Author: Lars Brinkhoff <[email protected]>
Commit: Lars Brinkhoff <[email protected]>
Run hooks before starting an interactive Forth session.
---
forth-interaction-mode.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/forth-interaction-mode.el b/forth-interaction-mode.el
index 55f8c7376a..35d20a4478 100644
--- a/forth-interaction-mode.el
+++ b/forth-interaction-mode.el
@@ -35,6 +35,8 @@
(defvar forth-executable "gforth")
+(defvar run-forth-hooks)
+
;;;###autoload
(defun run-forth ()
"Start an interactive forth session."
@@ -42,6 +44,7 @@
(let ((buffer (get-buffer-create "*forth*")))
(pop-to-buffer-same-window buffer)
(unless (comint-check-proc buffer)
+ (run-hooks 'run-forth-hooks)
(make-comint-in-buffer "forth" buffer forth-executable)
(set-process-sentinel (get-buffer-process buffer)
'forth-interaction-sentinel)
