version 1.71, 2004/12/31 13:23:57
|
version 1.72, 2007/02/22 19:37:06
|
Line 273 PARSED-TYPE specifies what kind of text
|
Line 273 PARSED-TYPE specifies what kind of text
|
"case" "of" "?dup-if" "?dup-0=-if" "then" "endif" "until" |
"case" "of" "?dup-if" "?dup-0=-if" "then" "endif" "until" |
"repeat" "again" "leave" "?leave" |
"repeat" "again" "leave" "?leave" |
"loop" "+loop" "-loop" "next" "endcase" "endof" "else" "while" "try" |
"loop" "+loop" "-loop" "next" "endcase" "endof" "else" "while" "try" |
"recover" "endtry" "assert(" "assert0(" "assert1(" "assert2(" |
"recover" "endtry" "iferror" "restore" "endtry-iferror" |
|
"assert(" "assert0(" "assert1(" "assert2(" |
"assert3(" ")" "<interpretation" "<compilation" "interpretation>" |
"assert3(" ")" "<interpretation" "<compilation" "interpretation>" |
"compilation>") |
"compilation>") |
compile-only (font-lock-keyword-face . 2)) |
compile-only (font-lock-keyword-face . 2)) |
Line 415 INDENT1 and INDENT2 are indentation spec
|
Line 416 INDENT1 and INDENT2 are indentation spec
|
|
|
(setq forth-indent-words |
(setq forth-indent-words |
'((("if" "begin" "do" "?do" "+do" "-do" "u+do" |
'((("if" "begin" "do" "?do" "+do" "-do" "u+do" |
"u-do" "?dup-if" "?dup-0=-if" "case" "of" "try" |
"u-do" "?dup-if" "?dup-0=-if" "case" "of" "try" "iferror" |
"[if]" "[ifdef]" "[ifundef]" "[begin]" "[for]" "[do]" "[?do]") |
"[if]" "[ifdef]" "[ifundef]" "[begin]" "[for]" "[do]" "[?do]") |
(0 . 2) (0 . 2)) |
(0 . 2) (0 . 2)) |
((":" ":noname" "code" "struct" "m:" ":m" "class" "interface") |
((":" ":noname" "code" "struct" "m:" ":m" "class" "interface") |
Line 431 INDENT1 and INDENT2 are indentation spec
|
Line 432 INDENT1 and INDENT2 are indentation spec
|
(-2 . 0) (0 . -2) non-immediate) |
(-2 . 0) (0 . -2) non-immediate) |
(("protected" "public" "how:") (-1 . 1) (0 . 0) non-immediate) |
(("protected" "public" "how:") (-1 . 1) (0 . 0) non-immediate) |
(("+loop" "-loop" "until") (-2 . 0) (-2 . 0)) |
(("+loop" "-loop" "until") (-2 . 0) (-2 . 0)) |
(("else" "recover" "[else]") (-2 . 2) (0 . 0)) |
(("else" "recover" "restore" "endtry-iferror" "[else]") |
|
(-2 . 2) (0 . 0)) |
(("does>") (-1 . 1) (0 . 0)) |
(("does>") (-1 . 1) (0 . 0)) |
(("while" "[while]") (-2 . 4) (0 . 2)) |
(("while" "[while]") (-2 . 4) (0 . 2)) |
(("repeat" "[repeat]") (-4 . 0) (0 . -4)))) |
(("repeat" "[repeat]") (-4 . 0) (0 . -4)))) |