version 1.45, 2000/11/16 09:39:51
|
version 1.46, 2000/12/16 17:19:41
|
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-hook 'comment-indent-hook) |
; this is obsolete (according to 20.5 docs) and replace with comment-indent-function |
(add-hook comment-indent-hook 'forth-comment-indent) |
; (make-local-hook 'comment-indent-hook) |
|
; (add-hook 'comment-indent-hook 'forth-comment-indent nil t) |
|
(make-local-variable 'comment-indent-function) |
|
(setq comment-indent-function '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 992 The region is sent terminated by a newli
|
Line 995 The region is sent terminated by a newli
|
|
|
;;; Highlighting |
;;; Highlighting |
|
|
(cond ((featurep 'hilit19) |
; (cond ((featurep 'hilit19) |
(if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el")) |
; (if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el")) |
(require 'hilit19) |
; (require 'hilit19) |
(require 'hl319)) |
; (require 'hl319)) |
|
|
(hilit-set-mode-patterns |
; (hilit-set-mode-patterns |
'(forth-mode) |
; '(forth-mode) |
(append |
; (append |
'(("\\\\ \\(.*\\)$" nil comment)) ; comments |
; '(("\\\\ \\(.*\\)$" nil comment)) ; comments |
'(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments |
; '(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments |
'(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl)) |
; '(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl)) |
'(("( " ")" comment)) |
; '(("( " ")" comment)) |
'(("\" [^\"\n]*\"" nil string)) |
; '(("\" [^\"\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)) |
'(("\\(\\[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)) |
; '((": *[^ \n]*" nil defun)) |
'(("Defer *[^ \n]*" nil defun)) |
; '(("Defer *[^ \n]*" nil defun)) |
'(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define)) |
; '(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define)) |
'(("\\(include\\|require\\) *[^ \n]*" nil include)) |
; '(("\\(include\\|require\\) *[^ \n]*" nil include)) |
'(("[\n ]\\(\\$[0-9A-Fa-f]+[\n ]\\|&[0-9]+[\n ]\\|[0-9]+[\n ]\\|%[01]+[\n ]\\|'[^ \n]+\\)+" nil formula)) |
; '(("[\n ]\\(\\$[0-9A-Fa-f]+[\n ]\\|&[0-9]+[\n ]\\|[0-9]+[\n ]\\|%[01]+[\n ]\\|'[^ \n]+\\)+" nil formula)) |
'((":noname" nil defun)))))) |
; '((":noname" nil defun)))))) |
|
|
;; end |
;; end |
|
|