version 1.62, 2002/04/18 17:07:56
|
version 1.63, 2002/04/27 14:52:30
|
Line 390 TYPE might be omitted. If it's specified
|
Line 390 TYPE might be omitted. If it's specified
|
have any effect on indentation inside definitions. (:NONAME is a good |
have any effect on indentation inside definitions. (:NONAME is a good |
example for this kind of word). |
example for this kind of word). |
|
|
INDENT1 specifies how to indent a word that's located at a line's begin, |
INDENT1 specifies how to indent a word that's located at the beginning |
following any number of whitespaces. |
of a line, following any number of whitespaces. |
|
|
INDENT2 specifies how to indent words that are not located at a line's begin. |
INDENT2 specifies how to indent words that are not located at the |
|
beginning of a line. |
|
|
INDENT1 and INDENT2 are indentation specifications of the form |
INDENT1 and INDENT2 are indentation specifications of the form |
(SELF-INDENT . NEXT-INDENT), where SELF-INDENT is a numerical value, |
(SELF-INDENT . NEXT-INDENT), where SELF-INDENT is a numerical value, |
Line 416 INDENT1 and INDENT2 are indentation spec
|
Line 417 INDENT1 and INDENT2 are indentation spec
|
(0 . 2) (0 . 2) non-immediate) |
(0 . 2) (0 . 2) non-immediate) |
("\\S-+%$" (0 . 2) (0 . 0) non-immediate) |
("\\S-+%$" (0 . 2) (0 . 0) non-immediate) |
((";" ";m") (-2 . 0) (0 . -2)) |
((";" ";m") (-2 . 0) (0 . -2)) |
(("again" "repeat" "then" "endif" "endtry" "endcase" "endof" |
(("again" "then" "endif" "endtry" "endcase" "endof" |
"[then]" "[endif]" "[loop]" "[+loop]" "[next]" |
"[then]" "[endif]" "[loop]" "[+loop]" "[next]" |
"[until]" "[repeat]" "[again]" "loop") |
"[until]" "[again]" "loop") |
(-2 . 0) (0 . -2)) |
(-2 . 0) (0 . -2)) |
(("end-code" "end-class" "end-interface" "end-class-noname" |
(("end-code" "end-class" "end-interface" "end-class-noname" |
"end-interface-noname" "end-struct" "class;") |
"end-interface-noname" "end-struct" "class;") |
Line 426 INDENT1 and INDENT2 are indentation spec
|
Line 427 INDENT1 and INDENT2 are indentation spec
|
(("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" "[else]") (-2 . 2) (0 . 0)) |
(("while" "does>" "[while]") (-1 . 1) (0 . 0)) |
(("does>") (-1 . 1) (0 . 0)) |
|
(("while" "[while]") (-2 . 4) (0 . 2)) |
|
(("repeat" "[repeat]") (-4 . 0) (0 . -4)) |
(("\\g") (-2 . 2) (0 . 0)))) |
(("\\g") (-2 . 2) (0 . 0)))) |
|
|
(defvar forth-local-indent-words nil |
(defvar forth-local-indent-words nil |