version 1.55, 2001/12/15 22:44:52
|
version 1.56, 2002/01/05 17:42:29
|
Line 164 PARSED-TYPE specifies what kind of text
|
Line 164 PARSED-TYPE specifies what kind of text
|
|
|
(("true" "false" "c/l" "bl" "cell" "pi" "w/o" "r/o" "r/w") |
(("true" "false" "c/l" "bl" "cell" "pi" "w/o" "r/o" "r/w") |
non-immediate (font-lock-constant-face . 2)) |
non-immediate (font-lock-constant-face . 2)) |
(("~~" "break:") compile-only (font-lock-warning-face . 2)) |
(("~~" "break:" "dbg") compile-only (font-lock-warning-face . 2)) |
(("break\"") compile-only (font-lock-warning-face . 1) |
(("break\"") compile-only (font-lock-warning-face . 1) |
"[\"\n]" nil string (font-lock-string-face . 1)) |
"[\"\n]" nil string (font-lock-string-face . 1)) |
(("postpone" "[is]" "defers" "[']" "[compile]") |
(("postpone" "[is]" "defers" "[']" "[compile]") |
Line 172 PARSED-TYPE specifies what kind of text
|
Line 172 PARSED-TYPE specifies what kind of text
|
"[ \t\n]" t name (font-lock-function-name-face . 3)) |
"[ \t\n]" t name (font-lock-function-name-face . 3)) |
(("is" "what's") immediate (font-lock-keyword-face . 2) |
(("is" "what's") immediate (font-lock-keyword-face . 2) |
"[ \t\n]" t name (font-lock-function-name-face . 3)) |
"[ \t\n]" t name (font-lock-function-name-face . 3)) |
(("<is>" "'") non-immediate (font-lock-keyword-face . 2) |
(("<is>" "'" "see") non-immediate (font-lock-keyword-face . 2) |
"[ \t\n]" t name (font-lock-function-name-face . 3)) |
"[ \t\n]" t name (font-lock-function-name-face . 3)) |
(("[to]") compile-only (font-lock-keyword-face . 2) |
(("[to]") compile-only (font-lock-keyword-face . 2) |
"[ \t\n]" t name (font-lock-variable-name-face . 3)) |
"[ \t\n]" t name (font-lock-variable-name-face . 3)) |
Line 676 End:\" construct).")
|
Line 676 End:\" construct).")
|
your .emacs.") |
your .emacs.") |
|
|
(defvar forth-indent-level 4 |
(defvar forth-indent-level 4 |
"Indentation of Forth statements.") |
"*Indentation of Forth statements.") |
(defvar forth-minor-indent-level 2 |
(defvar forth-minor-indent-level 2 |
"Minor indentation of Forth statements.") |
"*Minor indentation of Forth statements.") |
(defvar forth-compiled-indent-words nil) |
(defvar forth-compiled-indent-words nil) |
|
|
;; Return, whether `pos' is the first forth word on its line |
;; Return, whether `pos' is the first forth word on its line |