version 1.43, 2000/09/23 15:06:00
|
version 1.45, 2000/11/16 09:39:51
|
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 "))) |
Line 992 The region is sent terminated by a newli
|
Line 992 The region is sent terminated by a newli
|
|
|
;;; Highlighting |
;;; Highlighting |
|
|
(if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el")) |
(cond ((featurep 'hilit19) |
(require 'hilit19) |
(if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el")) |
(require 'hl319)) |
(require 'hilit19) |
|
(require 'hl319)) |
(hilit-set-mode-patterns |
|
'(forth-mode) |
(hilit-set-mode-patterns |
(append |
'(forth-mode) |
'(("\\\\ \\(.*\\)$" nil comment)) ; comments |
(append |
'(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments |
'(("\\\\ \\(.*\\)$" nil comment)) ; comments |
'(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl)) |
'(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments |
'(("( " ")" comment)) |
'(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl)) |
'(("\" [^\"\n]*\"" nil string)) |
'(("( " ")" comment)) |
'(("\\(\\[IF]\\|\\[IFDEF]\\|\\[IFUNDEF]\\|\\[ELSE]\\|\\[THEN]\\|IF\\|ELSE\\|THEN\\|CASE\\|ENDCASE\\|OF\\|ENDOF\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\|AGAIN\\|DOES>\\|?DO\\|DO\\|\+LOOP\\|UNLOOP\\|LOOP\\|EXIT\\)" nil keyword)) |
'(("\" [^\"\n]*\"" nil string)) |
'(("\\(\\[if]\\|\\[ifdef]\\|\\[ifundef]\\|\\[else]\\|\\[then]\\|if\\|else\\|then\\|case\\|endcase\\|of\\|endof\\|begin\\|while\\|repeat\\|until\\|again\\|does>\\|?do\\|do\\|\+loop\\|unloop\\|loop\\|exit\\)" nil keyword)) |
'(("\\(\\[IF]\\|\\[IFDEF]\\|\\[IFUNDEF]\\|\\[ELSE]\\|\\[THEN]\\|IF\\|ELSE\\|THEN\\|CASE\\|ENDCASE\\|OF\\|ENDOF\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\|AGAIN\\|DOES>\\|?DO\\|DO\\|\+LOOP\\|UNLOOP\\|LOOP\\|EXIT\\)" nil keyword)) |
'((": *[^ \n]*" nil defun)) |
'(("\\(\\[if]\\|\\[ifdef]\\|\\[ifundef]\\|\\[else]\\|\\[then]\\|if\\|else\\|then\\|case\\|endcase\\|of\\|endof\\|begin\\|while\\|repeat\\|until\\|again\\|does>\\|?do\\|do\\|\+loop\\|unloop\\|loop\\|exit\\)" nil keyword)) |
'(("Defer *[^ \n]*" nil defun)) |
'((": *[^ \n]*" nil defun)) |
'(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define)) |
'(("Defer *[^ \n]*" nil defun)) |
'(("\\(include\\|require\\) *[^ \n]*" nil include)) |
'(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define)) |
'(("[\n ]\\(\\$[0-9A-Fa-f]+[\n ]\\|&[0-9]+[\n ]\\|[0-9]+[\n ]\\|%[01]+[\n ]\\|'[^ \n]+\\)+" nil formula)) |
'(("\\(include\\|require\\) *[^ \n]*" nil include)) |
'((":noname" nil defun)))) |
'(("[\n ]\\(\\$[0-9A-Fa-f]+[\n ]\\|&[0-9]+[\n ]\\|[0-9]+[\n ]\\|%[01]+[\n ]\\|'[^ \n]+\\)+" nil formula)) |
|
'((":noname" nil defun)))))) |
|
|
;; end |
;; end |
|
|