--- gforth/gforth.el	1997/06/06 17:27:56	1.23
+++ gforth/gforth.el	1998/04/14 16:43:06	1.26
@@ -54,7 +54,7 @@ OBS! All words in forth-negatives must b
 (setq forth-zero 0)
 
 (defvar forth-zup
-  " how: "
+  " how: implements "
   "Contains all words which causes zero indent level to change")
 
 (defvar forth-zdown
@@ -76,10 +76,6 @@ OBS! All words in forth-negatives must b
 (if (not forth-mode-map)
     (setq forth-mode-map (make-sparse-keymap)))
 
-(global-set-key "\e\C-m" 'forth-send-paragraph)
-(global-set-key "\C-x\C-m" 'forth-split)
-(global-set-key "\e " 'forth-reload)
-
 ;(define-key forth-mode-map "\M-\C-x" 'compile)
 (define-key forth-mode-map "\C-x\\" 'comment-region)
 (define-key forth-mode-map "\C-x~" 'forth-remove-tracers)
@@ -421,6 +417,10 @@ part of the screen."
   (forth-split)
   (forth-set-runlight forth-runlight:input))
 
+(defun run-forth-if-not ()
+  (if (not (forth-process-running-p))
+      (run-forth forth-program-name)))
+
 (defun reset-forth ()
   "Reset the Forth process."
   (interactive)
@@ -714,7 +714,7 @@ The region is sent terminated by a newli
   (interactive)
   (let ((process (get-process forth-program-name)))
     (if process (kill-process process t)))
-  (sleep-for-millisecs 100)
+  (sleep-for 0 100)
   (forth-mode))