--- gforth/gforth.el	1994/06/17 12:35:01	1.2
+++ gforth/gforth.el	1994/07/21 10:52:42	1.4
@@ -16,7 +16,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.4 1994/07/21 10:52:42 pazsan Exp $
 
 ;;-------------------------------------------------------------------
 ;; A Forth indentation, documentation search and interaction library
@@ -109,13 +109,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)
@@ -617,7 +617,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)