[nongnu] elpa/forth-mode 5e99586c1e 065/153: Remove prompt from Forth output.

[ELPA Syncer]

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

    Remove prompt from Forth output.
---
 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 69d33cafec..42f86a9373 100644
--- a/forth-interaction-mode.el
+++ b/forth-interaction-mode.el
@@ -75,7 +75,10 @@
     (while (setq n (string-match "[?[0-9;]*[a-z]" string n))
       (message "n = %d" n)
       (setq string (replace-match "" t t string))))
-  string)
+  (setq string (replace-regexp-in-string "\\`[[:space:]\n]*" "" string))
+  (setq string (replace-regexp-in-string "[[:space:]\n]*\\'" "" string))
+  (setq string (replace-regexp-in-string "ok\\'" "" string))
+  (setq string (replace-regexp-in-string "[[:space:]\n]*\\'" "" string)))
 
 ;;;###autoload
 (defun forth-interaction-send (&rest strings)