version 1.41, 2000/04/29 21:12:14
|
version 1.42, 2000/09/12 19:20:06
|
Line 1000 The region is sent terminated by a newli
|
Line 1000 The region is sent terminated by a newli
|
'(forth-mode) |
'(forth-mode) |
(append |
(append |
'(("\\\\ \\(.*\\)$" nil comment)) ; comments |
'(("\\\\ \\(.*\\)$" 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\\|DOES>\\|?DO\\|DO\\|\+LOOP\\|LOOP\\)" 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)) |