version 1.77, 2010/04/10 13:03:01
|
version 1.79, 2010/08/20 20:17:28
|
Line 241 PARSED-TYPE specifies what kind of text
|
Line 241 PARSED-TYPE specifies what kind of text
|
immediate (font-lock-keyword-face . 1)) |
immediate (font-lock-keyword-face . 1)) |
(("does>") compile-only (font-lock-keyword-face . 1)) |
(("does>") compile-only (font-lock-keyword-face . 1)) |
((":noname") definition-starter (font-lock-keyword-face . 1)) |
((":noname") definition-starter (font-lock-keyword-face . 1)) |
((";" ";code") definition-ender (font-lock-keyword-face . 1)) |
((";" ";code" ";abi-code") definition-ender (font-lock-keyword-face . 1)) |
(("include" "require" "needs" "use") |
(("include" "require" "needs" "use") |
non-immediate (font-lock-keyword-face . 1) |
non-immediate (font-lock-keyword-face . 1) |
"[\n\t ]" t string (font-lock-string-face . 1)) |
"[\n\t ]" t string (font-lock-string-face . 1)) |
Line 443 INDENT1 and INDENT2 are indentation spec
|
Line 443 INDENT1 and INDENT2 are indentation spec
|
(("+loop" "-loop" "until") (-2 . 0) (-2 . 0)) |
(("+loop" "-loop" "until") (-2 . 0) (-2 . 0)) |
(("else" "recover" "restore" "endtry-iferror" "[else]") |
(("else" "recover" "restore" "endtry-iferror" "[else]") |
(-2 . 2) (0 . 0)) |
(-2 . 2) (0 . 0)) |
(("does>") (-1 . 1) (0 . 0)) |
(("does>" ";code" ";abi-code") (-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)))) |
|
|
Line 537 End:\" construct).")
|
Line 537 End:\" construct).")
|
"Parse and bind local variables, set in the contents of the current |
"Parse and bind local variables, set in the contents of the current |
forth-mode buffer. Prepend `forth-local-words' to `forth-words' and |
forth-mode buffer. Prepend `forth-local-words' to `forth-words' and |
`forth-local-indent-words' to `forth-indent-words'." |
`forth-local-indent-words' to `forth-indent-words'." |
|
(put 'forth-local-indent-words 'safe-local-variable 'listp) |
|
(put 'forth-local-words 'safe-local-variable 'listp) |
(hack-local-variables) |
(hack-local-variables) |
(setq forth-words (append forth-local-words forth-words)) |
(setq forth-words (append forth-local-words forth-words)) |
(setq forth-indent-words (append forth-local-indent-words |
(setq forth-indent-words (append forth-local-indent-words |