--- gforth/gforth.el	1994/06/17 12:35:01	1.2
+++ gforth/gforth.el	1994/07/29 11:16:21	1.5
@@ -1,5 +1,9 @@
 ;; This file is part of GNU Emacs.
 ;; 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.
+;; So there is still a lot of work to do to adapt this to gforth
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY.  No author or distributor
@@ -16,7 +20,7 @@
 ;; file named COPYING.  Among other things, the copyright notice
 ;; and this notice must be preserved on all copies.
 
-;;; $Header: /nfs/unsafe/cvs-repository/src-master/gforth/gforth.el,v 1.2 1994/06/17 12:35:01 anton Exp $
+;;; $Header: /nfs/unsafe/cvs-repository/src-master/gforth/gforth.el,v 1.5 1994/07/29 11:16:21 anton Exp $
 
 ;;-------------------------------------------------------------------
 ;; A Forth indentation, documentation search and interaction library
@@ -33,19 +37,19 @@
 
 
 (defvar forth-positives
-  " : begin do ?do while if ?dup-if ?dup-not-if else case create does> exception> "
+  " : :noname begin do ?do while if ?dup-if ?dup-not-if else case create does> exception> struct "
   "Contains all words which will cause the indent-level to be incremented
 on the next line.
 OBS! All words in forth-positives must be surrounded by spaces.")
 
 (defvar forth-negatives
-  " ; until repeat while +loop loop else then endif again endcase does> "
+  " ; until repeat while +loop loop s+loop else then endif again endcase does> end-struct "
   "Contains all words which will cause the indent-level to be decremented
 on the current line.
 OBS! All words in forth-negatives must be surrounded by spaces.")
 
 (defvar forth-zeroes
-  " : "
+  " : :noname "
   "Contains all words which causes the indent to go to zero")
 
 (defvar forth-mode-abbrev-table nil
@@ -109,13 +113,13 @@ OBS! All words in forth-negatives must b
   (make-local-variable 'require-final-newline)
   (setq require-final-newline t)
   (make-local-variable 'comment-start)
-  (setq comment-start "( ")
-  (make-local-variable 'comment-end)
-  (setq comment-end " )")
+  (setq comment-start "\\ ")
+  ;(make-local-variable 'comment-end)
+  ;(setq comment-end " )")
   (make-local-variable 'comment-column)
   (setq comment-column 40)
   (make-local-variable 'comment-start-skip)
-  (setq comment-start-skip "( ")
+  (setq comment-start-skip "\\ ")
   (make-local-variable 'comment-indent-hook)
   (setq comment-indent-hook 'forth-comment-indent)
   (make-local-variable 'parse-sexp-ignore-comments)
@@ -314,7 +318,7 @@ Variables controling documentation searc
 
 ;; Forth commands
 
-(defvar forth-program-name "forth"
+(defvar forth-program-name "gforth"
   "*Program invoked by the `run-forth' command.")
 
 (defvar forth-band-name nil
@@ -617,7 +621,7 @@ The region is sent terminated by a newli
 ;; Misc
 
 (setq auto-mode-alist (append auto-mode-alist
-				'(("\\.f83$" . forth-mode))))
+				'(("\\.fs$" . forth-mode))))
 
 (defun forth-split ()
   (interactive)