1 ;; A simple rc to configure Forth mode.
3 (autoload 'forth-mode
"gforth" nil t
)
4 (autoload 'forth-block-mode
"gforth" nil t
)
6 (add-to-list 'auto-mode-alist
'("\\.fs\\'" . forth-mode
))
7 (add-to-list 'auto-mode-alist
'("\\.fb\\'" . forth-block-mode
))
9 (defun set-forth-indent ()
10 (setq forth-indent-level
3)
11 (setq forth-minor-indent-level
1))
13 (add-hook 'forth-mode-hook
'set-forth-indent
)