--- gforth/gforth.el	1998/05/03 20:40:40	1.27
+++ gforth/gforth.el	1998/12/08 22:02:43	1.31
@@ -1,10 +1,8 @@
 ;; Forth mode for Emacs
-;; This file is part of GForth.
-;; Changes by anton
-;; This is a variant of forth.el that came with TILE.
-;; I left most of this stuff untouched and made just a few changes for 
-;; the things I use (mainly indentation and syntax tables).
-;; So there is still a lot of work to do to adapt this to gforth.
+
+;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
+
+;; This file is part of Gforth.
 
 ;; GForth is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY.  No author or distributor
@@ -21,6 +19,12 @@
 ;; file named COPYING.  Among other things, the copyright notice
 ;; and this notice must be preserved on all copies.
 
+;; Changes by anton
+;; This is a variant of forth.el that came with TILE.
+;; I left most of this stuff untouched and made just a few changes for 
+;; the things I use (mainly indentation and syntax tables).
+;; So there is still a lot of work to do to adapt this to gforth.
+
 ;;-------------------------------------------------------------------
 ;; A Forth indentation, documentation search and interaction library
 ;;-------------------------------------------------------------------
@@ -76,10 +80,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 +421,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 +718,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))
 
 
@@ -933,7 +937,7 @@ The region is sent terminated by a newli
 			1)
 		((looking-at "\\/\\* ")
 			1)
-		((looking-at ":")
+		((looking-at ": .*")
 			1)
 		((looking-at "\\\\G")
 			2)
@@ -951,14 +955,14 @@ The region is sent terminated by a newli
    (setq outline-level 'f-outline-level)
 
    (outline-minor-mode)
-(define-key outline-minor-mode-map '(shift up) 'hide-sublevels)
-(define-key outline-minor-mode-map '(shift right) 'show-children)
-(define-key outline-minor-mode-map '(shift left) 'hide-subtree)
-(define-key outline-minor-mode-map '(shift down) 'show-subtree)
+   (define-key outline-minor-mode-map '(shift up) 'hide-sublevels)
+   (define-key outline-minor-mode-map '(shift right) 'show-children)
+   (define-key outline-minor-mode-map '(shift left) 'hide-subtree)
+   (define-key outline-minor-mode-map '(shift down) 'show-subtree)
 
 )
 
-(define-key global-map '(shift up) 'fold-f)
+;;(define-key global-map '(shift up) 'fold-f)
 
 ;;; end file folding
 
@@ -972,8 +976,8 @@ The region is sent terminated by a newli
        (require 'func-menu)
 ;;       (define-key global-map 'f8 'function-menu)
        (add-hook 'find-fible-hooks 'fume-add-menubar-entry)
-       (define-key global-map "\C-cg" 'fume-prompt-function-goto)
-       (define-key global-map '(shift button3) 'mouse-function-menu)
+;       (define-key global-map "\C-cg" 'fume-prompt-function-goto)
+;       (define-key global-map '(shift button3) 'mouse-function-menu)
 ))
 
 ;; end