version 1.42, 2000/09/12 19:20:06
|
version 1.44, 2000/10/01 11:20:05
|
Line 1
|
Line 1
|
;; Forth mode for Emacs |
;; Forth mode for Emacs |
|
|
;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. |
;; Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc. |
|
|
;; This file is part of Gforth. |
;; This file is part of Gforth. |
|
|
Line 160 OBS! All words in forth-negatives must b
|
Line 160 OBS! All words in forth-negatives must b
|
(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)) |
|
|
Line 241 Variables controling documentation searc
|
Line 241 Variables controling documentation searc
|
; (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 "))) |