| (setq comment-column 40) |
(setq comment-column 40) |
| (make-local-variable 'comment-start-skip) |
(make-local-variable 'comment-start-skip) |
| (setq comment-start-skip "\\ ") |
(setq comment-start-skip "\\ ") |
| (make-local-variable 'comment-indent-hook) |
(make-local-hook 'comment-indent-hook) |
| (setq comment-indent-hook 'forth-comment-indent) |
(add-hook comment-indent-hook 'forth-comment-indent) |
| (make-local-variable 'parse-sexp-ignore-comments) |
(make-local-variable 'parse-sexp-ignore-comments) |
| (setq parse-sexp-ignore-comments t)) |
(setq parse-sexp-ignore-comments t)) |
| |
|
| ; (run-forth forth-program-name)) |
; (run-forth forth-program-name)) |
| (run-hooks 'forth-mode-hook)) |
(run-hooks 'forth-mode-hook)) |
| |
|
| (setq forth-mode-hook |
(add-hook 'forth-mode-hook |
| '(lambda () |
'(lambda () |
| (make-local-variable 'compile-command) |
(make-local-variable 'compile-command) |
| (setq compile-command "gforth "))) |
(setq compile-command "gforth "))) |