version 1.1, 1994/05/07 14:55:53
|
version 1.4, 1994/07/21 10:52:42
|
Line 109 OBS! All words in forth-negatives must b
|
Line 109 OBS! All words in forth-negatives must b
|
(make-local-variable 'require-final-newline) |
(make-local-variable 'require-final-newline) |
(setq require-final-newline t) |
(setq require-final-newline t) |
(make-local-variable 'comment-start) |
(make-local-variable 'comment-start) |
(setq comment-start "( ") |
(setq comment-start "\\ ") |
(make-local-variable 'comment-end) |
;(make-local-variable 'comment-end) |
(setq comment-end " )") |
;(setq comment-end " )") |
(make-local-variable 'comment-column) |
(make-local-variable 'comment-column) |
(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-variable 'comment-indent-hook) |
(setq comment-indent-hook 'forth-comment-indent) |
(setq 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)) |
|
|
|
;;;###autoload |
(defun forth-mode () |
(defun forth-mode () |
" |
" |
Major mode for editing Forth code. Tab indents for Forth code. Comments |
Major mode for editing Forth code. Tab indents for Forth code. Comments |
Line 616 The region is sent terminated by a newli
|
Line 617 The region is sent terminated by a newli
|
;; Misc |
;; Misc |
|
|
(setq auto-mode-alist (append auto-mode-alist |
(setq auto-mode-alist (append auto-mode-alist |
'(("\\.f83$" . forth-mode)))) |
'(("\\.fs$" . forth-mode)))) |
|
|
(defun forth-split () |
(defun forth-split () |
(interactive) |
(interactive) |