[nongnu] elpa/forth-mode ef60dcd180 036/153: If forth-executable is nil, query user for file name.

[ELPA Syncer]

branch: elpa/forth-mode
commit ef60dcd1803e778ed67f31c075dee6937233760b
Author: Lars Brinkhoff <lars@nocrew.org>
Commit: Lars Brinkhoff <lars@nocrew.org>

    If forth-executable is nil, query user for file name.
---
 forth-interaction-mode.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/forth-interaction-mode.el b/forth-interaction-mode.el
index 658b455b29..e668c97bd1 100644
--- a/forth-interaction-mode.el
+++ b/forth-interaction-mode.el
@@ -33,7 +33,7 @@
   (message "Forth: %s" arg)
   (forth-kill (process-buffer proc)))
 
-(defvar forth-executable "gforth")
+(defvar forth-executable nil)
 
 (defvar run-forth-hooks)
 
@@ -41,6 +41,9 @@
 (defun run-forth ()
   "Start an interactive forth session."
   (interactive)
+  (unless forth-executable
+    (setq forth-executable
+         (read-string "Forth executable: ")))
   (let ((buffer (get-buffer-create "*forth*")))
     (pop-to-buffer-same-window buffer)
     (unless (comint-check-proc buffer)